|
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use utf8;
|
|
|
|
|
|
|
|
|
|
use Test::More tests => 3;
|
|
|
|
|
use Text::Dokuwiki;
|
|
|
|
|
|
|
|
|
|
my @lines = split /\n/, <<EOF;
|
|
|
|
|
| table ^ head1 ^ head2 ^ sum |
|
|
|
|
|
^ data1 |1-1 | 1-2 | 1-3|
|
|
|
|
|
^data2 | 2-1 | 2-222|2-3 |
|
|
|
|
|
| data3 ^ 3-1 || 3-2 |
|
|
|
|
|
^ data4 | 4-1 | 4-2 | ::: |
|
|
|
|
|
EOF
|
|
|
|
|
|
|
|
|
|
my $dw = Text::Dokuwiki->new;
|
|
|
|
|
isa_ok($dw, 'Text::Dokuwiki');
|
|
|
|
|
|
|
|
|
|
my $tree = $dw->_parse_table([ @lines ]);
|
|
|
|
|
is(ref $tree, 'ARRAY');
|
|
|
|
|
is_deeply($tree, [
|
|
|
|
|
table => {},
|
|
|
|
|
[tr => {},
|
|
|
|
|
[td => {align => 'center'}, 'table'],
|
|
|
|
|
[th => {align => 'center'}, 'head1'],
|
|
|
|
|
[th => {align => 'center'}, 'head2'],
|
|
|
|
|
[th => {align => 'center'}, 'sum'],
|
|
|
|
|
],
|
|
|
|
|
[tr => {},
|
|
|
|
|
[th => {align => 'center'}, 'data1'],
|
|
|
|
|
[td => {align => 'left'}, '1-1'],
|
|
|
|
|
[td => {align => 'center'}, '1-2'],
|
|
|
|
|
[td => {align => 'right'}, '1-3'],
|
|
|
|
|
],
|
|
|
|
|
[tr => {},
|
|
|
|
|
[th => {align => 'left'}, 'data2'],
|
|
|
|
|
[td => {align => 'center'}, '2-1'],
|
|
|
|
|
[td => {align => 'right'}, '2-222'],
|
|
|
|
|
[td => {align => 'left'}, '2-3'],
|
|
|
|
|
],
|
|
|
|
|
[tr => {},
|
|
|
|
|
[td => {align => 'center'}, 'data3'],
|
|
|
|
|
[th => {align => 'center', colspan => 2}, '3-1'],
|
|
|
|
|
[td => {align => 'center', skip => 1}, ''],
|
|
|
|
|
[td => {align => 'center', rowspan => 2}, '3-2'],
|
|
|
|
|
],
|
|
|
|
|
[tr => {},
|
|
|
|
|
[th => {align => 'center'}, 'data4'],
|
|
|
|
|
[td => {align => 'center'}, '4-1'],
|
|
|
|
|
[td => {align => 'center'}, '4-2'],
|
|
|
|
|
[td => {align => 'center', skip => 1}, ':::'],
|
|
|
|
|
],
|
|
|
|
|
]);
|
|
|
|
|
|
|
|
|
|
exit 0;
|
