Sha256: 5d6ae141be1878b3cacd0fcc7458c3b785a4a820b9be7568799925dc7acb9ec8

Contents?: true

Size: 1.43 KB

Versions: 20

Compression:

Stored size: 1.43 KB

Contents

use strict;
use warnings;

use Test::More tests => 17;

my $module = $ENV{EXERCISM} ? 'Example' : 'Sublist';
my $name = "check_lists";
my $sub = join('::', $module, $name);

use_ok($module) or BAIL_OUT("You need to create a module called $module.pm");

can_ok($module, $name) or BAIL_OUT("You need to implement the function '$name'");

my $f = \&{"${module}::$name"};


is( $f->([], []), "equal", "empty lists are equal" );
is( $f->([], [1,2,3]), "sublist", "empty list is subset of everything" );
is( $f->([1], []), "superlist", "non-empty list is always superset of empty set" );
is( $f->([0,1,2], [0,1,2]), "equal", "non-empty lists are equal" );
is( $f->([0..1000000], [1..1000001]), "unequal", "large list, small difference" );
is( $f->([1,2,5], [0,1,2,3,1,2,5,6]), "sublist", "false start" );
is( $f->([1,1,2], [0,1,1,1,2,1,2]), "sublist", "sublist with duplicates" );
is( $f->([0,1,2], [0,1,2,3,4,5]), "sublist", "sublist at start" );
is( $f->([2,3,4], [0,1,2,3,4,5]), "sublist", "sublist in middle" );
is( $f->([3,4,5], [0,1,2,3,4,5]), "sublist", "sublist at end" );
is( $f->([0,1,2,3,4,5], [0,1,2]), "superlist", "start of superlist" );
is( $f->([0,1,2,3,4,5], [2,3]), "superlist", "middle of superlist" );
is( $f->([0,1,2,3,4,5], [3,4,5]), "superlist", "end of superlist" );
is( $f->([(0..999)x100, 1000..1099], [900..1049]), "superlist", "large list" );
is( $f->([ grep { !($_ % 15) } 3..200 ], [ grep { !($_ % 3) } 3..200 ]), "unequal", "spread sublist" );

Version data entries

20 entries across 20 versions & 1 rubygems

Version Path
trackler-2.0.0.9 tracks/perl5/sublist/sublist.t
trackler-2.0.0.8 tracks/perl5/sublist/sublist.t
trackler-2.0.0.7 tracks/perl5/sublist/sublist.t
trackler-2.0.0.6 tracks/perl5/sublist/sublist.t
trackler-2.0.0.5 tracks/perl5/sublist/sublist.t
trackler-2.0.0.4 tracks/perl5/sublist/sublist.t
trackler-2.0.0.3 tracks/perl5/sublist/sublist.t
trackler-2.0.0.2 tracks/perl5/sublist/sublist.t
trackler-2.0.0.1 tracks/perl5/sublist/sublist.t
trackler-2.0.0.0 tracks/perl5/sublist/sublist.t
trackler-1.0.4.1 tracks/perl5/sublist/sublist.t
trackler-1.0.4.0 tracks/perl5/sublist/sublist.t
trackler-1.0.3.0 tracks/perl5/sublist/sublist.t
trackler-1.0.2.1 tracks/perl5/sublist/sublist.t
trackler-1.0.2.0 tracks/perl5/sublist/sublist.t
trackler-1.0.1.2 tracks/perl5/sublist/sublist.t
trackler-1.0.1.1 tracks/perl5/sublist/sublist.t
trackler-1.0.1.0 tracks/perl5/sublist/sublist.t
trackler-1.0.0.1 tracks/perl5/sublist/sublist.t
trackler-1.0.0 tracks/perl5/sublist/sublist.t