update nonreg test bug_4620 following set/getenv changes 20/11120/2
Antoine ELIAS [Thu, 28 Mar 2013 08:16:22 +0000 (09:16 +0100)]
Change-Id: I9be190698e995754b792d05914518a5edebfad03

scilab/modules/io/tests/nonreg_tests/bug_4620.dia.ref
scilab/modules/io/tests/nonreg_tests/bug_4620.tst

index 4844f2f..e195086 100644 (file)
 //
 A = 1:100000;
 B = strcat(string(A),'');
-r = setenv('TEST_FOO',B);
-if r <> %f then bugmes();quit;end                    
+ierr = execstr('r = setenv(''TEST_FOO'',B);','errcatch');
+if ierr <> 0 then bugmes();quit;end
+//SetEnvironmentVaraible ( setenv on windows ) is able to set variable > 32767 ( _MAX_ENV )
+if getos() <> "Windows" then
+    if r <> %F then bugmes();quit;end
+    if getenv('TEST_FOO','') <> '' then bugmes();quit;end
+else
+    if r <> %T then bugmes();quit;end
+    if getenv('TEST_FOO','') <> B then bugmes();quit;end
+end
index 9f555a3..b86cd22 100644 (file)
 
 A = 1:100000;
 B = strcat(string(A),'');
-r = setenv('TEST_FOO',B);
-if r <> %f then pause,end                    
\ No newline at end of file
+
+ierr = execstr('r = setenv(''TEST_FOO'',B);','errcatch');
+if ierr <> 0 then pause,end
+
+//SetEnvironmentVaraible ( setenv on windows ) is able to set variable > 32767 ( _MAX_ENV )
+if getos() <> "Windows" then
+    if r <> %F then pause,end
+    if getenv('TEST_FOO','') <> '' then pause,end
+else
+    if r <> %T then pause,end
+    if getenv('TEST_FOO','') <> B then pause,end
+end
+