From 0d1ddef0a1945709419c8cb2567187f64c415531 Mon Sep 17 00:00:00 2001
From: Simon Marchetto <simon.marchetto@scilab-enterprises.com>
Date: Thu, 27 Mar 2014 10:36:16 +0100
Subject: [PATCH] scilab: implement constructor_copy test

---
 .../scilab/constructor_copy_runme.sci         | 36 +++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 Examples/test-suite/scilab/constructor_copy_runme.sci

diff --git a/Examples/test-suite/scilab/constructor_copy_runme.sci b/Examples/test-suite/scilab/constructor_copy_runme.sci
new file mode 100644
index 000000000..bfd2b1c20
--- /dev/null
+++ b/Examples/test-suite/scilab/constructor_copy_runme.sci
@@ -0,0 +1,36 @@
+exec("swigtest.start", -1);
+
+
+f1 = new_Foo1(3);
+f11 = new_Foo1(f1);
+
+checkequal(Foo1_x_get(f1), Foo1_x_get(f11), "Foo1_x_get(f1) <> Foo1_x_get(f11)");
+
+delete_Foo1(f1);
+delete_Foo1(f11);
+
+f8 = new_Foo8();
+try
+  f81 = new_Foo8(f8);
+  swigtesterror("Foo(f8) called.");
+catch
+end
+
+bi = new_Bari(5);
+bc = new_Bari(bi);
+
+checkequal(Bari_x_get(bi), Bari_x_get(bc), "Bar_x_get(bi) <> Bar_x_get(bc)");
+
+delete_Bari(bi);
+delete_Bari(bc);
+
+bd = new_Bard(5);
+try
+  bc = Bard(bd);
+  swigtesterror("Bard(bd) called.");
+catch
+end
+
+
+exec("swigtest.quit", -1);
+