ok.t

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

-f "core" and unlink "core";
print <<END;
1..4
ok 1
ok 2
ok 3
ok 4
END