view release on metacpan or  search on metacpan

t/80optsimple.t  view on Meta::CPAN

# Allowing normal behaviour makes the problem above go away ...

$result   = join(':', apply_diffs($original, {optimisers => TEST_OPTIMISERS},
				  d1 => $changes,
				  d2 => $changes,
				  ));
ok($result !~ /\>\>\>/);
ok($result eq $expected);

# ... no matter how many identical chunks we throw at it.

$result   = join(':', apply_diffs($original, {optimisers => TEST_OPTIMISERS},
				  d1 => $changes,
				  d2 => $changes,
				  d3 => $changes,
				  d4 => $changes,
				  d5 => $changes,
				  ));
ok($result !~ /\>\>\>/);
ok($result eq $expected);