make testsuite somewhat location independent

[p5sagit/p5-mst-13.2.git] / t / op / lex_assign.t

diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
old mode 100644 (file)
new mode 100755 (executable)
index d35f39c..e45f8ea
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 umask 0;
@@ -11,7 +11,7 @@ $xref = \ "";
 %h = (1..6);
 $aref = \@a;
 $href = \%h;
-open OP, qq{$^X -le 'print "aaa Ok ok" while \$i++ < 100'|};
+open OP, qq{$^X -le "print 'aaa Ok ok' for 1..100"|};
 $chopit = 'aaaaaa';
 @chopar = (113 .. 119);
 $posstr = '123456';
@@ -33,7 +33,8 @@ for (@INPUT) {
   $op = "$op==$op" unless $op =~ /==/;
   ($op, $expectop) = $op =~ /(.*)==(.*)/;
   
-  $skip = ($op =~ /^'\?\?\?'/) ? "skip" : "not";
+  $skip = ($op =~ /^'\?\?\?'/ or $comment =~ /skip\(.*\Q$^O\E.*\)/i)
+         ? "skip" : "not";
   $integer = ($comment =~ /^i_/) ? "use integer" : '' ;
   (print "#skipping $comment:\nok $ord\n"), next if $skip eq 'skip';
   
@@ -61,8 +62,8 @@ EOE
 __END__
 ref $xref                      # ref
 ref $cstr                      # ref nonref
-`ls`                           # backtick
-`$undefed`                     # backtick undef
+`ls`                           # backtick skip(MSWin32)
+`$undefed`                     # backtick undef skip(MSWin32)
 <*>                            # glob
 <OP>                           # readline
 'faked'                                # rcatline
@@ -178,7 +179,7 @@ chmod 'non-existent'                # chmod
 utime 'non-existent'           # utime
 rename 'non-existent', 'non-existent1' # rename
 link 'non-existent', 'non-existent1' # link
-symlink 'non-existent', 'non-existent1' # symlink
+'???'                          # symlink
 readlink 'non-existent', 'non-existent1' # readlink
 '???'                          # mkdir
 '???'                          # rmdir
@@ -186,9 +187,9 @@ readlink 'non-existent', 'non-existent1' # readlink
 '???'                          # fork
 '???'                          # wait
 '???'                          # waitpid
-system 'sh -c true'            # system
+system "$^X -e 0"              # system
 '???'                          # exec
-kill 0, $$                     # kill
+'???'                          # kill
 getppid                                # getppid
 getpgrp                                # getpgrp
 '???'                          # setpgrp