view release on metacpan or  search on metacpan

t/10base.t  view on Meta::CPAN

# This test script was taken mostly from Algorithm::Diff, with a few
# modifications to test Algorithm::Diff::Any
#
# Algorithm::Diff is Copyright 2000-2004, Ned Konz <perl@bike-nomad.com>

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl base.t'
use strict;
$^W++;
use lib qw(blib lib);
use Algorithm::Diff::Any qw(diff LCS traverse_sequences traverse_balanced sdiff);
use Algorithm::Diff;
use Data::Dumper;
use Test;

BEGIN
{
	$|++;
	plan tests => 35;
	$SIG{__DIE__} = sub # breakpoint on die

t/11oop.t  view on Meta::CPAN

# This test script was taken mostly from Algorithm::Diff, with a few
# modifications to test Algorithm::Diff::Any
#
# Algorithm::Diff is Copyright 2000-2004, Ned Konz <perl@bike-nomad.com>

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl oo.t'
use strict;
BEGIN { $^W++; }
use lib qw( blib lib );
use Algorithm::Diff::Any qw( compact_diff );
use Data::Dumper;
use Test qw( plan ok $ntest );

BEGIN
{
    $|++;
    plan( tests => 969 );
    $SIG{__DIE__} = sub # breakpoint on die
    {