Tests

Author: YingboMa

test/components.jl

@@ -55,3 +55,25 @@ D = Differential(t)
 @named sys1 = extend(ODESystem([D(x3) ~ x3], t; name=:foo), sys1_partial)
 @named sys2 = compose(ODESystem([D(x4) ~ x4], t; name=:foo), sys1)
 @test_nowarn sys2.sys1.sys1_inner.x1 # test the correct nesting
+
+
+# compose tests
+@parameters t
+
+function record_fun(;name)
+    pars = @parameters a=10 b=100
+    ODESystem(Equation[], t, [], pars; name)
+end
+
+function first_model(;name)
+    @named foo=record_fun()
+
+    defs = Dict()
+    defs[foo.a] = 3
+    defs[foo.b] = 300
+    pars = @parameters x=2 y=20
+    compose(ODESystem(Equation[], t, [], pars; name, defaults=defs), foo)
+end
+@named foo = first_model()
+@test ModelingToolkit.defaults(foo)[foo.a] == 3
+@test ModelingToolkit.defaults(foo)[foo.b] == 300