(module test-move-pos mzscheme
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2 8))
           (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2 8))
           "move-pos.ss")
  
  ;; helper function for get-move on strings.
  (define (gm s)
    (get-move (open-input-string s)))
  
  
  (define move-pos-tests
    (test-suite
     "test-move-pos.ss"
     (test-case
      "simple test"
      (check-equal? (apply-move (gm "hello") (make-loc 0 0 0))
                    (make-loc 0 5 5)))
     (test-case
      "another simple test"
      (check-equal? (apply-move (gm "hello\nworld")
                                (make-loc 0 0 0))
                    (make-loc 1 5 11)))
     
     (test-case
      "another simple test"
      (check-equal? (apply-move (move-compose (gm "hello")
                                              (move-compose (gm "\n")
                                                            (gm "world")))
                                (make-loc 0 0 0))
                    (make-loc 1 5 11)))))
  
  (test/text-ui move-pos-tests))