From db464f35f5a10b58d9ed1085e0b462689adee583 Mon Sep 17 00:00:00 2001
From: Siddhesh Wani
Date: Mon, 25 May 2015 14:46:31 +0530
Subject: Original Version

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

(limited to 'tests/unit_tests/double/test_Lev.sci')

diff --git a/tests/unit_tests/double/test_Lev.sci b/tests/unit_tests/double/test_Lev.sci
new file mode 100644
index 00000000..d3d01936
--- /dev/null
+++ b/tests/unit_tests/double/test_Lev.sci
@@ -0,0 +1,31 @@
+function test_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