[Rt-commit] r3655 - in Data-ICal: . t

[glasser at bestpractical.com]

Author: glasser
Date: Mon Aug 15 16:19:23 2005
New Revision: 3655

Modified:
   Data-ICal/   (props changed)
   Data-ICal/t/08.parse.t
Log:
 r39554 at tin-foil:  glasser | 2005-08-15 16:17:52 -0400
 is undef is wrong


Modified: Data-ICal/t/08.parse.t
==============================================================================
--- Data-ICal/t/08.parse.t	(original)
+++ Data-ICal/t/08.parse.t	Mon Aug 15 16:19:23 2005
@@ -15,10 +15,10 @@
 my $cal;
 $cal = Data::ICal->new(filename => 't/ics/nonexistent.ics');
 
-is($cal, undef, "Caught no file death");
+ok(not defined $cal, "Caught no file death");
 
 $cal = Data::ICal->new(filename => 't/ics/badlyformed.ics'); 
-is($cal, undef, "Caught badly formed ics file death"); 
+ok(not defined $cal, "Caught badly formed ics file death"); 
 
 $cal = Data::ICal->new(filename => 't/ics/test.ics');