Make test-implementation language expose all of `racket` rather than just `racket/base`, for convenience.

This commit is contained in:
Tony Garnock-Jones 2018-05-03 22:08:52 +01:00
parent f01b17dea4
commit ee0033b6be
4 changed files with 4 additions and 10 deletions

View File

@ -1,4 +1,4 @@
#lang racket/base
#lang racket
;; Test drivers for Syndicate implementation.
(provide collected-events
@ -23,15 +23,12 @@
run-syndicate-test!
log-test-result!
(all-from-out racket/base)
(all-from-out racket)
(all-from-out "main.rkt"))
(module reader syntax/module-reader imperative-syndicate/test-implementation)
(require racket/exn)
(require racket/match)
(require racket/set)
(require (only-in racket/string string-split string-join string-contains?))
(require "bag.rkt")
(require "main.rkt")

View File

@ -23,8 +23,8 @@
(define (only-seen-monitor-assertions?)
(lambda ()
(define actual-assertions (dataspace-assertions (final-dataspace)))
(define expected-assertions (make-hash (list (cons (observe (capture (discard))) 1))))
(define actual-assertions (final-assertions))
(define expected-assertions (set (observe (capture (discard)))))
(or (equal? actual-assertions expected-assertions)
(error 'only-seen-monitor-assertions? "Actual-assertions ~v <> expected-assertions ~v"
actual-assertions

View File

@ -12,8 +12,6 @@
;;
;; then the second one will see a literal `(discard)` for `z`!
(require racket/string)
(assertion-struct researcher (name topic))
(define no-mention-of-discard

View File

@ -45,7 +45,6 @@
(pause)
(local-require "../../bag.rkt")
(for [(a (in-bag (current-adhoc-assertions)))]
(local-require racket/match)
(match a
[(entry 'a _) (retract! a)]
[_ (void)]))