/[pxelator]/lib/PXElator/t/html.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /lib/PXElator/t/html.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 346 - (show annotations)
Sat Aug 29 16:51:07 2009 UTC (14 years, 7 months ago) by dpavlin
File MIME type: application/x-troff
File size: 756 byte(s)
make selected configuration options for clients editable
or returned in table format

1 #!/usr/bin/perl
2
3 use warnings;
4 use strict;
5 use autodie;
6
7 use Test::More tests => 8;
8 use Data::Dump qw/dump/;
9
10 use_ok 'html';
11
12 ok( my $html = html::table( 2, qw/a1 a2 b1 b2 c1 c2/ ), 'table' );
13 diag $html;
14
15 ok( $html = html::table( -3, qw/h1 h2 h3 a1 a2 a3 b1 b2 b3/ ), 'table' );
16 diag $html;
17
18 ok( $html = html::select( 'dropdown', 2, 1, 2, 3 ), 'select' );
19 diag $html;
20
21 ok( $html = html::pre_dump( foo => 1, bar => 'baz' ), 'pre_dump' );
22 diag $html;
23
24 ok( $html = html::conf( '127.0.0.1', { foo => 1, bar => 'baz' } ), 'conf' );
25 diag $html;
26
27 ok( my @t = html::conf( '127.0.0.1', { foo => 1, bar => 'baz' }, 'table' ), 'conf table' );
28 diag dump @t;
29
30 ok( @t = html::conf( '127.0.0.1', { foo => 1, bar => 'baz' }, 'edit', 'foo' ), 'conf edit' );
31 diag dump @t;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26