Contents

#!/usr/bin/env perl6
use v6;
use Test;
use lib $?FILE.IO.dirname;

my $exercise = 'Accumulate';
my $version = v1;
my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
plan 7;

use-ok $module or bail-out;
require ::($module);

if ::($exercise).^ver !~~ $version {
  warn "\nExercise version mismatch. Further tests may fail!"
    ~ "\n$exercise is $(::($exercise).^ver.gist). "
    ~ "Test is $($version.gist).\n";
  bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
}

require ::($module) <&accumulate>;

is-deeply accumulate([ ], sub {}),
          [ ],
          'test empty';
is-deeply accumulate([1, 2, 3, 4, 5], sub { @_[0] * @_[0] }),
          [1, 4, 9, 16, 25],
          'raise to 2';
is-deeply accumulate([10, 17, 23], sub { [ (@_[0] / 7).truncate, (@_[0] % 7).truncate ] }),
          [[1, 3], [2, 3], [3, 2] ],
          'divmod';
is-deeply accumulate(['hello', 'exercism'], sub { @_[0].uc }),
          ['HELLO', 'EXERCISM'],
          'capitalize';
is-deeply accumulate(['a', 'b', 'c' ], sub ($inp) { [ accumulate( [1, 2, 3], sub ($inp2) { $inp ~ $inp2 } )]}),
          [['a1', 'a2', 'a3'], ['b1', 'b2', 'b3'], ['c1', 'c2', 'c3']],
          'recursive';
is-deeply accumulate(['the', 'quick', 'brown', 'fox'], sub { @_[0].flip }),
          ['eht', 'kciuq', 'nworb', 'xof'],
          'reverse strings';

done-testing;

Version data entries

94 entries across 94 versions & 1 rubygems

Version	Path
trackler-2.2.1.43	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.42	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.41	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.40	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.39	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.38	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.37	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.36	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.35	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.34	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.33	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.32	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.31	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.30	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.29	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.28	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.27	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.26	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.25	tracks/perl6/exercises/accumulate/accumulate.t
trackler-2.2.1.24	tracks/perl6/exercises/accumulate/accumulate.t