#lang racket

;; =============================================================================
;; Generators (Fall 2020): generators-tests.rkt
;; =============================================================================

(require (only-in "generators.rkt" generator next)
         "test-support.rkt")

;; DO NOT EDIT ABOVE THIS LINE =================================================

(define/provide-test-suite generators-tests ;; DO NOT EDIT THIS LINE ===========
  ; TODO: Add your own tests below!
  (test-equal? "Basic test"
               (let ([my-generator ((generator (a) (begin (yield a)
                                                          (yield (+ 1 a))))
                                    5)])
                 (next my-generator)) 5))

;; DO NOT EDIT BELOW THIS LINE =================================================

(run-tests generators-tests)