From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Sun, 12 Aug 2001 20:49:27 +0000 (+0200)
Subject: magic.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=26f6e34212a5795183f452bf7d44e768aae8a446;p=p5sagit%2Fp5-mst-13.2.git

magic.t
Message-ID: <844732764.20010812204927@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@11668
---

diff --git a/t/op/magic.t b/t/op/magic.t
index a847ca8..8d9b67b 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -32,7 +32,9 @@ $PERL = ($Is_MSWin32 ? '.\perl' : ($Is_NetWare ? 'perl' : './perl'));
 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 @@ else {
 
 	$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") );
 }