[perl-xml-cvs] CVS: xml-simple/t 3_Storable.t,1.3,1.4 5_MemCopy.t,1.2,1.3

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

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

Modified Files:
	3_Storable.t 5_MemCopy.t 
Log Message:
- changes to workaround test timing issues

Index: 3_Storable.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/3_Storable.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- 3_Storable.t	5 Feb 2002 22:28:31 -0000	1.3
+++ 3_Storable.t	14 Feb 2002 21:33:44 -0000	1.4
@@ -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

Index: 5_MemCopy.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/5_MemCopy.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- 5_MemCopy.t	5 Feb 2002 22:28:31 -0000	1.2
+++ 5_MemCopy.t	14 Feb 2002 21:33:44 -0000	1.3
@@ -201,6 +201,8 @@
 open(FILE, ">$XMLFile");              # Write some new data to the XML file
 print FILE qq(<opt one="1" two="2"></opt>\n);
 close(FILE);
+PassTime(time());                     # Ensure current time later than file time
+
 
                                       # Parse again with caching enabled
 $opt = XMLin($XMLFile, cache => 'memcopy');