4 use Test::More tests => 7 ;
8 # try to honor possible tempdirs
10 my $test_dir = "read_dir_$$" ;
12 mkdir( $test_dir, 0700) || die "mkdir $test_dir: $!" ;
14 my @dir_entries = read_dir( $test_dir );
16 ok( @dir_entries == 0, 'empty dir' ) ;
18 @dir_entries = read_dir( $test_dir, keep_dot_dot => 1 ) ;
20 ok( @dir_entries == 2, 'empty dir with . ..' ) ;
22 write_file( "$test_dir/x", "foo\n" ) ;
24 @dir_entries = read_dir( $test_dir ) ;
26 ok( @dir_entries == 1, 'dir with 1 file' ) ;
28 ok( $dir_entries[0] eq 'x', 'dir with file x' ) ;
32 my @expected_entries = sort( 'x', 1 .. $file_cnt ) ;
34 for ( 1 .. $file_cnt ) {
36 write_file( "$test_dir/$_", "foo\n" ) ;
39 @dir_entries = read_dir( $test_dir ) ;
40 @dir_entries = sort @dir_entries ;
42 ok( eq_array( \@dir_entries, \@expected_entries ),
43 "dir with $file_cnt files" ) ;
45 my $dir_entries_ref = read_dir( $test_dir ) ;
46 @{$dir_entries_ref} = sort @{$dir_entries_ref} ;
48 ok( eq_array( $dir_entries_ref, \@expected_entries ),
49 "dir in array ref" ) ;
53 unlink map "$test_dir/$_", @dir_entries ;
54 rmdir( $test_dir ) || die "rmdir $test_dir: $!";