dup saved_curcop in PL_parser

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

diff --git a/t/run/switchx.t b/t/run/switchx.t
index 60a522c..1c61ba8 100644 (file)
--- a/t/run/switchx.t
+++ b/t/run/switchx.t
@@ -8,4 +8,13 @@ BEGIN {
 require './test.pl';
 use File::Spec::Functions;
 
-print runperl( switches => ['-x'], progfile => catfile(curdir(), '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