From 328d4278fc6dd0fcb6795480467db44799be688a Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Thu, 9 Jun 2011 18:32:25 -0400 Subject: [PATCH] fixing test case --- tests/test-parse-bytecode.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/test-parse-bytecode.rkt b/tests/test-parse-bytecode.rkt index 7f6ea55..7777b59 100644 --- a/tests/test-parse-bytecode.rkt +++ b/tests/test-parse-bytecode.rkt @@ -343,6 +343,7 @@ (? ModuleLocator?) (? Prefix?) ;; the prefix will include a reference to print-values. _ ;; requires + _ ;; provides (struct Splice ((list (struct ApplyValues ((struct ToplevelRef ('0 '0)) (struct Constant ('42))))))))))) #t])) @@ -357,6 +358,7 @@ (? ModuleLocator?) (? Prefix?) ;; the prefix will include a reference to print-values. _ ;; requires + _ ;; provides (struct Splice ((list (struct DefValues ((list (struct ToplevelRef ('0 '0))) (struct Constant ("x"))))))))))) @@ -420,6 +422,7 @@ (struct Prefix (list)) (list (struct ModuleLocator ('collects/racket/base.rkt _))) + _ ;; provides (struct Splice ('())))))) #t] [else @@ -437,6 +440,7 @@ (struct ModuleLocator ('self _ #;(build-path "root/foo/bar.rkt"))) (struct Prefix ((list 'f))) (list (struct ModuleLocator ('#%kernel '#%kernel))) + _ (struct Splice ((list (struct DefValues ((list (struct ToplevelRef (0 0))) (struct Constant ('ok))))))))))) '#t]))