;; test cases for the automaton
(require
 "automaton.ss"
 (planet "test.ss" ("schematics" "schemeunit.plt" 1))
 (planet "text-ui.ss" ("schematics" "schemeunit.plt" 1)))


(define automaton-tests
  (make-test-suite
   "automaton-tests"

   (make-test-case
    "test-empty-aho-automaton-construction"
    (let ([my-automaton
           (aho-corasick-automaton start
              (start : accept "blah"))
           ])
      'ok))

   ))



(define (main args)
  (test/text-ui automaton-tests))