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