#lang scheme/base
(require (planet schematics/schemeunit:3) "pa1.ss")
(require (planet schematics/schemeunit:3/text-ui))
; When first you run this, it will fetch and install SchemeUnit automatically.
; SchemeUnit documentation can be found at the following URL:
; http://planet.plt-scheme.org/package-source/schematics/schemeunit.plt/3/4/planet-docs/schemeunit/index.html

(define pa1-tests
  (test-suite
   "pa1"
   (check-equal? (sum-squares-largest 1 2 3) 13)
   (check-equal? (sublist '(a b c d e) 2 4) '(c d))
   (check-equal? (choose 4 2) 6)
   (check-equal? (first-half '(a b c d e)) '(a b))
   (check-equal? (second-half '(a b c d e)) '(c d e))
   (check-equal? (merge < '(1 3) '(2 4)) '(1 2 3 4))
   (check-equal? (merge-sort < '(4 3 2 1)) '(1 2 3 4))
   (check-equal? (sort-numbers-decreasing  '(1 2 3 4)) '(4 3 2 1))
   (check-equal? (apply string-append
                        (sort-strings-increasing  '("job " "mate!" "Good ")))
                 "Good job mate!")))

(run-tests pa1-tests)