### ----------------------------------------------------
### -- ParaSeq
### -- Licenses: Artistic-2.0
### -- Authors: Elizabeth Mattijsen
### -- File: t/13-join.rakutest
### ----------------------------------------------------
use Test;
use ParaSeq;

plan 4;

my constant $elems   = 200000;
my constant @list    = (^$elems).map(*.Rat).List;
my constant $with    = @list.join("-");
my constant $without = @list.join;

for 1, ParaSeq.default-degree {
    is @list.&hyperize(Any, $_).join("-"), $with,
      "join('-') with degree = $_";

    is @list.&hyperize(Any, $_).join, $without,
      "join() with degree = $_";
}

# vim: expandtab shiftwidth=4


