(module support-test mzscheme
  
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
  (require "support.ss")
  
  (provide support-tests)
  
  (define support-tests
    (test-suite
     "All tests for support"

     (test-case
      "boolean is parse correctly"
      (check-true (boolean "true"))
      (check-false (boolean "false")))

     (test-case
      "string-array parses arrays of strings"
      (check-equal?
       (string-array "cheese\\, and wine,fromage,\\\\")
       (list "cheese, and wine" "fromage" "\\"))
      (check-equal?
       (string-array ",,,,,")
       (list "" "" "" "" "" "")))
     ))
  )