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