Update toolbox guide
Farid Belahcene [Fri, 1 Sep 2006 13:28:40 +0000 (13:28 +0000)]
scilab_doc/toolbox_guide/toolbox_example/unit_tests/tests.sce [new file with mode: 0644]

diff --git a/scilab_doc/toolbox_guide/toolbox_example/unit_tests/tests.sce b/scilab_doc/toolbox_guide/toolbox_example/unit_tests/tests.sce
new file mode 100644 (file)
index 0000000..ddb0915
--- /dev/null
@@ -0,0 +1,20 @@
+// Test the macros scilab: foo1
+ B=[1 2 3 4; 5 -6 7 8; 9 10 -11 12 ;-13 14 -15 16]
+ Xtest=[1;16]
+ X=foo1(B)
+ if norm(X-Xtest) > %eps then pause,end
+
+// Test the primitive: scisum
+ a=[1,2,3];b=[4,5,6]
+ c=sumab(a,b)
+ if norm(c-(a+b)) > %eps then pause,end
+
+// Test the primitivre: scifoo
+ A=[2 -4 6 8 9 -7 10 -3]
+ [X,Y]=fun(A)
+ Xtest=[2 6 8 9 10]
+ Ytest=35
+ if (norm(X-Xtest) > %eps | norm(Y-Ytest) > %eps) then pause,end
+ [Z]=fun(A)
+ Ztest=[2 6 8 9 10]
+ if norm(Z-Ztest) > %eps then pause,end