changes

[urisagit/Perl-Docs.git] / t / read_dir.t

diff --git a/t/read_dir.t b/t/read_dir.t
index d0b372c..9cc939c 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 => 7 ;
+use Test::More tests => 8 ;
 
 use File::Slurp ;
 
@@ -19,6 +19,10 @@ ok( @dir_entries == 0, 'empty dir' ) ;
 
 ok( @dir_entries == 2, 'empty dir with . ..' ) ;
 
+@dir_entries = read_dir( $test_dir, { keep_dot_dot => 1 } ) ;
+
+ok( @dir_entries == 2, 'empty dir with . .. - args ref' ) ;
+
 write_file( "$test_dir/x", "foo\n" ) ;
 
 @dir_entries = read_dir( $test_dir ) ;