Non reg test for 3802
Sylvestre Ledru [Mon, 8 Dec 2008 07:16:54 +0000 (08:16 +0100)]
scilab/modules/localization/tests/nonreg_tests/bug_3802.dia.ref [new file with mode: 0644]
scilab/modules/localization/tests/nonreg_tests/bug_3802.tst [new file with mode: 0644]

diff --git a/scilab/modules/localization/tests/nonreg_tests/bug_3802.dia.ref b/scilab/modules/localization/tests/nonreg_tests/bug_3802.dia.ref
new file mode 100644 (file)
index 0000000..02708eb
--- /dev/null
@@ -0,0 +1,17 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 3802 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3802
+//
+// <-- Short Description -->
+//    When Scilab is launched in French, Tcl creates error (when it is working
+//       in english)
+// <-- FRENCH IMPOSED -->
+TclCMD="TCL_EvalStr(""destroy .t;pack [text .t];set ts [expr 12/[tk scaling]];.t conf -tabs $ts;.t cget -tabs"")";
+if execstr(TclCMD, "errcatch")<>0 then bugmes();quit;end
diff --git a/scilab/modules/localization/tests/nonreg_tests/bug_3802.tst b/scilab/modules/localization/tests/nonreg_tests/bug_3802.tst
new file mode 100644 (file)
index 0000000..6a56a8a
--- /dev/null
@@ -0,0 +1,19 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- Non-regression test for bug 3802 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3802
+//
+// <-- Short Description -->
+//    When Scilab is launched in French, Tcl creates error (when it is working 
+//       in english)
+// <-- FRENCH IMPOSED -->
+
+TclCMD="TCL_EvalStr(""destroy .t;pack [text .t];set ts [expr 12/[tk scaling]];.t conf -tabs $ts;.t cget -tabs"")";
+if execstr(TclCMD, "errcatch")<>0 then pause; end