SF.net SVN: ledger-smb:[5252] branches/1.3/t/02-number-handling.t

[..hidden..]

Revision: 5252
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5252&view=rev
Author:   einhverfr
Date:     2012-11-24 07:19:45 +0000 (Sat, 24 Nov 2012)
Log Message:
-----------
Fixing number handling tests

Modified Paths:
--------------
    branches/1.3/t/02-number-handling.t

Modified: branches/1.3/t/02-number-handling.t
===================================================================
--- branches/1.3/t/02-number-handling.t	2012-11-24 02:58:45 UTC (rev 5251)
+++ branches/1.3/t/02-number-handling.t	2012-11-24 07:19:45 UTC (rev 5252)
@@ -187,7 +187,7 @@
 	'form: No numberformat set, invalid amount message (NaN check)');
 @r = trap{$lsmb->format_amount('user' => {'apples' => '1000.00'},
 	'amount' => 'foo', 'precision' => 2)};
-is($trap->exit, 0,
+is($trap->exit, undef,
 	'lsmb: No numberformat set, invalid amount (NaN check)');
 is($trap->stdout, $lsmb_nan_message,
 	'lsmb: No numberformat set, invalid amount message (NaN check)');
@@ -347,7 +347,7 @@
 	cmp_ok($lsmb->parse_amount('user' => \%myconfig, 'amount' => ''), '==', 0,
 		"lsmb: Empty string returns 0");
 	@r = trap{$lsmb->parse_amount('user' => \%myconfig, 'amount' => 'foo')};
-	is($trap->exit, 0,
+	is($trap->exit, undef,
 		'lsmb: Invalid string gives NaN exit');
 	is($trap->stdout, $lsmb_nan_message,
 		'lsmb: Invalid string gives NaN message');
@@ -417,7 +417,7 @@
 	cmp_ok($lsmb->parse_amount('user' => \%myconfig, 'amount' => ''), '==', 0,
 		"lsmb: Empty string returns 0");
 	@r = trap{$lsmb->parse_amount('user' => \%myconfig, 'amount' => 'foo')};
-	is($trap->exit, 0,
+	is($trap->exit, undef,
 		'lsmb: Invalid string gives NaN exit');
 	is($trap->stdout, $lsmb_nan_message,
 		'lsmb: Invalid string gives NaN message');

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