#lang racket
;Stencil responsible TA: swaxman1

(require test-engine/racket-tests)
(provide object call)

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

(define-syntax object
  ;FILL
  )

(define-syntax call
  ;FILL
  )

;This test should pass after all the FILLs are filled in.
;Make sure to check more than just this before submitting!
(check-expect
 (let ([my-test-object
        (object
         (fields [my-field 1])
         (methods [get-my-field (lambda (self) my-field)]))])
   (call my-test-object get-my-field)) 1)
(test)