trunk/t/20-html.t

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

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

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

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

$Frey::HTML::debug = 1 if @ARGV;
my $debug = $Frey::HTML::debug;

ok( my $h1 = Frey::HTML->page( 'status' ), 'status' );
diag $h1 if $debug;

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

ok( my $h2 = Frey::HTML->page( 'status' ), 'status' );
diag $h2 if $debug;

cmp_ok( length( $h1 . '' ), '<', length( $h2 . '' ), 'bigger with javascript' );

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

ok( my $h3 = Frey::HTML->page( 'user' => $u ), 'user' );
diag $h3 if $debug;

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