/[Frey]/trunk/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 /trunk/t/01-Frey-Action.t

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

revision 502 by dpavlin, Mon Nov 24 21:49:38 2008 UTC revision 928 by dpavlin, Mon Jan 5 23:14:07 2009 UTC
# Line 44  ok( $html2, 'got form again' ); Line 44  ok( $html2, 'got form again' );
44  cmp_ok( $html, 'eq', $html2, 'html same' );  cmp_ok( $html, 'eq', $html2, 'html same' );
45  ok( $default->{uri}, 'uri has default' );  ok( $default->{uri}, 'uri has default' );
46    
47  ok( $o = Frey::Action->new( class => 'Frey::ClassBrowser', debug => $debug, params => { unneeded => 1 } ), "new Frey::ClassBrowser" );  ok( $o = Frey::Action->new( class => 'Frey::Class::Browser', debug => $debug, params => { unneeded => 1 } ), "new Frey::Class::Browser" );
48  ok( ($html2,$default) = $o->params_form, 'params_form' );  ok( ($html2,$default) = $o->params_form, 'params_form' );
49  ok( ! $html2, 'no form' );  ok( ! $html2, 'no form' );
50  ok( $default->{unneeded}, 'preserve params' );  ok( $default->{unneeded}, 'preserve params' );
# Line 54  ok( $html = $o->params_form, 'params_for Line 54  ok( $html = $o->params_form, 'params_for
54  diag $html if $debug;  diag $html if $debug;
55  like( $html, qr/class/, 'required form field class' );  like( $html, qr/class/, 'required form field class' );
56    
57  ok( $o = Frey::Action->new( class => 'Frey::Introspect', params => { class => 'Frey' }, debug => $debug ), "new Frey::Introspect" );  ok( $o = Frey::Action->new( class => 'Frey::Introspect', params => { request_url => '/', class => 'Frey' }, debug => $debug ), "new Frey::Introspect" );
58  ok( ! $o->params_form, 'params_form empty' );  ok( ! $o->params_form, 'params_form empty' );
59    diag $o->params_form if $o->params_form;
60    
Legend:
Removed from v.502  
changed lines
  Added in v.928
  ViewVC Help
Powered by ViewVC 1.1.26