extra/gml/gml-tests.factor

   1 USING: accessors combinators gml tools.test kernel sequences
   2 euler.b-rep ;
   3
   4 { } [ [ "vocab:gml/test-core.gml" run-gml-file ] make-gml 2drop ] unit-test
   5
   6 { } [ [ "vocab:gml/test-coremath.gml" run-gml-file ] make-gml 2drop ] unit-test
   7
   8 { } [ [ "vocab:gml/test-geometry.gml" run-gml-file ] make-gml 2drop ] unit-test
   9
  10 { } [
  11     [ "vocab:gml/examples/cube.gml" run-gml-file ] make-gml nip
  12     {
  13         [ check-b-rep ]
  14         [ faces>> length 9 assert= ]
  15         [ vertices>> length 9 assert= ]
  16         [ edges>> length 32 assert= ]
  17         [ genus 0 assert= ]
  18     } cleave
  19 ] unit-test
  20
  21 { } [
  22     [ "vocab:gml/examples/torus.gml" run-gml-file ] make-gml nip
  23     {
  24         [ check-b-rep ]
  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
  29         ! [ genus 1 assert= ]
  30     } cleave
  31 ] unit-test
  32
  33 { } [
  34     [ "vocab:gml/examples/mobius.gml" run-gml-file ] make-gml nip
  35     {
  36         [ check-b-rep ]
  37         [ genus 1 assert= ]
  38     } cleave
  39 ] unit-test