source: trunk/test/src/RpOctave_test.m @ 200

Last change on this file since 200 was 165, checked in by dkearney, 19 years ago

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

File size: 1.9 KB
Line 
1% ----------------------------------------------------------------------
2%  TEST: Octave's Rappture Library Test Functions.
3%
4%
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
15op = sprintf("%s:%s", path(), 'src/octave//');
16op = path(op);
17
18infile = sprintf("%s",argv(1,:));
19lib = rpLib(infile);
20err = test_element(lib,'input.number(min)');
21err = test_element_comp(lib,'input.number(min)');
22err = test_children(lib,'input');
23err = test_children_bytype(lib,'input','number');
24err = test_convert('1m','cm',0);
25err = test_convert('1m','cm',1);
26err = test_convert('1eV','J',1);
27err = test_convert_dbl('1eV','J');
28err = test_convert_str('1eV','J',0);
29err = test_convert_str('1eV','J',1);
30err = test_define_unit('We',0);
31err = test_define_unit('We2',0);
32err = test_find('We');
33err = test_get(lib,'output.curve(result).about.label');
34err = test_get_string(lib,'output.curve(result).about.label');
35err = test_get_basis('cm');
36err = test_get_basis('We');
37err = test_get_double(lib,'input.number(max).current');
38err = test_get_exponent('cm');
39err = test_get_exponent('We2');
40err = test_get_units('We2');
41err = test_get_units_name('We2');
42err = test_make_metric('We2');
43err = test_node_comp(lib,'input.number(min)');
44%err = test_node_comp(0,'input.nur(min)');
45err = test_node_id(lib,'input.number(min)');
46err = test_node_type(lib,'input.number(min)');
47err = test_put(lib,'output.curve(result).xy(f12)','12 13',1);
48err = test_put_dbl(lib,'output.curve(result).xy(f13)',22,1);
49err = test_put_dbl(lib,'output.curve(result).xy(f14)',0,1);
50err = test_put_str(lib,'output.curve(result).xy(f15)','110 111',1);
51err = test_xml(lib);
52err = test_result(lib);
Note: See TracBrowser for help on using the repository browser.