}
}
-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');
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();