Original Version

1 files changed, 23 insertions, 0 deletions

diff --git a/tests/unit_tests/double/test_OpLogNot.sci b/tests/unit_tests/double/test_OpLogNot.sci
new file mode 100644
index 00000000..70ef4969
--- /dev/null
+++ b/tests/unit_tests/double/test_OpLogNot.sci
@@ -0,0 +1,23 @@
+function test_OpLogNot()
+// test OpLogNot
+
+  disp(~(-2))
+  disp(~(0))
+  disp(~(3))
+
+  disp(~(0-2*%i))
+  disp(~(0+0*%i))
+  disp(~(0+3*%i))
+  disp(~(3-5*%i))
+  disp(~(3+0*%i))
+  disp(~(3+6*%i))
+
+  a=[-1 2 3; 0 -1 4; 2 -0 5];
+
+  disp(~(a))
+
+  b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0*%i]
+
+  disp(~(b))
+
+endfunction
\ No newline at end of file