13 note("skipping $skip filenames so that the next one will end with $to.");
14 tempfile() for 1..$skip;
17 note("skipping the first filename because it is taken for use by _fresh_perl()");
19 is( tempfile(), "${prefix}B");
20 is( tempfile(), "${prefix}C");
24 is( tempfile(), "${prefix}Z", 'Last single letter filename');
25 is( tempfile(), "${prefix}AA", 'First double letter filename');
29 is( tempfile(), "${prefix}AZ");
30 is( tempfile(), "${prefix}BA");
32 skip_files(26 * 24 + 24,'ZZ');
34 is( tempfile(), "${prefix}ZZ", 'Last available filename');
35 ok( !eval{tempfile()}, 'Should bail after Last available filename' );
37 like( $err, qr{^Can't find temporary file name starting}, 'check error string' );