(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))