#!/usr/bin/perl -w
use strict;
use Test::More qw( no_plan );
use Gtk2 '-init';
{
use_ok 'Gapp::TableMap';
my $map = Gapp::TableMap->new(
string => '
+--------------+>>>>>>>>>>>>+
| 1 | 2 |
+--------------+ |
| 3 | |
+-------+------+------------+
> 4 | 5 | 6 |
> | +------------+
> | | 7 |
+-------+------+------------+
> 8 | | 9 |
> | +------------+
> | | 10 |
> +------+------------+
> | 11 |
+-------+-------------------+
',
);
isa_ok $map, q[Gapp::TableMap];
is scalar @{$map->cells}, 11, 'created map with 11 cells';
}
{
use_ok 'Gapp::Table';
my $t = Gapp::Table->new(
map => '
+--------------+>>>>>>>>>>>>+
| 1 | 2 |
+--------------+ |
| 3 | |
+-------+------+------------+
> 4 | 5 | 6 |
> | +------------+
> | | 7 |
+-------+------+------------+
> 8 | | 9 |
> | +------------+
> | | 10 |
> +------+------------+
> | 11 |
+-------+-------------------+
',
content => [
Gapp::Label->new( text => 1 ),
Gapp::Label->new( text => 2 ),
Gapp::Label->new( text => 3 ),
Gapp::Label->new( text => 4 ),
Gapp::Label->new( text => 5 ),
Gapp::Label->new( text => 6 ),
Gapp::Label->new( text => 7 ),
Gapp::Label->new( text => 8 ),
Gapp::Label->new( text => 9 ),
Gapp::Label->new( text => 10 ),
Gapp::Label->new( text => 11 ),
]
);
isa_ok $t, q[Gapp::Table];
}