Find file
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (16 sloc) 485 Bytes
#!perl
use strict;
use warnings;
use Test::More tests => 2;
use Algorithm::Diff::Callback 'diff_arrays';
{
no warnings qw/redefine once/;
*Algorithm::Diff::Callback::diff = sub { return ( [ [ '*', 0, 'ack' ] ] ) };
use warnings;
}
my @old = qw( one two );
my @new = qw( one four );
$|++;
eval { diff_arrays( \@old, \@new, added => sub {}, deleted => sub {} ) };
ok( $@, 'Caught error' );
like( $@, qr/Can't recognize change in changeset\: '\*'/, 'Unknown change' );