File: reverse-deep.t

package info (click to toggle)
libtest-base-perl 0.89-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 676 kB
  • sloc: perl: 936; makefile: 2
file content (42 lines) | stat: -rw-r--r-- 476 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
use Test::Base;

__DATA__
===
--- xxx) eval Reverse array
[qw(a b c)],
[qw(d e f)],
[qw(g h i j)]
--- yyy) eval
[
[qw(c b a)],
[qw(f e d)],
[qw(j i h g)]
]

===
--- xxx) eval Reverse array
[
    [qw(a b c)],
    [qw(d e f)],
    [qw(g h i j)]
],
[
    [qw(a b c)],
    [qw(d e f)],
    [qw(g h i j)]
],

--- yyy) eval
[
    [
        [qw(c b a)],
        [qw(f e d)],
        [qw(j i h g)]
    ],
    [
        [qw(c b a)],
        [qw(f e d)],
        [qw(j i h g)]
    ]
]