#lang scheme
(require (planet cce/scheme:6:3/planet)
         (planet schematics/schemeunit))
(require/expose "../benchmarks/freq-count.ss" 
                ;(this-package-in benchmarks/freq-count)
                (gen cnt-ra.0 cnt-ra.1 cnt-vec cnt-alst cnt-BST cnt-ht))

(define str (gen 1000))

(define/provide-test-suite freq-count-tests
  (check-equal? (cnt-ra.0 str) (cnt-ra.1 str))
  (check-equal? (cnt-ra.0 str) (cnt-vec str))
  (check-equal? (cnt-ra.0 str) (cnt-alst str))
  (check-equal? (cnt-ra.0 str) (cnt-BST str))
  (check-equal? (cnt-ra.0 str) (cnt-ht str)))