use strict; use Test; use File::Copy; plan(tests => 15); my $orig = './tests/'; my $local = './t/'; foreach (qw( 01basics 02write 03nowrite 04create 05seek 06backup 07hash )) { ok(unlink("$local$_.t") or not -f "$local$_.t"); ok(copy("$orig$_.t", "$local$_.t")); } ok(chmod 0444, "$local/03nowrite.t");