source: trunk/test/src/octave/test_convert_obj_str.m @ 816

Last change on this file since 816 was 138, checked in by dkearney, 19 years ago

1) addition of octave/matlab test scripts, some still need work
2) the rpLibPutDoubleId and rpLibPutStringId functions are not quite working.
3) minor fixes to src/octave/rpLibPutDouble.cc and src/octave/rpUnitsGetBasis.cc
File size: 1.2 KB
Line 
1% ----------------------------------------------------------------------
2%  TEST: Octave's Rappture Library Test Functions.
3%
4%   [err] = test_element(lib, path)
5%
6%
7% ======================================================================
8%  AUTHOR:  Derrick Kearney, Purdue University
9%  Copyright (c) 2004-2005  Purdue Research Foundation
10%
11%  See the file "license.terms" for information on usage and
12%  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13% ======================================================================
14
15function [err] = test_element(lib,path)
16    err = 1;
17    printf("\n\nTESTING rpElement\n");
18    [nodeHandle,err] = rpElement(lib,path);
19    if nodeHandle && !err
20        [compStr,err] = rpNodeComp(nodeHandle);
21        printf ("%s compStr = %s\n", path, compStr);
22%        printf ("err = %i nodeHandle = %i\n",err,nodeHandle);
23
24        [idStr, err]  = rpNodeId(nodeHandle);
25        printf ("%s idStr   = %s\n", path, idStr);
26%        printf ("err = %i nodeHandle = %i\n",err,nodeHandle);
27
28        [typeStr,err] = rpNodeType(nodeHandle);
29        printf ("%s typeStr = %s\n", path, typeStr);
30%        printf ("err = %i nodeHandle = %i\n",err,nodeHandle);
31    else
32        printf("Error within rpElement function\n");
33    end
34end
Note: See TracBrowser for help on using the repository browser.