This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perldelta - move split change to other perlfunc changes and add issue link
[perl5.git] / t / test_pl / tempfile.t
index 5c0e76e..d507d60 100644 (file)
@@ -55,7 +55,10 @@ is( tempfile(), "${prefix}C");
     }
 }
 
-skip_files(20,'Y','Z');
+ok( register_tempfile("${prefix}F"), 'registered the next file with register_tempfile' );
+is( tempfile(), "${prefix}G", 'tempfile() properly skips files added with register_tempfile()' );
+
+skip_files(18,'Y','Z');
 
 is( tempfile(), "${prefix}Z", 'Last single letter filename');
 is( tempfile(), "${prefix}AA", 'First double letter filename');
@@ -72,4 +75,19 @@ ok( !eval{tempfile()}, 'Should bail after Last available filename' );
 my $err = "$@";
 like( $err, qr{^Can't find temporary file name starting}, 'check error string' );
 
+{
+    my $returned = runperl( progs => [
+        'require q[./test.pl];',
+        'my $t = tempfile();',
+        'print qq[$t|];',
+        'print open(FH,q[>],$t) ? qq[ok|] : qq[not ok|] ;',
+        'print -e $t ? qq[ok|] : qq[not ok|];',
+    ] );
+    my($filename,$opened,$existed) = split /\|/, $returned;
+
+    is( $opened, 'ok', "$filename created" );
+    is( $existed, 'ok', "$filename did exist" );
+    ok( !-e $filename, "$filename doesn't exist now" );
+}
+
 done_testing();