view release on metacpan or  search on metacpan

t/carcdr.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More;    # plan is down at bottom
use Test::Exception;

eval 'use Test::Differences';    # display convenience
my $deeply = $@ ? \&is_deeply : \&eq_or_diff;

########################################################################

use Acme::List::CarCdr;
my $can = Acme::List::CarCdr->new;

# The reason for using names instead of numbers is that numbers may be
# returned by various array operations (length, index) that might be
# improperly confused with a test list that contains numbers instead of