root/lang/perl/Text-Matrix/t/02_matrix_read_row.t @ 4027

Revision 4027, 1.0 kB (checked in by overlast, 5 years ago)

lang/perl/Text-Matrix: Start.

Line 
1# 02_sv_read_row.t
2use strict;
3use warnings;
4use t::TestTextMatrix;
5use Data::Dumper;
6use Text::Matrix;
7sub read_row{
8    $_ = Text::Matrix->read_row($_[0][0], $_[0][1]);
9}
10plan tests => 1 * blocks;
11run_is_deeply(input => 'expected');
12__END__
13
14=== Test1
15--- input yaml read_row
16-
17  -
18    - a
19    - b
20    - c
21  -
22    - 1
23    - A
24    - あ
25  -
26    - 2
27    - B
28    - い
29  -
30    - 3
31    - C
32    - う
33  -
34    - 4
35    - D
36    - え
37  -
38    - 5
39    - E
40    - お
41- 2
42--- expected yaml
43- 2
44- B
45- い
46
47=== Test2
48--- input yaml read_row
49-
50  -
51    - a
52    - b
53    - c
54  -
55    - 1
56    - A
57    - あ
58  -
59    - 2
60    - B
61    - い
62  -
63    - 3
64    - C
65    - う
66  -
67    - 4
68    - D
69    - え
70  -
71    - 5
72    - E
73    - お
74- 1
75--- expected yaml
76- 1
77- A
78- あ
79
80=== Test3
81--- input yaml read_row
82-
83  -
84    - a
85    - b
86    - c
87  -
88    - 1
89    - A
90    - あ
91  -
92    - 2
93    - B
94    - い
95  -
96    - 3
97    - C
98    - う
99  -
100    - 4
101    - D
102    - え
103  -
104    - 5
105    - E
106    - お
107- 0
108--- expected yaml
109- a
110- b
111- c
112
Note: See TracBrowser for help on using the browser.