12 my($skip,$to,$next) = @_;
14 my $cmp = $prefix . $to;
19 if( $check eq $cmp && $_ != $skip ){
20 # let the next test pass
25 my $common_mess = "skip $skip filenames to $to so that the next one will end with $next";
30 my($alpha) = $check =~ /\Atmp\d+([A-Z][A-Z]?)\Z/;
31 fail( $common_mess, "only skipped to $alpha" )
34 fail( $common_mess, "only skipped $last files" );
38 note("skipping the first filename because it is taken for use by _fresh_perl()");
40 is( tempfile(), "${prefix}B");
41 is( tempfile(), "${prefix}C");
43 skip_files(22,'Y','Z');
45 is( tempfile(), "${prefix}Z", 'Last single letter filename');
46 is( tempfile(), "${prefix}AA", 'First double letter filename');
48 skip_files(24,'AY','AZ');
50 is( tempfile(), "${prefix}AZ");
51 is( tempfile(), "${prefix}BA");
53 skip_files(26 * 24 + 24,'ZY','ZZ');
55 is( tempfile(), "${prefix}ZZ", 'Last available filename');
56 ok( !eval{tempfile()}, 'Should bail after Last available filename' );
58 like( $err, qr{^Can't find temporary file name starting}, 'check error string' );