[Bps-public-commit] r10366 - bpsbuilder/BPB/lib/BPB

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Jan 16 01:47:40 2008
New Revision: 10366

Modified:
   bpsbuilder/BPB/lib/BPB/Backend.pm
   bpsbuilder/BPB/lib/BPB/Build.pm

Log:
we should generate a temporary test script

Modified: bpsbuilder/BPB/lib/BPB/Backend.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend.pm	Wed Jan 16 01:47:40 2008
@@ -250,9 +250,16 @@
 }
 
 sub test {
-    substitute(File::Spec->catfile( 't', 'test' ));
+
+    my ( $source, $target ) = (
+        File::Spec->catfile( 't', 'test' ),
+        File::Spec->catfile( 't', '__test' )
+    );
+    copy( $source, $target );
+    chmod 0755, $target;
+    substitute($target);
     print "run tests: \n";
-    system( File::Spec->catfile( 't', 'test' ) );
+    system($target);
 }
 
 EOF

Modified: bpsbuilder/BPB/lib/BPB/Build.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Build.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Build.pm	Wed Jan 16 01:47:40 2008
@@ -181,9 +181,15 @@
 sub test {
     my $self = shift;
 
-    $self->_substitute(File::Spec->catfile( 't', 'test' ));
+    my ( $source, $target ) = (
+        File::Spec->catfile( 't', 'test' ),
+        File::Spec->catfile( 't', '__test' )
+    );
+    copy( $source, $target );
+    chmod 0755, $target;
+    $self->_substitute($target);
     $self->log->info( 'run tests:' );
-    BPB::Util->run( [ File::Spec->catfile( 't', 'test' ) ]);
+    BPB::Util->run( [ $target ] );
 }
 
 1;