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

   1 use Test::Base;
   2
   3 __DATA__
   4 ===
   5 --- xxx) eval Reverse array
   6 [qw(a b c)],
   7 [qw(d e f)],
   8 [qw(g h i j)]
   9 --- yyy) eval
  10 [
  11 [qw(c b a)],
  12 [qw(f e d)],
  13 [qw(j i h g)]
  14 ]
  15
  16 ===
  17 --- xxx) eval Reverse array
  18 [
  19     [qw(a b c)],
  20     [qw(d e f)],
  21     [qw(g h i j)]
  22 ],
  23 [
  24     [qw(a b c)],
  25     [qw(d e f)],
  26     [qw(g h i j)]
  27 ],
  28
  29 --- yyy) eval
  30 [
  31     [
  32         [qw(c b a)],
  33         [qw(f e d)],
  34         [qw(j i h g)]
  35     ],
  36     [
  37         [qw(c b a)],
  38         [qw(f e d)],
  39         [qw(j i h g)]
  40     ]
  41 ]
  42