shapefiles: add tests verifying roundtrip save-and-load.
parent
2e69bdf17c
commit
2a9b40f033
|
@ -0,0 +1,53 @@
|
||||||
|
USING: kernel sequences shapefiles tools.test ;
|
||||||
|
IN: shapefiles.tests
|
||||||
|
|
||||||
|
: save-and-load? ( shapes -- ? )
|
||||||
|
[
|
||||||
|
[ save-shapes ] [ load-shapes sequence= ] 2bi
|
||||||
|
] with-test-file ;
|
||||||
|
|
||||||
|
{ t } [
|
||||||
|
{ null-shape } save-and-load?
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ t } [
|
||||||
|
{ null-shape T{ point f 1.0 2.0 } } save-and-load?
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ t } [
|
||||||
|
{ T{ point-m f 1.0 2.0 3.0 } } save-and-load?
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ t } [
|
||||||
|
{ T{ point-z f 1.0 2.0 3.0 4.0 } } save-and-load?
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ t } [
|
||||||
|
{ T{ polygon
|
||||||
|
{ box { 1.0 3.0 2.0 4.0 } }
|
||||||
|
{ parts { } }
|
||||||
|
{ points { T{ point f 1.0 2.0 } T{ point f 3.0 4.0 } } } }
|
||||||
|
} save-and-load?
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ t } [
|
||||||
|
{ T{ polygon-m
|
||||||
|
{ box { 1.0 3.0 2.0 4.0 } }
|
||||||
|
{ parts { } }
|
||||||
|
{ points { T{ point f 1.0 2.0 } T{ point f 3.0 4.0 } } }
|
||||||
|
{ m-range { 10.0 20.0 } }
|
||||||
|
{ m-array { 10.0 20.0 } } }
|
||||||
|
} save-and-load?
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ t } [
|
||||||
|
{ T{ polygon-z
|
||||||
|
{ box { 1.0 3.0 2.0 4.0 } }
|
||||||
|
{ parts { } }
|
||||||
|
{ points { T{ point f 1.0 2.0 } T{ point f 3.0 4.0 } } }
|
||||||
|
{ z-range { -10.0 -20.0 } }
|
||||||
|
{ z-array { -10.0 -20.0 } }
|
||||||
|
{ m-range { 10.0 20.0 } }
|
||||||
|
{ m-array { 10.0 20.0 } } }
|
||||||
|
} save-and-load?
|
||||||
|
] unit-test
|
Loading…
Reference in New Issue