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 43 44 45 46 47 48 49 50 51 52 53 54 55 56
|
#!/usr/bin/env perl
# Copyright (C) 2005-2010, Sebastian Riedel.
use strict;
use warnings;
use utf8;
use Test::More;
eval "use Unicode::GCString";
if ($@) {
plan skip_all => "These tests require Unicode::GCString";
}
else {
plan tests => 2;
}
binmode STDERR, ":utf8";
binmode STDOUT, ":utf8";
use_ok('Text::SimpleTable');
my $t = Text::SimpleTable->new(10,11);
$t->row("あいうえおかきくけこ", "あいうえおかきくけこ");
$t->hr;
$t->row("あいうえおかきくけこa", "あいうえおかきくけこa");
$t->hr;
$t->row("あいうえおかきくけこab", "あいうえおかきくけこab");
$t->hr;
$t->row("xあいうえおかきくけこ", "xあいうえおかきくけこ");
$t->hr;
$t->row("xyあいうえおかきくけこ", "xyあいうえおかきくけこ");
is($t->draw, <<EOF, 'right table');
.------------+-------------.
| あいうえ- | あいうえお- |
| おかきく- | かきくけこ |
| けこ | |
+------------+-------------+
| あいうえ- | あいうえお- |
| おかきく- | かきくけこa |
| けこa | |
+------------+-------------+
| あいうえ- | あいうえお- |
| おかきく- | かきくけこ- |
| けこab | ab |
+------------+-------------+
| xあいうえ- | xあいうえ- |
| おかきく- | おかきくけ- |
| けこ | こ |
+------------+-------------+
| xyあいう- | xyあいうえ- |
| えおかき- | おかきくけ- |
| くけこ | こ |
'------------+-------------'
EOF
|