--- trunk/t/App/RoomReservation-Reservation.t 2009/06/28 15:13:31 1087 +++ trunk/t/App/RoomReservation-Reservation.t 2009/06/28 18:51:49 1095 @@ -4,7 +4,7 @@ my $debug = @ARGV ? 1 : 0; -use Test::More tests => 4; +use Test::More tests => 3; use lib 'lib'; use Data::Dump qw/dump/; @@ -13,8 +13,19 @@ use_ok('App::RoomReservation::Reservation'); } -ok( my $o = App::RoomReservation::Reservation->new( request_url => '/', debug => $debug ), 'new' ); -ok( my $markup = $o->as_markup, 'as_markup' ); +ok( my $o = App::RoomReservation::Reservation->new( request_url => '/', debug => $debug, + ime => 'Pero', + prezime => 'Preić', + institucija => 'Institut za istraživanje ruda i gubljenje vremena', + zanimanje => 'čuvar hladovine', + grad => 'Agram', + drzava => 'Hrvatska', + telefon => '01-555-555', + mobitel => '095-555-555', + email => 'pero@example.com', + email_verify => 'pero@example.com', +), 'new' ); +ok( my $markup = $o->create_as_markup, 'create' ); diag $markup if $debug; -like( $markup, qr/skeleton/, 'markup content' ); +#like( $markup, qr/skeleton/, 'markup content' );