3 new versions checked in finally.

[urisagit/File-Slurp.git] / t / read_dir.t

diff --git a/t/read_dir.t b/t/read_dir.t
index 9cc939c..d04351f 100644 (file)
--- a/t/read_dir.t
+++ b/t/read_dir.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w -I.
 
 use strict ;
-use Test::More tests => 8 ;
+use Test::More tests => 9 ;
 
 use File::Slurp ;
 
@@ -52,6 +52,11 @@ my $dir_entries_ref = read_dir( $test_dir ) ;
 ok( eq_array( $dir_entries_ref, \@expected_entries ),
        "dir in array ref" ) ;
 
+my @prefixed_entries = read_dir( $test_dir, {prefix => 1} ) ;
+@prefixed_entries = sort @prefixed_entries ;
+ok( eq_array( \@prefixed_entries, [map "$test_dir/$_", @dir_entries] ),
+       'prefix option' ) ;
+
 # clean up
 
 unlink map "$test_dir/$_", @dir_entries ;