diff options
| author | Dave Rolsky <autarch@urth.org> | 2011-06-03 12:14:26 -0500 |
|---|---|---|
| committer | Dave Rolsky <autarch@urth.org> | 2011-06-03 12:14:26 -0500 |
| commit | 615c62e713f3299be82452936e5f21514dd530f1 (patch) | |
| tree | 5928e5419535c8d91b3e68801ba83fea8e9b221d /t | |
| parent | 6a6db7151aab72506f59553ed216dd41015097b8 (diff) | |
Compare $@ to empty string so when a test fails we get useful output
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/Test/EmailAbstract.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/Test/EmailAbstract.pm b/t/lib/Test/EmailAbstract.pm index e498a30..43c1291 100644 --- a/t/lib/Test/EmailAbstract.pm +++ b/t/lib/Test/EmailAbstract.pm @@ -47,7 +47,7 @@ sub _do_tests { if ($readonly) { like($@, qr/can't alter string/, "can't alter an unwrapped string"); } else { - ok(!$@, "no exception on altering object via Email::Abstract"); + is($@, '', "no exception on altering object via Email::Abstract"); } my @receiveds = ( @@ -88,7 +88,7 @@ sub _do_tests { if ($readonly) { like($@, qr/can't alter string/, "can't alter an unwrapped string"); } else { - ok(!$@, "no exception on altering object via Email::Abstract"); + is($@, '', "no exception on altering object via Email::Abstract"); } if ($readonly) { |