Add non regression test for bug 3339.

diff --git a/scilab/modules/gui/tests/nonreg_tests/bug_3339.tst b/scilab/modules/gui/tests/nonreg_tests/bug_3339.tst
new file mode 100644 (file)
index 0000000..2490c3d
--- /dev/null
+++ b/scilab/modules/gui/tests/nonreg_tests/bug_3339.tst
@@ -0,0 +1,36 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Jean-Baptiste Silvy
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- TEST WITH GRAPHIC -->
+//
+// <-- Non-regression test for bug 3339 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3339
+//
+// <-- Short Description -->
+//    When closing metanet demo (metro demo) some java Excpetion occure.
+
+// create figures with uimenus and destroy them
+// this used to generate java exceptions
+for i = 1:100,
+  f=figure('position', [10 10 300 200]);
+  // create a figure
+  m=uimenu(f,'label', 'windows');
+  // create an item on the menu bar
+  m1=uimenu(m,'label', 'operations');
+  m2=uimenu(m,'label', 'quit scilab', 'callback', "exit");
+  //create two items in the menu "windows"
+  m11=uimenu(m1,'label', 'new window', 'callback',"xselect()");
+  m12=uimenu(m1,'label', 'clear  window', 'callback',"xbasc()");
+  // create a submenu to the item "operations"
+  close(f);
+end
+
+
+
+