PXElator/t/html.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 5;

use_ok 'html';

ok( my $html = html::table( 2, qw/a1 a2 b1 b2 c1 c2/ ), 'table' );
diag $html;

ok( $html = html::table( -3, qw/h1 h2 h3 a1 a2 a3 b1 b2 b3/ ), 'table' );
diag $html;

ok( $html = html::select( 'dropdown', 2, 1, 2, 3 ), 'select' );
diag $html;

ok( $html = html::pre_dump( foo => 1, bar => 'baz' ), 'pre_dump' );
diag $html;
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5	use autodie;
6
7	use Test::More tests => 5;
8
9	use_ok 'html';
10
11	ok( my $html = html::table( 2, qw/a1 a2 b1 b2 c1 c2/ ), 'table' );
12	diag $html;
13
14	ok( $html = html::table( -3, qw/h1 h2 h3 a1 a2 a3 b1 b2 b3/ ), 'table' );
15	diag $html;
16
17	ok( $html = html::select( 'dropdown', 2, 1, 2, 3 ), 'select' );
18	diag $html;
19
20	ok( $html = html::pre_dump( foo => 1, bar => 'baz' ), 'pre_dump' );
21	diag $html;