/[Frey]/branches/zimbardo/t/01-Frey-Action.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/zimbardo/t/01-Frey-Action.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 469 by dpavlin, Thu Nov 20 10:50:28 2008 UTC revision 502 by dpavlin, Mon Nov 24 21:49:38 2008 UTC
# Line 4  use warnings; Line 4  use warnings;
4    
5  my $debug = @ARGV ? 1 : 0;  my $debug = @ARGV ? 1 : 0;
6    
7  use Test::More tests => 25;  use Test::More tests => 26;
8  use lib 'lib';  use lib 'lib';
9    
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 28  ok( ! $o->params->{uri}, 'no uri' ); Line 28  ok( ! $o->params->{uri}, 'no uri' );
28  ok( my $html = $o->params_form, 'params_form' );  ok( my $html = $o->params_form, 'params_form' );
29  diag $html if $debug;  diag $html if $debug;
30  like( $html, qr/<form/, 'has form' );  like( $html, qr/<form/, 'has form' );
31    unlike( $html, qr/HASH/, 'no HASH' );
32    
33  ok( ! $o->params->{uri}, "don't pollute params" );  ok( ! $o->params->{uri}, "don't pollute params" );
34    
Legend:
Removed from v.469  
changed lines
  Added in v.502
  ViewVC Help
Powered by ViewVC 1.1.26