trunk/t/20-html.t

#!/usr/bin/perl
use strict;
use warnings;

my $debug = shift @ARGV;

use Test::More tests => 8;
use lib 'lib';

#use Devel::LeakTrace::Fast;
use Data::Dump qw/dump/;

BEGIN {
        use_ok('HTML');
        use_ok('Strix::User');
}

ok( my $u = Strix::User->new( id => 1 ), 'new' );
isa_ok( $u, 'Strix::User' );

ok( my $h1 = HTML->view( 'user' => $u ), 'view' );
diag $h1 if $debug;

ok( HTML->add_javascript('static/jquery-1.2.6.js'), 'add_javascript' );

ok( my $h2 = HTML->view( 'user' => $u ), 'view' );
diag $h2 if $debug;

cmp_ok( length($h1), '<', length($h2), 'bigger with javascript' );
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	my $debug = shift @ARGV;
6
7	use Test::More tests => 8;
8	use lib 'lib';
9
10	#use Devel::LeakTrace::Fast;
11	use Data::Dump qw/dump/;
12
13	BEGIN {
14	use_ok('HTML');
15	use_ok('Strix::User');
16	}
17
18	ok( my $u = Strix::User->new( id => 1 ), 'new' );
19	isa_ok( $u, 'Strix::User' );
20
21	ok( my $h1 = HTML->view( 'user' => $u ), 'view' );
22	diag $h1 if $debug;
23
24	ok( HTML->add_javascript('static/jquery-1.2.6.js'), 'add_javascript' );
25
26	ok( my $h2 = HTML->view( 'user' => $u ), 'view' );
27	diag $h2 if $debug;
28
29	cmp_ok( length($h1), '<', length($h2), 'bigger with javascript' );