126126eqns =  [connect (n1m1. port_a, pipe. port_a)
127127        connect (pipe. port_b, sink. port)]
128128
129- @named  sys =  System (eqns, t)
129+ @named  sys =  System (eqns, t; systems  =  [n1m1, pipe, sink] )
130130
131131eqns =  [domain_connect (fluid, n1m1. port_a)
132132        connect (n1m1. port_a, pipe. port_a)
@@ -141,7 +141,7 @@ ssort(eqs) = sort(eqs, by = string)
141141             0  ~  source. port1. m_flow -  port_a. m_flow
142142             source. port1. P ~  port_a. P
143143             source. port1. P ~  source. P
144-              source . port1 . h_outflow ~  port_a . h_outflow
144+              port_a . h_outflow ~  source . port1 . h_outflow
145145             source. port1. h_outflow ~  source. h])
146146@unpack  port_a, port_b =  pipe
147147@test  ssort (equations (expand_connections (pipe))) == 
@@ -151,11 +151,11 @@ ssort(eqs) = sort(eqs, by = string)
151151             port_a. P ~  port_b. P
152152             port_a. h_outflow ~  instream (port_b. h_outflow)
153153             port_b. h_outflow ~  instream (port_a. h_outflow)])
154- @test  ssort ( equations (expand_connections (sys)))  == 
155-       ssort ( [0  ~  n1m1. port_a. m_flow +  pipe. port_a. m_flow
156-               0  ~  pipe. port_b. m_flow +  sink. port. m_flow
157-               n1m1. port_a. P ~  pipe. port_a. P
158-               pipe. port_b. P ~  sink. port. P]) 
154+ @test  equations (expand_connections (sys))  ⊇ 
155+       [0  ~  n1m1. port_a. m_flow +  pipe. port_a. m_flow
156+        0  ~  pipe. port_b. m_flow +  sink. port. m_flow
157+        n1m1. port_a. P ~  pipe. port_a. P
158+        pipe. port_b. P ~  sink. port. P]
159159@test  ssort (equations (expand_connections (n1m1Test))) == 
160160      ssort ([0  ~  - pipe. port_a. m_flow -  pipe. port_b. m_flow
161161             0  ~  n1m1. source. port1. m_flow -  n1m1. port_a. m_flow
@@ -165,7 +165,7 @@ ssort(eqs) = sort(eqs, by = string)
165165             n1m1. port_a. P ~  pipe. port_a. P
166166             n1m1. source. port1. P ~  n1m1. port_a. P
167167             n1m1. source. port1. P ~  n1m1. source. P
168-              n1m1. source . port1 . h_outflow ~  n1m1. port_a . h_outflow
168+              n1m1. port_a . h_outflow ~  n1m1. source . port1 . h_outflow
169169             n1m1. source. port1. h_outflow ~  n1m1. source. h
170170             pipe. port_a. P ~  pipe. port_b. P
171171             pipe. port_a. h_outflow ~  sink. port. h_outflow
@@ -278,10 +278,8 @@ sys = expand_connections(compose(simple, [vp1, vp2, vp3]))
278278@test  ssort (equations (sys)) ==  ssort ([0  .~  collect (vp1. i)
279279             0  .~  collect (vp2. i)
280280             0  .~  collect (vp3. i)
281-              vp1. v[1 ] ~  vp2. v[1 ]
282-              vp1. v[2 ] ~  vp2. v[2 ]
283-              vp1. v[1 ] ~  vp3. v[1 ]
284-              vp1. v[2 ] ~  vp3. v[2 ]
281+              vp1. v ~  vp2. v
282+              vp1. v ~  vp3. v
285283             0  ~  - vp1. i[1 ] -  vp2. i[1 ] -  vp3. i[1 ]
286284             0  ~  - vp1. i[2 ] -  vp2. i[2 ] -  vp3. i[2 ]])
287285
0 commit comments