# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1.t'
use Test::More tests => 19;
BEGIN { use_ok('Script::Toolbox') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
##############################################################################
$F = Script::Toolbox->new();
##############################################################################
############################### TEST 2 #####################################
$d = $F->Stat('.');
foreach my $x ( keys %{$d} )
{
ok( $d->{$x}{atime} > 0 );
last;
}
############################### TEST 3-15 #####################################
$d = $F->Stat('./t/','10_Stat.t');
ok( $d->{'10_Stat.t'}{atime} > 0 );
ok( $d->{'10_Stat.t'}{blksize} > 0 );
ok( $d->{'10_Stat.t'}{blocks} > 0 );
ok( $d->{'10_Stat.t'}{ctime} > 0 );
ok( $d->{'10_Stat.t'}{dev} > 0 );
ok( $d->{'10_Stat.t'}{gid} >= 0 );
ok( $d->{'10_Stat.t'}{ino} > 0 );
ok( $d->{'10_Stat.t'}{mode} > 0 );
ok( $d->{'10_Stat.t'}{mtime} > 0 );
ok( $d->{'10_Stat.t'}{nlink} > 0 );
ok( $d->{'10_Stat.t'}{rdev} >= 0 );
ok( $d->{'10_Stat.t'}{size} > 0 );
ok( $d->{'10_Stat.t'}{uid} >= 0 );
############################### TEST 16-17 #####################################
$F->File("> /tmp/__KEY__", "a,b,AAA\n");
$F->File("/tmp/__KEY__", "a,c,BBB\n");
sub LC($) {
my ($i) = @_;
my @O;
foreach my $l ( @{$i} )
{
push @O, lc $l;
}
return \@O;
}
$k = $F->KeyMap("> /tmp/__KEY__");
ok( $k->{"a"}{"b"} eq "AAA" );
ok( $k->{"a"}{"c"} eq "BBB" );
$x = $F->KeyMap("> /tmp/__KEY__", \&LC);
ok( $x->{"a"}{"b"} eq "aaa" );
ok( $x->{"a"}{"c"} eq "bbb" );
unlink "/tmp/__KEY__";