[svn:ExtUtils-CBuilder] r12982 - in ExtUtils-CBuilder/trunk: . t

Author: dagolden
Date: Wed Jul  1 06:37:34 2009
New Revision: 12982

Modified:
   ExtUtils-CBuilder/trunk/Changes
   ExtUtils-CBuilder/trunk/t/01-basic.t
   ExtUtils-CBuilder/trunk/t/02-link.t

Log:
on VMS, cleanup left over test files

Modified: ExtUtils-CBuilder/trunk/Changes
==============================================================================
--- ExtUtils-CBuilder/trunk/Changes	(original)
+++ ExtUtils-CBuilder/trunk/Changes	Wed Jul  1 06:37:34 2009
@@ -2,6 +2,10 @@
 
 0.26_01 - 
 
+ Bugs fixed:
+ - On VMS, cleans up extra files generated during testing
+   [John E. Malmberg, Craig Berry]
+
 0.26 - Mon Jun 29 20:11:52 EDT 2009
 
  - No changes from 0.25_01

Modified: ExtUtils-CBuilder/trunk/t/01-basic.t
==============================================================================
--- ExtUtils-CBuilder/trunk/t/01-basic.t	(original)
+++ ExtUtils-CBuilder/trunk/t/01-basic.t	Wed Jul  1 06:37:34 2009
@@ -66,6 +66,11 @@
   1 while unlink;
 }
 
+if ($^O eq 'VMS') {
+   1 while unlink 'COMPILET.LIS';
+   1 while unlink 'COMPILET.OPT';
+}
+
 my @words = $b->split_like_shell(' foo bar');
 
 SKIP: {

Modified: ExtUtils-CBuilder/trunk/t/02-link.t
==============================================================================
--- ExtUtils-CBuilder/trunk/t/02-link.t	(original)
+++ ExtUtils-CBuilder/trunk/t/02-link.t	Wed Jul  1 06:37:34 2009
@@ -85,6 +85,11 @@
   1 while unlink;
 }
 
+if ($^O eq 'VMS') {
+   1 while unlink 'COMPILET.LIS';
+   1 while unlink 'COMPILET.OPT';
+}
+
 sub my_system {
   my $cmd = shift;
   if ($^O eq 'VMS') {