Change 11668 by jhi@alpha on 2001/08/14 13:01:02
Subject: [PATCH] magic.t
From: Nikola Knezevic <[EMAIL PROTECTED]>
Date: Sun, 12 Aug 2001 20:49:27 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/magic.t#33 edit
Differences ...
==== //depot/perl/t/op/magic.t#33 (xtext) ====
Index: perl/t/op/magic.t
--- perl/t/op/magic.t.~1~ Tue Aug 14 07:15:05 2001
+++ perl/t/op/magic.t Tue Aug 14 07:15:05 2001
@@ -32,7 +32,9 @@
print "1..41\n";
eval '$ENV{"FOO"} = "hi there";'; # check that ENV is inited inside eval
-if ($Is_MSWin32) { ok 1, `set FOO` eq "FOO=hi there\n"; }
+# cmd.exe will echo 'variable=value' but 4nt will echo just the value
+# -- Nikola Knezevic
+if ($Is_MSWin32) { ok 1, `set FOO` =~ /^(FOO=)?hi there$/; }
else { ok 1, `echo \$FOO` eq "hi there\n"; }
unlink 'ajslkdfpqjsjfk';
@@ -201,7 +203,9 @@
$ENV{__NoNeSuCh} = "foo";
$0 = "bar";
- ok 30, ($Is_MSWin32 ? (`set __NoNeSuCh` eq "__NoNeSuCh=foo\n")
+# cmd.exe will echo 'variable=value' but 4nt will echo just the value
+# -- Nikola Knezevic
+ ok 30, ($Is_MSWin32 ? (`set __NoNeSuCh` =~ /^(__NoNeSuCh=)?foo$/)
: (`echo \$__NoNeSuCh` eq "foo\n") );
}
End of Patch.
