# 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 => 11;
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.
##############################################################################
unlink "/tmp/08_Dir.log";
$F = Script::Toolbox->new({logdir=>{mod=>'=s',mand=>1,default=>'/tmp'}});
##############################################################################
############################### TEST 2 #####################################
system( 'mkdir -p /tmp/__TeSt__; cd /tmp/__TeSt__; touch x y z xyz' );
$d = $F->Dir("/tmp/__TeSt__");
ok( $d->[0] eq 'x' );#2
ok( $d->[1] eq 'xyz');#3
ok( $d->[2] eq 'y' ); #4
ok( $d->[3] eq 'z' ); #5
$d = $F->Dir('/tmp/__TeSt__', '!x');
ok( $d->[0] eq 'y' ); #6
ok( $d->[1] eq 'z' ); #7
$d = $F->Dir("/tmp/__TeSt__", 'x');
ok( $d->[0] eq 'x' ); #8
ok( $d->[1] eq 'xyz');#9
$d = $F->Dir("/tmp/__TeSt__", '^y');
ok( $d->[0] eq 'y' ); #10
ok( $#{$d} == 0 ); #11
system( "rm -rf /tmp/__TeSt__" );
unlink "/tmp/08_Dir.log";