blob: 72e59255bb95a15b85a58cb8cb45504375f5f31b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
package TestBackup;
use File::Cmp qw(fcmp);
use File::Temp qw(tempdir);
use Exporter;
use re '/aa';
use Carp;
use Test;
our @ISA = qw(Test);
our @EXPORT=qw(makefile fileok plan ok);
sub import {
my $pkg = shift;
my $workdir = tempdir(CLEANUP => 1);
chdir($workdir) or croak "can't change to $workdir: $!";
@pattern = grep { /[\w\d]+/ } map { chr($_) } (1..127);
delete $ENV{VERSION_CONTROL};
$pkg->export_to_level(1, @_);
}
sub makefile {
my $file = shift;
my $size = shift // 1024;
open(FH, '>', $file) or croak "can't create file $file (wd $workdir): $!";
while ($size) {
my $n = @pattern;
$n = $size if $n > $size;
syswrite(FH, join('',@pattern[0..$n-1])) or
croak "write error creating $file: $!";
$size -= $n;
}
close FH
}
sub fileok {
ok(fcmp(@_));
}
1;
|