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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 758 - (show annotations) (download) (as text)
Thu Jul 13 01:15:58 2006 UTC (18 years ago) by johnpye
File MIME type: text/x-ascend
File size: 660 byte(s)
Some extfn test cases.
1 REQUIRE "atoms.a4l";
2 IMPORT "johnpye/extfn/extfntest";
3
4 (*
5 This is a test model to ensure that repeated instances of the same
6 external relation behave correctly. This is because the 'anoncopy' stuff
7 wasn't working for my extrel hack when I tried it -- JP
8 *)
9 MODEL extrelrepeat;
10
11 x IS_A factor;
12 y IS_A factor;
13 z IS_A factor;
14
15 do_it_once: add_one(
16 x : INPUT;
17 y : OUTPUT
18 );
19
20 do_it_again: add_one(
21 y : INPUT;
22 z : OUTPUT
23 );
24
25 METHODS
26 METHOD specify;
27 FIX x;
28 END specify;
29 METHOD values;
30 x := 1.0;
31 END values;
32
33 METHOD default_self;
34 RUN specify; RUN values;
35 END default_self;
36
37 METHOD self_test;
38 ASSERT z == 3.0;
39 END self_test;
40
41 END extrelrepeat;

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