Sha256: 4d39a0f8bba231f2823fde5c207fe7d7f405431cece213daa17f09d53f3d10eb
Contents?: true
Size: 1.93 KB
Versions: 32
Compression:
Stored size: 1.93 KB
Contents
#!/usr/bin/env perl6
use Test;
use JSON::Tiny;
use lib IO::Path.new($?FILE).parent.path;
my $module = %*ENV<EXERCISM> ?? 'Example' !! 'LinkedList';
require ::($module) <LinkedList>;
my @cases; # defined in INIT
plan 0 + @cases;
for @cases -> $c {
subtest $c.<name>, sub {
my $ll = LinkedList.new;
for |$c.<set> -> %s {
for %s {
my $v = $_.value;
given $_.key {
when 'push' { $ll.push( $v ); pass 'push ' ~ $v }
when 'unshift' { $ll.unshift( $v ); pass 'unshift ' ~ $v }
when 'pop' { is $ll.pop, $v, 'pop' }
when 'shift' { is $ll.shift, $v, 'shift' }
}
}
}
};
}
done-testing;
INIT {
@cases := from-json ｢
[
{
"set" : [
{ "push" : 10 },
{ "push" : 20 },
{ "pop" : 20 },
{ "pop" : 10 }
],
"name" : "push_pop"
},
{
"set" : [
{ "push" : 10 },
{ "push" : 20 },
{ "shift" : 10 },
{ "shift" : 20 }
],
"name" : "push_shift"
},
{
"set" : [
{ "unshift" : 10 },
{ "unshift" : 20 },
{ "shift" : 20 },
{ "shift" : 10 }
],
"name" : "unshift_shift"
},
{
"set" : [
{ "unshift" : 10 },
{ "unshift" : 20 },
{ "pop" : 10 },
{ "pop" : 20 }
],
"name" : "unshift_pop"
},
{
"set" : [
{ "push" : 10 },
{ "push" : 20 },
{ "pop" : 20 },
{ "push" : 30 },
{ "shift" : 10 },
{ "unshift" : 40 },
{ "push" : 50 },
{ "shift" : 40 },
{ "pop" : 50 },
{ "shift" : 30 }
],
"name" : "example"
}
]
｣
}
Version data entries
32 entries across 32 versions & 1 rubygems