# Copyright 1999-2001 Steven Knight.  All rights reserved.  This program
# is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself.

######################### We start with some black magic to print on failure.

use Test;
BEGIN {
	$| = 1;
	eval "use Algorithm::DiffOld";
	$diffold = ! $@;
	plan tests => 18, onfail => sub { $? = 1 if $ENV{AEGIS_TEST} }
}
END {print "not ok 1\n" unless $loaded;}
use Test::Cmd;
$loaded = 1;
ok(1);

######################### End of black magic.

my($test, $ret, @lines, @regexes, @diff);

$ret = Test::Cmd->diff_regex(<<'_EOF_', <<'_EOF_', \@diff);
1
2
3
_EOF_
1
2
3
_EOF_
ok($ret);
ok(@diff == 0);

$ret = Test::Cmd->diff_regex(<<'_EOF_', <<'_EOF_', \@diff);
1
2
3
_EOF_
1
222
3
_EOF_
ok(! $ret);
ok(join('', @diff) eq $diffold ? <<'_EOF_' : <<'_EOF_');
2c2
< 222
---
> 2
_EOF_
Expected =====
1
2
3
Actual =====
1
222
3
_EOF_

$test = Test::Cmd->new;
ok($test);

$ret = $test->diff_regex("abcde\n", "a.*e\n", \@diff);
ok($ret);
ok(! @diff);

$ret = $test->diff_regex(<<'_EOF_', <<'_EOF_', \@diff);
12345
abcde
_EOF_
1\d+5
a.*e
_EOF_
ok($ret);
ok(! @diff);

@lines = ( "vwxyz\n", "67890\n" );
@regexes = ( "v[^a-u]*z\n", "6\\S+0\n");

$ret = $test->diff_regex(\@lines, \@regexes, \@diff);
ok($ret);
ok(! @diff);

$ret = $test->diff_regex(<<'_EOF_', <<'_EOF_', \@diff);
1
a
b
2
3
c
4
5
_EOF_
1
2
x
3
4
y
z
5
_EOF_
ok(! $ret);
ok(join('', @diff) eq $diffold ? <<'_EOF_' : <<'_EOF_');
1a2,3
> a
> b
3d4
< x
4a6
> c
6,7d7
< y
< z
_EOF_
Expected =====
1
2
x
3
4
y
z
5
Actual =====
1
a
b
2
3
c
4
5
_EOF_

$ret = $test->diff_regex(<<'_EOF_', <<'_EOF_', \@diff);
1
2
a
3
4
b
c
5
_EOF_
1
x
y
2
3
z
4
5
_EOF_
ok(! $ret);
ok(join('', @diff) eq $diffold ? <<'_EOF_' : <<'_EOF_');
2,3d1
< x
< y
4a3
> a
6d4
< z
7a6,7
> b
> c
_EOF_
Expeced =====
1
x
y
2
3
z
4
5
Actual =====
1
2
a
3
4
b
c
5
_EOF_

$ret = $test->diff_regex(<<'_EOF_', <<'_EOF_', \@diff);
a
b
c
e
h
j
l
m
n
p
_EOF_
b
c
d
e
f
j
k
l
m
r
s
t
_EOF_
ok(! $ret);
ok(join('', @diff) eq $diffold ? <<'_EOF_' : <<'_EOF_');
0a1
> a
3d3
< d
5c5
< f
---
> h
7d6
< k
10,12c9,10
< r
< s
< t
---
> n
> p
_EOF_
Expected =====
b
c
d
e
f
j
k
l
m
r
s
t
Actual =====
a
b
c
e
h
j
l
m
n
p
_EOF_