test.lisp

   1 (defpackage phoros-test
   2   (:use :common-lisp :phoros :rt))
   3
   4 (in-package phoros-test)
   5
   6 (deftest cs2cs/1
   7     (proj:cs2cs (list (proj:degrees-to-radians -112.5d0)
   8                       (proj:degrees-to-radians +45.25919444444d0)
   9                       100d0)
  10                 :source-cs "+proj=latlong +datum=NAD83"
  11                 :destination-cs "+proj=utm +zone=10 +datum=NAD27")
  12   (1323852.8261961075 5065462.320411285 99.99994720239192))
  13
  14 (deftest geographic-to-utm/1
  15     (phoros::geographic-to-utm 31 13d0 50d0 200d0)
  16   (1216025.3178661424 5586720.844934666 200.0))
  17
  18 (deftest geographic-to-utm/2
  19     (phoros::geographic-to-utm 32 13d0 50d0 200d0)
  20   (786627.9510428045 5546300.84739345 200.0))