File: 00init.t

package info (click to toggle)
libinline-files-perl 0.71-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 232 kB
  • sloc: perl: 617; xml: 12; makefile: 7
file content (15 lines) | stat: -rwxr-xr-x 310 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
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");