update nonreg test bug_4620 following set/getenv changes
[scilab.git] / scilab / modules / io / tests / nonreg_tests / bug_4620.dia.ref
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