#lang racket ;Stencil responsible TA: swaxman1 (require test-engine/racket-tests) (provide class call new) (define (raise-method-not-found-exception method-name) (raise-user-error (~a "Could not find method \"" method-name "\" in given object."))) (struct an-object #|FILL|#) (struct a-class #|FILL|#) (define-syntax class ;FILL ) (define-syntax call ;FILL ) (define (new class) ;FILL ) ;Sample test (class MyTestClass (fields [my-field 1]) (methods [get-my-field (lambda (self) my-field)])) (check-expect (call (new MyTestClass) get-my-field) 1) (test)