[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb:[3371] trunk/t/10-form.t



Revision: 3371
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3371&view=rev
Author:   einhverfr
Date:     2011-06-28 13:13:34 +0000 (Tue, 28 Jun 2011)

Log Message:
-----------
t/10-form.t test corrections

Modified Paths:
--------------
    trunk/t/10-form.t

Modified: trunk/t/10-form.t
===================================================================
--- trunk/t/10-form.t	2011-06-28 13:05:27 UTC (rev 3370)
+++ trunk/t/10-form.t	2011-06-28 13:13:34 UTC (rev 3371)
@@ -226,14 +226,14 @@
 $form->{pre} = 'Blah';
 $form->{header} = 'Blah';
 @r = trap{$form->error('hello world')};
-is($trap->exit, 0, 
+is($trap->exit, undef, 
 	'error: CGI, normal termination');
 is($trap->stdout, '<body><h2 class="error">Error!</h2> <p><b>hello world</b></body>',
 	'error: CGI, pre-set header content');
 ok(!$form->{pre}, 'error: CGI, removed $self->{pre}');
 delete $form->{header};
 @r = trap{$form->error('hello world')};
-is($trap->exit, 0, 
+is($trap->exit, undef, 
 	'error: CGI, normal termination');
 like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" \n\s+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>\n<html xmlns="http://www.w3.org/1999/xhtml"; xml:lang="en" lang="en">\n<head>\n\s+<title></title>\n\s+<meta http-equiv="Pragma" content="no-cache" />\n\s+<meta http-equiv="Expires" content="-1" />\n\s+<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />[\n\s]+<meta http-equiv="content-type" content="text/html; charset=utf-8" />[\n\s]+<meta name="robots" content="noindex,nofollow" />[\n\s]+</head>[\n\s]+<body><h2 class="error">Error!</h2> <p><b>hello world</b></body>|, 
 	'error: CGI, header content');
@@ -293,7 +293,7 @@
 @r = trap{$form->isblank('blank', 'hello world')};
 is($trap->stdout, '<body><h2 class="error">Error!</h2> <p><b>hello world</b></body>',
 	'isblank: Blank');
-is($trap->exit, 0, 
+is($trap->exit, undef, 
 	'isblank: Blank, termination');
 
 ## $form->header checks


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.