* Unitary tests added on with_embedded_jre, javaclasspath & javalibrarypath 13/3013/3
Sylvestre Ledru [Mon, 24 Jan 2011 14:09:21 +0000 (15:09 +0100)]
* Check on the number of input arguments of with_embedded_jre added

Change-Id: Id754c20a74733d1c2cdc85a0b1f5f0f09c827b70

scilab/modules/jvm/sci_gateway/c/sci_with_embedded_jre.c
scilab/modules/jvm/tests/unit_tests/javaclasspath.dia.ref [new file with mode: 0644]
scilab/modules/jvm/tests/unit_tests/javaclasspath.tst [new file with mode: 0644]
scilab/modules/jvm/tests/unit_tests/javalibrarypath.dia.ref [new file with mode: 0644]
scilab/modules/jvm/tests/unit_tests/javalibrarypath.tst [new file with mode: 0644]
scilab/modules/jvm/tests/unit_tests/system_setproperty.dia.ref
scilab/modules/jvm/tests/unit_tests/system_setproperty.tst
scilab/modules/jvm/tests/unit_tests/with_embedded_jre.dia.ref [new file with mode: 0644]
scilab/modules/jvm/tests/unit_tests/with_embedded_jre.tst [new file with mode: 0644]

index ea5619b..096caf3 100644 (file)
 /*--------------------------------------------------------------------------*/
 int sci_with_embedded_jre(char *fname,unsigned long fname_len)
 {
-       static int n1=0,l1=0;
-       n1=1;
-       CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
-       *istk(l1)=(int)withEmbeddedJRE();
-       
-       LhsVar(1)=Rhs+1;
-       C2F(putlhsvar)();
-       return 0;
+    static int n1=0,l1=0;
+    CheckRhs(0,0);
+    n1=1;
+    CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
+    *istk(l1)=(int)withEmbeddedJRE();
+    
+    LhsVar(1)=Rhs+1;
+    C2F(putlhsvar)();
+    return 0;
 }
 /*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/jvm/tests/unit_tests/javaclasspath.dia.ref b/scilab/modules/jvm/tests/unit_tests/javaclasspath.dia.ref
new file mode 100644 (file)
index 0000000..927c4a3
--- /dev/null
@@ -0,0 +1,13 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+ierr = execstr('a = javaclasspath(2);','errcatch');
+if ierr <> 999 then bugmes();quit;end
+result = javaclasspath();
+if size(result,"*") < 1 then bugmes();quit;end
+// Does not return anything
+ierr = execstr('javaclasspath(TMPDIR);;','errcatch');
+if ierr <> 0 then bugmes();quit;end
diff --git a/scilab/modules/jvm/tests/unit_tests/javaclasspath.tst b/scilab/modules/jvm/tests/unit_tests/javaclasspath.tst
new file mode 100644 (file)
index 0000000..ab7ddb2
--- /dev/null
@@ -0,0 +1,16 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+ierr = execstr('a = javaclasspath(2);','errcatch');
+if ierr <> 999 then pause,end
+
+result = javaclasspath();
+if size(result,"*") < 1 then pause, end
+
+// Does not return anything
+ierr = execstr('javaclasspath(TMPDIR);;','errcatch');
+if ierr <> 0 then pause,end
diff --git a/scilab/modules/jvm/tests/unit_tests/javalibrarypath.dia.ref b/scilab/modules/jvm/tests/unit_tests/javalibrarypath.dia.ref
new file mode 100644 (file)
index 0000000..e5cb6c2
--- /dev/null
@@ -0,0 +1,13 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+ierr = execstr('a = javalibrarypath(2);','errcatch');
+if ierr <> 999 then bugmes();quit;end
+result = javalibrarypath();
+if size(result,"*") < 1 then bugmes();quit;end
+// Does not return anything
+ierr = execstr('javalibrarypath(TMPDIR);;','errcatch');
+if ierr <> 0 then bugmes();quit;end
diff --git a/scilab/modules/jvm/tests/unit_tests/javalibrarypath.tst b/scilab/modules/jvm/tests/unit_tests/javalibrarypath.tst
new file mode 100644 (file)
index 0000000..b2ad5c1
--- /dev/null
@@ -0,0 +1,16 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+ierr = execstr('a = javalibrarypath(2);','errcatch');
+if ierr <> 999 then pause,end
+
+result = javalibrarypath();
+if size(result,"*") < 1 then pause, end
+
+// Does not return anything
+ierr = execstr('javalibrarypath(TMPDIR);;','errcatch');
+if ierr <> 0 then pause,end
index 33f8507..34ff319 100644 (file)
@@ -6,6 +6,8 @@
 // =============================================================================
 ierr = execstr('system_setproperty();','errcatch');
 if ierr <> 77 then bugmes();quit;end
+ierr = execstr('system_getproperty();','errcatch');
+if ierr <> 77 then bugmes();quit;end
 ierr = execstr('a = system_setproperty(''TOTO'',2);','errcatch');
 if ierr <> 999 then bugmes();quit;end
 r = system_getproperty('TOTO');
index 0f11403..5efc15e 100644 (file)
@@ -8,6 +8,9 @@
 ierr = execstr('system_setproperty();','errcatch');
 if ierr <> 77 then pause,end
 
+ierr = execstr('system_getproperty();','errcatch');
+if ierr <> 77 then pause,end
+
 ierr = execstr('a = system_setproperty(''TOTO'',2);','errcatch');
 if ierr <> 999 then pause,end
 
diff --git a/scilab/modules/jvm/tests/unit_tests/with_embedded_jre.dia.ref b/scilab/modules/jvm/tests/unit_tests/with_embedded_jre.dia.ref
new file mode 100644 (file)
index 0000000..d29d234
--- /dev/null
@@ -0,0 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+ierr = execstr('a = with_embedded_jre(''TOTO'',2);','errcatch');
+if ierr <> 77 then bugmes();quit;end
+result = with_embedded_jre();
+if result <> %t & result <> %f then bugmes();quit;end
diff --git a/scilab/modules/jvm/tests/unit_tests/with_embedded_jre.tst b/scilab/modules/jvm/tests/unit_tests/with_embedded_jre.tst
new file mode 100644 (file)
index 0000000..03a68d9
--- /dev/null
@@ -0,0 +1,12 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+ierr = execstr('a = with_embedded_jre(''TOTO'',2);','errcatch');
+if ierr <> 77 then pause,end
+
+result = with_embedded_jre();
+if result <> %t & result <> %f then pause, end