steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

shapefiles: add tests verifying roundtrip save-and-load.

windows-high-dpi
John Benediktsson 2018-02-22 10:15:03 -08:00
parent 2e69bdf17c
commit 2a9b40f033
1 changed files with 53 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
extra/shapefiles/shapefiles-tests.factor Normal file
View File

@ -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