X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2Fswitchx.t;h=1c61ba89f168c0dbea0246f63a877add016c31eb;hb=15fe4dead04687a0a035e4103e5bb3965fa4c9f4;hp=4676d1abf4f8f77104e4fac88d92e4f22d2694f3;hpb=77818208643949320ba57536d6c01e6973ff7a4a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/run/switchx.t b/t/run/switchx.t
index 4676d1a..1c61ba8 100644
--- 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