Commits

Anonymous committed 4934a99

Fixed the tests to work on Windows.

  • Participants
  • Parent commits 65bf7e2
  • Tags releases/0.15/0.15009

Comments (0)

Files changed (4)

File module/ChangeLog

+Apr 07 2006 <shlomif@iglu.org.il> (Shlomi Fish)
+
+  Error.pm #0.15008
+  - Fixed a test in t/05text-errors-with-file-handles.t to work on 
+    MS Windows due to File::Spec and require inconsistency.
+
 Apr 07 2006 <shlomif@iglu.org.il> (Shlomi Fish)
 
   Error.pm #0.15007

File module/Error.ppd

-<SOFTPKG NAME="Error" VERSION="0,15007,0,0">
+<SOFTPKG NAME="Error" VERSION="0,15008,0,0">
     <TITLE>Error</TITLE>
     <ABSTRACT>Error/exception handling in an OO-ish way</ABSTRACT>
     <AUTHOR>Graham Barr &lt;gbarr@pobox.com&gt;</AUTHOR>

File module/lib/Error.pm

 use vars qw($VERSION);
 use 5.004;
 
-$VERSION = "0.15007"; 
+$VERSION = "0.15008"; 
 
 use overload (
 	'""'	   =>	'stringify',

File module/t/05text-errors-with-file-handles.t

     catch MyError::Foo with
     {
         my $err = shift;
-        # TEST
         $ok = 0;
     };
 };
 is($err->{-line}, 16, "Testing for correct line number");
 
 # TEST
-is($err->{-file}, File::Spec->catdir(File::Spec->curdir(), "t", "lib", "MyDie.pm"), "Testing for correct module");
+ok(($err->{-file} =~ m{MyDie\.pm$}), "Testing for correct module");