Silence irrelevant stderr output from op/magic.t
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 20 Feb 2013 13:28:46 +0000 (13:28 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 20 Feb 2013 13:28:46 +0000 (13:28 +0000)
Some 'set' commands in this test are intended to verify that an environment
variable is not set, which causes the command to send a warning message to
stderr.

t/op/magic.t

index 854790d..d06fcaa 100644 (file)
@@ -72,7 +72,7 @@ sub env_is {
        require Win32;
        my $cp = Win32::GetConsoleOutputCP();
        Win32::SetConsoleOutputCP(Win32::GetACP());
-        (my $set = `set $key`) =~ s/\r\n$/\n/;
+        (my $set = `set $key 2>nul`) =~ s/\r\n$/\n/;
        Win32::SetConsoleOutputCP($cp);
         like $set, qr/^(?:\Q$key\E=)?\Q$val\E$/, $desc;
     } elsif ($Is_VMS) {