#!/usr/bin/pugs

use v6;
use Test;

plan 3;

my @foo = [1, 2, 3].map:{ [100+$_, 200+$_] };
# @foo should be: [ [101,201], [102,202], [103,203] ]
# It is:          [  101,201,   102,202,   103,203  ]
# (At least I *think* Pugs' current behaviour is wrong. If it isn't, but I am
# -- how do I construct an AoA then?)
is +@foo,    3,         "map should't flatten our arrayref (1)";
is +@foo[0], 2,         "map should't flatten our arrayref (2)";
is ~@foo[0], "101 201", "map should't flatten our arrayref (3)";