tests/moby-programs/begin.rkt
#lang s-exp "../../lang/wescheme.ss"

(require "../../lang/check-expect/test-expect.rkt")

(printf "begin.rkt\n")
(printf "You should see the string \"hello world\" immediately after this: ")

(begin (printf "hello ")
       (printf "world\n"))



(let ([counter 17])
  (test-expect (begin
		  counter
		  (set! counter (add1 counter))
		  counter)
		18))


(let ([counter 17])
  (test-expect (begin0 counter
			(set! counter (add1 counter))
			counter)
		17))

"begin.rkt end"