/[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 386 by dpavlin, Mon Nov 17 22:40:22 2008 UTC revision 469 by dpavlin, Thu Nov 20 10:50:28 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 => 20;  use Test::More tests => 25;
8  use lib 'lib';  use lib 'lib';
9    
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 47  ok( $o = Frey::Action->new( class => 'Fr Line 47  ok( $o = Frey::Action->new( class => 'Fr
47  ok( ($html2,$default) = $o->params_form, 'params_form' );  ok( ($html2,$default) = $o->params_form, 'params_form' );
48  ok( ! $html2, 'no form' );  ok( ! $html2, 'no form' );
49  ok( $default->{unneeded}, 'preserve params' );  ok( $default->{unneeded}, 'preserve params' );
50    
51    ok( $o = Frey::Action->new( class => 'Frey::Introspect', debug => $debug ), "new Frey::Introspect" );
52    ok( $html = $o->params_form, 'params_form' );
53    diag $html if $debug;
54    like( $html, qr/class/, 'required form field class' );
55    
56    ok( $o = Frey::Action->new( class => 'Frey::Introspect', params => { class => 'Frey' }, debug => $debug ), "new Frey::Introspect" );
57    ok( ! $o->params_form, 'params_form empty' );
58    
59    
Legend:
Removed from v.386  
changed lines
  Added in v.469
  ViewVC Help
Powered by ViewVC 1.1.26