[FormMagick-devel] CVS: formmagick/lib/CGI FormMagick.pm,1.63,1.64

[Kirrily R. <sk...@us...>]

Update of /cvsroot/formmagick/formmagick/lib/CGI
In directory usw-pr-cvs1:/tmp/cvs-serv5771/lib/CGI

Modified Files:
	FormMagick.pm 
Log Message:
Some tests for user_clicked_enter() and magic_wherenext()
(yeah, yeah, I should have written them first)


Index: FormMagick.pm
===================================================================
RCS file: /cvsroot/formmagick/formmagick/lib/CGI/FormMagick.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -C2 -r1.63 -r1.64
*** FormMagick.pm	2001/10/09 22:58:15	1.63
--- FormMagick.pm	2001/10/09 23:03:45	1.64
***************
*** 440,443 ****
--- 440,457 ----
  did, or 0 otherwise.
  
+ =begin testing
+ 
+ use CGI;
+ 
+ my $cgi = CGI->new("");
+ local $fm->{cgi} = $cgi;
+ ok($fm->user_pressed_enter(), "User pressed enter");
+ 
+ $cgi = CGI->new({ Next => "foo" });
+ local $fm->{cgi} = $cgi;
+ ok(!$fm->user_pressed_enter(), "User clicked a button");
+ 
+ =end testing
+ 
  =cut
  
***************
*** 459,462 ****
--- 473,486 ----
  have a magic C<wherenext> param and returns it.  Gives undef if it's not
  set.
+ 
+ =begin testing
+ 
+ use CGI;
+ 
+ $cgi = CGI->new({ wherenext => "foo" });
+ local $fm->{cgi} = $cgi;
+ is($fm->magic_wherenext(), "foo", "Found magic wherenext value");
+ 
+ =end testing
  
  =cut