source: Promot/trunk/promot/kb/testsuite/mdl/test-create-links.mdl

Last change on this file was 9218, checked in by kolczyk, 15 years ago

add model for create-links test

File size: 1.2 KB
RevLine 
[9218]1(define-module
2  :class "test2"
3  :super-classes ("struct-model")
4  :geometry-width "300"
5  :geometry-height "300"
6  :terminals
7  (("in_term_1"
8    :is-a "term-struct-compound"
9    :geometry-side "TOP"
10    :geometry-position "0.515")
11   ("out_term_2"
12    :is-a "term-struct-compound"
13    :geometry-side "LEFT"
14    :geometry-position "0.40833333")
15   ("out_term_3"
16    :is-a "term-struct-output"
17    :geometry-side "BOTTOM"
18    :geometry-position "0.6016667")))
19
20
21(define-module
22  :class "test1"
23  :super-classes ("struct-model")
24  :geometry-width "300"
25  :geometry-height "300"
26  :terminals
27  (("in_term_2"
28    :is-a "term-struct-input"
29    :geometry-side "LEFT"
30    :geometry-position "0.54833335")
31   ("in_term_3"
32    :is-a "term-struct-compound"
33    :geometry-side "TOP"
34    :geometry-position "0.54833335")
35   ("out_term_1"
36    :is-a "term-struct-output"
37    :geometry-side "BOTTOM"
38    :geometry-position "0.5316667")))
39
40
41(define-module
42  :class "test_outer"
43  :super-classes ("struct-model")
44  :modules
45  (("test1"
46    :is-a "test1"
47    :geometry-x "190"
48    :geometry-y "103")
49   ("test2"
50    :is-a "test2"
51    :geometry-x "136"
52    :geometry-y "235")))
53
54
Note: See TracBrowser for help on using the repository browser.