Revert "* Bugs #9838,9839,10196 fixed: evstr(strarray) 2.3 x faster + more robust...
[scilab.git] / scilab / modules / string / tests / nonreg_tests / bug_9838.tst
index 6f1d318..1ad3a39 100644 (file)
@@ -1,34 +1,21 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2011 - INRIA - Serge Steer
-// Copyright (C) 2017 - Samuel GOUGEON
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- CLI SHELL MODE -->
-// <-- NO CHECK REF -->
 //
 // <-- Non-regression test for bug 9838 -->
 //
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/9838
+// http://bugzilla.scilab.org/show_bug.cgi?id=9838
 //
 // <-- Short Description -->
-// evstr() froze on text components having some comments but no result
+// evstr freezes on some specific string
 //
-ni = "// no instruction";
-assert_checkequal(evstr(ni),[]);
-assert_checkequal(evstr([ni ni]),[]);
-assert_checkequal(evstr([ni ni]'),[]);
-t = [ni, " "+ni, "[] "+ni, "[] "+ni, " [] "+ni];
-assert_checkequal(evstr(t), []);
-t = [ t "3"];
-assert_checkequal(evstr(t),  [%nan %nan %nan %nan %nan 3]);
-assert_checkequal(evstr(t'), [%nan %nan %nan %nan %nan 3]');
-t($) = "%t";
-assert_checkequal(evstr(t),[%f %f %f %f %f %t]);
-t($) = """AbCd""";
-assert_checkequal(evstr(t),["" "" "" "" "" "AbCd"]);
-t($) = "int8(37)";
-assert_checkequal(evstr(t),int8([0 0 0 0 0 37]));
-
+assert_checkequal(evstr('//xxx'),[]);
+t=["1";
+   "2";
+   "//xxx"];
+assert_checkequal(evstr(t),[1;2]);