--- trunk/t/02-frey-web.t 2008/07/17 17:04:21 154 +++ trunk/t/02-frey-web.t 2008/11/18 16:54:10 418 @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 18; +use Test::More tests => 19; use lib 'lib'; use Data::Dump qw/dump/; @@ -25,16 +25,16 @@ isa_ok( Frey::Web->meta, 'Moose::Meta::Role' ); -ok( my $o = Mock->new( debug => $debug ), 'new' ); +ok( my $o = Mock->new( debug => $debug, inline_smaller_than => 1 ), 'new' ); diag $o->dump(2) if $debug; -ok( $o->add_js( '/static/lib/Joose.js' ), 'add_js' ); +ok( $o->add_head( '/static/lib/Joose.js' ), 'add_head js' ); -ok( my @js = $o->js, 'js' ); +ok( my @head = $o->head, 'js' ); -diag dump( @js ) if $debug; +diag dump( @head ) if $debug; -ok( $o->add_css( '/static/introspect.css' ), 'add_css' ); +ok( $o->add_head( '/static/introspect.css' ), 'add_head css' ); ok( my $html = $o->page( title => 'Test', body => '' ), 'page' ); diag $html if $debug; @@ -44,15 +44,17 @@ html_ok( $html, 'html lint' ); -ok( my $s = $o->add_head( 'static/app.css' ), 'add_head css' ); +ok( my $s = $o->add_head( 'static/frey.css' ), 'add_head css' ); diag $s if $debug; ok( $s = $o->add_head( 'static/js/ext-2.1/ext-all.js' ), 'add_head js' ); diag $s if $debug; +ok( $o->title, 'has title' ); + ok( my $html2 = $o->page( title => 'Test2', body => '' ), 'page' ); diag $html2 if $debug; cmp_ok( length( $html ), '<', length( $html2 ), 'bigger html' ); -like( $html2, qr{app\.css}, 'have css' ); +like( $html2, qr{frey\.css}, 'have css' ); like( $html2, qr{ext}, 'have js' );