runperl may modify arguments passed to it.

[p5sagit/p5-mst-13.2.git] / t / run / switchx.t

diff --git a/t/run/switchx.t b/t/run/switchx.t
index 4676d1a..1c61ba8 100644 (file)
--- a/t/run/switchx.t
+++ b/t/run/switchx.t
@@ -6,5 +6,15 @@ BEGIN {
 }
 
 require './test.pl';
+use File::Spec::Functions;
 
-print runperl( switches => ['-x'], progfile => 'run/switchx.aux' );
+# Test '-x'
+print runperl( switches => ['-x'],
+               progfile => catfile(curdir(), 'run', 'switchx.aux') );
+
+# Test '-xdir'
+print runperl( switches => ['-x' . catfile(curdir(), 'run')],
+               progfile => catfile(curdir(), 'run', 'switchx2.aux'),
+               args     => [ 3 ] );
+
+# EOF