Changeset 406 for veekun/trunk/t
- Timestamp:
- 02/08/08 02:44:39 (10 months ago)
- Location:
- veekun/trunk/t
- Files:
-
- 4 modified
-
dex-pokemon.t (modified) (1 diff)
-
dex-search-moves.t (modified) (1 diff)
-
dex-search-pokemon.t (modified) (1 diff)
-
shoutbox.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
veekun/trunk/t/dex-pokemon.t
r347 r406 70 70 # TODO: Any way to flesh these out without just doing one big is_deeply? 71 71 # These are just spot checks for arbitrary moves. 72 is $s_eevee->{moves}{level}[-1]{move id}, 376, "Eevee's last move is Trump Card";72 is $s_eevee->{moves}{level}[-1]{move_id}, 376, "Eevee's last move is Trump Card"; 73 73 74 74 #use Data::Dumper; $Data::Dumper::Maxdepth = 3; warn Dumper $s_eevee; -
veekun/trunk/t/dex-search-moves.t
r349 r406 61 61 "Lower and upper bounds on power"; 62 62 63 search_ok { acc _lb => 30, acc_ub => 30 },63 search_ok { accuracy_lb => 30, accuracy_ub => 30 }, 64 64 [qw/ 12 32 90 329 /], 65 65 "Exact accuracy"; -
veekun/trunk/t/dex-search-pokemon.t
r349 r406 43 43 44 44 # Gender dropdown had a few problems at one point, so I gave it several tests 45 search_ok { gender => 254, generation => 0 },45 search_ok { gender_rate => 254, generation => 0 }, 46 46 [qw/ 29 30 31 113 115 124 /], 47 47 "Female-only (+ generation)"; 48 48 49 search_ok { name => 'voltorb', gender => 'not255' },49 search_ok { name => 'voltorb', gender_rate => 'not255' }, 50 50 [qw/ /], 51 51 "Any gender (+ name)"; 52 52 53 search_ok { name => 'eevee', gender => 255 },53 search_ok { name => 'eevee', gender_rate => 255 }, 54 54 [qw/ /], 55 55 "No gender (+ impossible name)"; -
veekun/trunk/t/shoutbox.t
r404 r406 21 21 my $posted_res = request( POST '/shoutbox/post' => { 22 22 name => 'Tester', 23 message=> 'Test message',23 content => 'Test message', 24 24 } ); 25 25 ok $posted_res->is_redirect, 'Shoutbox post results in redirect'; … … 31 31 ok defined $shout, 'Shoutbox table contains a shout'; 32 32 is $shout->name, 'Tester', 'Shout name is correct'; 33 is $shout-> message, 'Test message', 'Shout message is correct';34 ok !defined $shout->user id, 'Shout user is NULL';33 is $shout->content, 'Test message', 'Shout message is correct'; 34 ok !defined $shout->user_id, 'Shout user is NULL'; 35 35 ok abs($shout->time - time) < 3, 'Shout time is reasonably close to now'; 36 36
