From 90c57bb4baa9bf4b947c468bd79b51e1d68bd4c4 Mon Sep 17 00:00:00 2001
From: simon
Date: Tue, 21 Jul 2009 09:04:43 +0000
Subject: added test for Lev function updated INIT_FillSCI2LibCDirs

---
 tests/unit_tests/test_double_Lev.sci | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 tests/unit_tests/test_double_Lev.sci

(limited to 'tests/unit_tests/test_double_Lev.sci')

diff --git a/tests/unit_tests/test_double_Lev.sci b/tests/unit_tests/test_double_Lev.sci
new file mode 100644
index 00000000..d1669822
--- /dev/null
+++ b/tests/unit_tests/test_double_Lev.sci
@@ -0,0 +1,31 @@
+function test_double_Lev()
+
+	a = [1 2 3 4 5 6 7 8 9 10] ; 
+
+	disp(lev(a)) ;
+
+	[aa aaa] = lev(a);
+	disp(aa);
+	disp(aaa)
+
+	[a1 aa1 aaa1] = lev (a);
+	disp(a1);
+	disp(aa1);
+	disp(aaa1);
+	
+// complex
+	b =%i * [1 2 3 4 5 6 7 8 9 10] ; 
+
+	disp(lev(b)) ;
+
+	[bb bbb] = lev(b);
+	disp(bb);
+	disp(bbb)
+
+	[b1 bb1 bbb1] = lev (b);
+	disp(b1);
+	disp(bb1);
+	disp(bbb1);
+
+
+endfunction
-- 
cgit