nonumbers.t

来自「source of perl for linux application,」· T 代码 · 共 15 行

if( $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE} ) {
    print "1..0 # Skip: t/TEST needs numbers\n";
    exit;
}

print <<END;
1..6
ok
ok
ok
ok
ok
ok
END