[perl-xml-cvs] CVS: xml-simple/t 3_Storable.t,1.1.1.1.2.1,1.1.1.1.2.2

[Grant M. <gr...@us...>]

Update of /cvsroot/perl-xml/xml-simple/t
In directory usw-pr-cvs1:/tmp/cvs-serv20602/t

Modified Files:
      Tag: Release-1_06-maint
	3_Storable.t 
Log Message:
Release 1.08:
- release of 1.06 (no SAX code) with minor fixes ...
- searchpath defaults to current directory
- fix to Storable test routine for test failures on Win32
- removed obselete 'convert' script from distribution


Index: 3_Storable.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/3_Storable.t,v
retrieving revision 1.1.1.1.2.1
retrieving revision 1.1.1.1.2.2
diff -u -d -r1.1.1.1.2.1 -r1.1.1.1.2.2
--- 3_Storable.t	7 Feb 2002 22:48:38 -0000	1.1.1.1.2.1
+++ 3_Storable.t	9 Feb 2002 22:13:34 -0000	1.1.1.1.2.2
@@ -206,6 +206,7 @@
 open(FILE, ">$XMLFile");              # Re-create it (empty)
 close(FILE);
 PassTime((stat($XMLFile))[9]);        # But ensure cache file is newer
+unlink($CacheFile);                   # Seems to be rqd for test on Win32
 Storable::nstore($Expected, $CacheFile);
 $opt = XMLin($XMLFile, cache => 'storable');
 ok(12, DataCompare($opt, $Expected)); # Got what we expected from the cache