private/tests/class.ss
(module class mzscheme
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 1)))
  (require (lib "class.ss"))
  (require "../../class.ss")

  (define my-class%
    (class object%
      (public my-method)
      (init-private foo)
      (init-private (bar 'default-bar))
      (define (my-method)
        (list foo bar))
      (super-new)))

  (define x (new my-class% (foo 'a-foo-value)))
  (define y (new my-class% (foo 'another-foo) (bar 'bar-bar-bar)))

  ;; TODO: make some tests!
  ;;  - default values
  ;;  - check that private names are private
  ;;  - check that init and init-field are distinct

  (define test-class
    (make-test-suite
     "all class.ss tests"
     ))

  (provide test-class))