/[ascend]/trunk/models/johnpye/extfn/extfntest.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/extfn/extfntest.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 370 - (show annotations) (download) (as text)
Fri Mar 10 09:14:50 2006 UTC (18 years, 3 months ago) by johnpye
File MIME type: text/x-ascend
File size: 440 byte(s)
Renaming without the 'pkg' prefix.
1 REQUIRE "system.a4l";
2 IMPORT extfntest_register FROM extfntest;
3
4 MODEL test_extfntest;
5
6 y IS_A solver_var;
7 x IS_A solver_var;
8 d IS_A real;
9
10 do_addone: add_one(
11 x : INPUT;
12 y : OUTPUT;
13 d : DATA
14 );
15
16 METHODS
17
18 METHOD specify;
19 FIX x;
20 END specify;
21 METHOD values;
22 x := 1.0;
23 d := 3.5;
24 END values;
25
26 METHOD default_self;
27 RUN specify; RUN values;
28 END default_self;
29
30 METHOD self_test;
31 ASSERT y == 2;
32 END self_test;
33
34 END test_extfntest;

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22