gistfile1.txt

        my sub chunks (Str $str, @re) {
            $str.defined or  return ();
            $str eq ""   and return ("");

            dd $str;
            dd @re;
            my @c = $str.split (@re, :keep-indices, :skip-empty).map ({
                $_ ~~ Int ?? @re[$_] !! $_ });
            dd @c;
            @c;
            }


ok 30 - parse () tests
Str $var = "\n"
Array $var = $["\r\n", "\r", "\n", ",", "\""]
Array $var = $[]
not ok 31 - Single newline

# Failed test 'Single newline'
# at t/10_base.t line 47
Str $var = "\",\""
Array $var = $["\r\n", "\r", "\n", ",", "\""]
Array $var = $[]
not ok 32 - comma - parse ()

# Failed test 'comma - parse ()'
# at t/10_base.t line 48
not ok 33 - comma - fields () - count

# Failed test 'comma - fields () - count'
# at t/10_base.t line 49
# expected: '1'
#      got: '0'