view release on metacpan or  search on metacpan

t/01basic.t  view on Meta::CPAN

#!/usr/bin/perl
#
# $Id: 01basic.t,v 1.1 2004/03/05 14:59:36 nik Exp $

use strict;
use warnings;
use Test::More tests => 13;

if(eval "require Test::Differences") {
  no warnings 'redefine';
  *is_deeply = \&Test::Differences::eq_or_diff;
}

BEGIN {
  use_ok('List::PowerSet', qw(powerset powerset_lazy));
}

my $ps = powerset(qw(1 2 3));

is(ref $ps, 'ARRAY', 'powerset() returned an array ref');
is(scalar @$ps, 8, '  with the right number of elements');