(module tests mzscheme
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 1))
           (planet "graphical-ui.ss" ("schematics" "schemeunit.plt" 1))
           "../../geocoder.ss")

  (define (contains-point? gps pair)
    (ormap (lambda (gp)
             (and (= (geo-point-longitude gp) (car pair))
                  (= (geo-point-latitude gp) (cdr pair))))
           gps))

  (define geocoder-tests
    (make-test-suite
     "geocoder tests"
     (make-test-case "Northeastern University"
                     (assert contains-point?
                             (geocode "360 Huntington Ave" "Boston" "MA" "02115")
                             (cons -71.089696 42.340097)))
     (make-test-case "University of Utah"
                     (assert contains-point?
                             (geocode "50 S Central Campus Dr" "Salt Lake City" "UT" "84112")
                             (cons -111.843995 40.767599)))
     (make-test-case "University of Chicago"
                     (assert contains-point?
                             (geocode "1100 E 58th St" "Chicago" "IL" "60637")
                             (cons -87.599556 41.789618)))
     (make-test-case "Brown University"
                     (assert contains-point?
                             (geocode "115 Waterman St" "Providence" "RI" "02912")
                             (cons -71.399185 41.827069)))))

  (define all-tests
    (make-test-suite
     "all geocoder.plt tests"
     geocoder-tests
     ))

  (test/graphical-ui all-tests)

  (provide all-tests))