--- trunk/t/App/RoomReservation-Reservation.t	2009/06/28 15:13:31	1087
+++ trunk/t/App/RoomReservation-Reservation.t	2009/07/01 17:20:48	1146
@@ -4,7 +4,7 @@
 
 my $debug = @ARGV ? 1 : 0;
 
-use Test::More tests => 4;
+use Test::More tests => 5;
 use lib 'lib';
 
 use Data::Dump qw/dump/;
@@ -13,8 +13,24 @@
 	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' );
+my $r = {
+	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 => "test+$$\@example.com",
+	email_verify => "test+$$\@example.com",
+};
+
+ok( my $o = App::RoomReservation::Reservation->new( request_url => '/', debug => $debug, %$r ), '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' );
 
+$r->{email_verify} = 'wrong@example.com';
+ok( ! eval { App::RoomReservation::Reservation->new( request_url => '/', debug => $debug, %$r ) }, 'e-mail wrong' );
+like( $@, qr/e-mail/, 'died' );