X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Flex_assign.t;h=e45f8eaba7d4268eb0efeda3f8a26203ec2c91a7;hb=93430cb427caeba01ba89b008008b46159a7c165;hp=d35f39c2c378a8995f06fd455865e1ec4afe698f;hpb=bbad36071d5a6d4be3588f0f10c88247439076d8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
old mode 100644
new mode 100755
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