view release on metacpan or  search on metacpan

t/carcdr.t  view on Meta::CPAN

# "three"
@ret = $can->caadr(@numlist);
$deeply->( \@ret, ["three"] );

# [4]> (cdadr numlist)
# ("four")
@ret = $can->cdadr(@numlist);
$deeply->( \@ret, ["four"] );

dies_ok { $can->caaaaaar(1) } 'too deep';
dies_ok { $can->escape_from("a fiendish death trap") } 'No Bond, ';

plan tests => 8;