2 USING: accessors combinators gml tools.test kernel sequences euler.b-rep ;
4 { } [ [ "vocab:gml/test-core.gml" run-gml-file ] make-gml 2drop ] unit-test
6 { } [ [ "vocab:gml/test-coremath.gml" run-gml-file ] make-gml 2drop ] unit-test
8 { } [ [ "vocab:gml/test-geometry.gml" run-gml-file ] make-gml 2drop ] unit-test
11 [ "vocab:gml/examples/cube.gml" run-gml-file ] make-gml nip
14 [ faces>> length 9 assert= ]
15 [ vertices>> length 9 assert= ]
16 [ edges>> length 32 assert= ]
22 [ "vocab:gml/examples/torus.gml" run-gml-file ] make-gml nip
25 [ faces>> [ base-face? ] partition [ length 10 assert= ] [ length 2 assert= ] bi* ]
26 [ vertices>> length 16 assert= ]
27 [ edges>> length 48 assert= ]
28 ! faces are not convex in this example
34 [ "vocab:gml/examples/mobius.gml" run-gml-file ] make-gml nip