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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#!/usr/bin/perl
use strict;
use Test;
use Text::Diff;
my @A = map "$_\n", qw( 1 2 3 4 );
my @B = map "$_\n", qw( 1 2 3 5 );
my $A = join "", @A;
my $B = join "", @B;
my $Af = "io_A";
my $Bf = "io_B";
open A, ">$Af" or die $!; print A @A or die $! ; close A or die $! ;
open B, ">$Bf" or die $!; print B @B or die $! ; close B or die $! ;
my @tests = (
sub { ok !diff \@A, \@A },
sub {
my $d = diff \@A, \@B;
$d =~ /-4.*\+5/s ? ok 1 : ok $d, "a valid diff";
},
sub { ok !diff \$A, \$A },
sub {
my $d = diff \$A, \$B;
$d =~ /-4.*\+5/s ? ok 1 : ok $d, "a valid diff";
},
sub { ok !diff $Af, $Af },
sub {
my $d = diff $Af, $Bf;
$d =~ /-4.*\+5/s ? ok 1 : ok $d, "a valid diff";
},
sub {
open A1, "<$Af" or die $!;
open A2, "<$Af" or die $!;
ok !diff \*A1, \*A2;
close A1;
close A2;
},
sub {
open A, "<$Af" or die $!;
open B, "<$Bf" or die $!;
my $d = diff \*A, \*B;
$d =~ /-4.*\+5/s ? ok 1 : ok $d, "a valid diff";
close A;
close B;
},
sub {
ok !diff sub { \@A}, sub { \@A };
},
sub {
my $d = diff sub { \@A }, sub { \@B };
$d =~ /-4.*\+5/s ? ok 1 : ok $d, "a valid diff";
},
);
plan tests => scalar @tests;
$_->() for @tests;
unlink "io_A" or warn $!;
unlink "io_B" or warn $!;
|
