git.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/join-deep.t

   1 use Test::Base;
   2
   3 __DATA__
   4 ===
   5 --- (xxx) eval Join
   6 [
   7     [qw(a b c)],
   8     [qw(d e f)],
   9 ]
  10
  11 --- (yyy) eval
  12 [ qw(abc def) ]
  13
  14 ===
  15 --- (xxx) eval Join=x
  16 [
  17     [
  18         [qw(a b c)],
  19         [qw(d e f)],
  20     ],
  21     [
  22         [qw(a b c)],
  23         [qw(d e f)],
  24     ]
  25 ]
  26
  27 --- (yyy) eval
  28 [
  29     [ qw(axbxc dxexf) ],
  30     [ qw(axbxc dxexf) ],
  31 ]