Changeset 165 for trunk/test/src

Timestamp:

Jan 31, 2006, 2:49:49 PM (19 years ago)

Author:

dkearney

Message:

1) removing matlab and octave tests for put*id functions
2) adding old fortran examples
3) minor changes to matlab and octave to fix rpUnitsGetBasis
4) rpUnitsMakeMetric does not work in matlab
5) changes to fortran bindings to return proper error codes.
6) added debugging to matlab compiling options and changed outdir location in Makefile

Location:

trunk/test/src

Files:

• RpFortranDocExamples.f (added)
• RpMatlab_test.m (modified) (2 diffs)
• RpOctave_test.m (modified) (1 diff)
• matlab/test_put.m (modified) (1 diff)
• matlab/test_put_dbl_id.m (deleted)
• matlab/test_put_str_id.m (deleted)
• octave/test_put_dbl_id.m (deleted)
• octave/test_put_str_id.m (deleted)

trunk/test/src/RpMatlab_test.m

@@ -22 +22 @@
 %
 % cd test
-% matlab -nodisplay -r path\(path,\'src\'\),infile=\'rplib_test.xml\',RpMatlab_test
+% matlab -nodisplay -r path\(path,\'src\'\),path\(path,\'src\/matlab\'\),infile=\'rplib_test.xml\',RpMatlab_test
 
 %path(path,src');
@@ -55 +55 @@
 err = test_node_id(lib,'input.number(min)');
 err = test_node_type(lib,'input.number(min)');
-err = test_put(lib,'output.curve(result).xy(f12)','12 13',' ',1);
+err = test_put(lib,'output.curve(result).xy(f12)','12 13',1);
 err = test_put_dbl(lib,'output.curve(result).xy(f13)',22,1);
 err = test_put_dbl(lib,'output.curve(result).xy(f14)',0,1);

trunk/test/src/RpOctave_test.m

@@ -45 +45 @@
 err = test_node_id(lib,'input.number(min)');
 err = test_node_type(lib,'input.number(min)');
-err = test_put(lib,'output.curve(result).xy(f12)','12 13','',1);
+err = test_put(lib,'output.curve(result).xy(f12)','12 13',1);
 err = test_put_dbl(lib,'output.curve(result).xy(f13)',22,1);
 err = test_put_dbl(lib,'output.curve(result).xy(f14)',0,1);

trunk/test/src/matlab/test_put.m

@@ -13 +13 @@
 % ======================================================================
 
-function [err] = test_put(libHandle,path,value,id,append)
+function [err] = test_put(libHandle,path,value,append)
     err = 1;
     disp(sprintf('\n\nTESTING rpLibPut\n'));
-    [err] = rpLibPut(libHandle,path,value,id,append);
+    [err] = rpLibPut(libHandle,path,value,append);
     if ~err
-        if ~strcmp(id,'')
-            pathID = [path,'(',id,')']
-        else
-            pathID = path
-        end
-        [retStr, err] = rpLibGet(libHandle,pathID);
+        [retStr, err] = rpLibGet(libHandle,path);
         disp(sprintf ('retStr = %s\n',retStr));
         if ~err