Item9363: use the Perl $^O in preference to Foswiki::cfg{OS} - that w…

…ay the condition actually activates on the test.

git-svn-id: http://svn.foswiki.org/trunk@8260 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

UnitTestContrib/test/unit/RobustnessTests.pm

@@ -16,7 +16,7 @@ sub set_up {
     my $this = shift;
     $this->SUPER::set_up();
     $this->{session} = new Foswiki();
-    $slash = ( $Foswiki::cfg{OS} eq 'WINDOWS' ) ? '\\' : '/';
+    $slash = ( $^O eq 'MSWin32' ) ? '\\' : '/';
     Foswiki::Sandbox::_assessPipeSupport();
 }
 
@@ -245,23 +245,23 @@ sub verify {
 
 sub test_executeRSP {
     my $this = shift;
-    return if $Foswiki::cfg{OS} eq 'WINDOWS';
+    return if ($^O eq 'MSWin32');
     $Foswiki::Sandbox::REAL_SAFE_PIPE_OPEN     = 1;
     $Foswiki::Sandbox::EMULATED_SAFE_PIPE_OPEN = 0;
     $this->verify();
 }
 
 sub test_executeESP {
     my $this = shift;
-    return if $Foswiki::cfg{OS} eq 'WINDOWS';
+    return if ($^O eq 'MSWin32');
     $Foswiki::Sandbox::REAL_SAFE_PIPE_OPEN     = 0;
     $Foswiki::Sandbox::EMULATED_SAFE_PIPE_OPEN = 1;
     $this->verify();
 }
 
 sub test_executeNSP {
     my $this = shift;
-    return if $Foswiki::cfg{OS} eq 'WINDOWS';
+    return if ($^O eq 'MSWin32');
     $Foswiki::Sandbox::REAL_SAFE_PIPE_OPEN     = 0;
     $Foswiki::Sandbox::EMULATED_SAFE_PIPE_OPEN = 0;
     $this->verify();