Fix up write-string test.

dvanhorn · dvanhorn · commit 1d9ac7e6b094 · 2021-12-30T21:11:54.000-05:00
diff --git a/langs/outlaw/test/test-runner.rkt b/langs/outlaw/test/test-runner.rkt
@@ -726,7 +726,7 @@
   (check-equal? (run "" '(write-char #\newline))
                 (cons (void) "\n"))
   (check-equal? (run "" '(write-string "hello world"))
-                (cons (void) "hello world"))
+                (cons 11 "hello world"))
   (check-equal? (run "" '(displayln "hello world"))
                 (cons (void) "hello world\n"))
   )

Original file line number	Diff line number	Diff line change
`@@ -726,7 +726,7 @@`
`726`	`726`	`(check-equal? (run "" '(write-char #\newline))`
`727`	`727`	`(cons (void) "\n"))`
`728`	`728`	`(check-equal? (run "" '(write-string "hello world"))`
`729`		`- (cons (void) "hello world"))`
	`729`	`+ (cons 11 "hello world"))`
`730`	`730`	`(check-equal? (run "" '(displayln "hello world"))`
`731`	`731`	`(cons (void) "hello world\n"))`
`732`	`732`	`)`