projects
/
pkg-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add the following packages libalgorithm-diff-perl libspiffy-perl libtext-diff-perl...
[pkg-perl]
/
deb-src
/
libtext-diff-perl
/
libtext-diff-perl-0.35
/
t
/
keygen.t
1
#!/usr/local/bin/perl -w
2
3
use strict ;
4
use Test ;
5
use Text::Diff ;
6
7
my @A = map "$_\n", qw( 1 2 3_ 4_ ) ;
8
my @B = map "$_\n", qw( 1 2_ 3 4_ ) ;
9
10
my @tests = (
11
sub {
12
ok !diff \@A, \@B, {
13
KEYGEN => sub {
14
local $_ = shift ;
15
s/_+//g ;
16
return $_ . shift ;
17
},
18
KEYGEN_ARGS => [ "args" ],
19
} ;
20
},
21
) ;
22
23
plan tests => scalar @tests ;
24
25
$_->() for @tests ;