/[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 707 - (show annotations) (download) (as text)
Tue Jun 27 05:49:11 2006 UTC (14 years, 5 months ago) by johnpye
File MIME type: text/x-ascend
File size: 386 byte(s)
Lots of tidying up in instantiate.c.
Fixed up some GPL headers.
Changed from 'solver_var' to 'factor' in extfntest.a4c.
Added test for AtomAssigned in extfunc.c.
1 REQUIRE "atoms.a4l";
2 IMPORT "johnpye/extfn/extfntest";
3
4 MODEL test_extfntest;
5
6 y IS_A factor;
7 x IS_A factor;
8
9 do_addone: add_one(
10 x : INPUT;
11 y : OUTPUT
12 );
13
14 METHODS
15
16 METHOD specify;
17 FIX x;
18 END specify;
19 METHOD values;
20 x := 1.0;
21 END values;
22
23 METHOD default_self;
24 RUN specify; RUN values;
25 END default_self;
26
27 METHOD self_test;
28 ASSERT y == 2;
29 END self_test;
30
31 END test_extfntest;

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