#lang mzscheme

(require srfi/26/cut)

(require (file "gen.ss")
         (file "test-base.ss"))

(provide gen-tests)

(define gen-tests
  (test-suite "gen.ss"
    
    (test-case "all defined values are defined"
      ;; generator-test.ss tests the actual functionality
      ;; of the generator library.  This test simply tests
      ;; all the names that should be defined are defined.
      ;; This check is actually done by the compiler -- all
      ;; we need do is list the names we expect.
      list->generator
      g:end
      g:end?
      g:map
      g:fold
      g:filter
      g:filter-map
      g:remove-duplicates
      g:debug
      g:for-each
      g:collect)
    
    ))