From fa448c57481988132f26c9b556e1147637654df2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 20 Jan 2019 20:00:23 -0700 Subject: [PATCH] cs: adjust some core tests --- pkgs/racket-test-core/tests/racket/place.rktl | 12 ++++++++---- pkgs/racket-test-core/tests/racket/prompt.rktl | 5 ++++- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/place.rktl b/pkgs/racket-test-core/tests/racket/place.rktl index d16bbae67b..304832b909 100644 --- a/pkgs/racket-test-core/tests/racket/place.rktl +++ b/pkgs/racket-test-core/tests/racket/place.rktl @@ -10,14 +10,18 @@ (struct ts (a)) (err/rt-test (place-channel-put in (ts "k"))) + (define places-share-symbols? + (or (not (place-enabled?)) + (eq? 'chez-scheme (system-type 'vm)))) + (let () (define us (string->uninterned-symbol "foo")) (define us2 (string->uninterned-symbol "foo")) (place-channel-put in (cons us us)) (define r (place-channel-get out)) (test #t equal? (car r) (cdr r)) - (test (not (place-enabled?)) equal? us (car r)) - (test (not (place-enabled?)) equal? us (cdr r)) + (test places-share-symbols? equal? us (car r)) + (test places-share-symbols? equal? us (cdr r)) (test #f symbol-interned? (car r)) (test #f symbol-interned? (cdr r)) @@ -26,8 +30,8 @@ (test #f symbol-interned? (car r2)) (test #f symbol-interned? (cdr r2)) (test #f equal? (car r2) (cdr r2)) - (test (not (place-enabled?)) equal? us (car r2)) - (test (not (place-enabled?)) equal? us2 (cdr r2))) + (test places-share-symbols? equal? us (car r2)) + (test places-share-symbols? equal? us2 (cdr r2))) (let () (define us (string->unreadable-symbol "foo2")) diff --git a/pkgs/racket-test-core/tests/racket/prompt.rktl b/pkgs/racket-test-core/tests/racket/prompt.rktl index 3e255abd3c..542262ea45 100644 --- a/pkgs/racket-test-core/tests/racket/prompt.rktl +++ b/pkgs/racket-test-core/tests/racket/prompt.rktl @@ -423,7 +423,10 @@ ;;---------------------------------------- ;; Check continuation sharing -(let () +;; This check is useful for the traditional Racket VM, but it isn't as +;; interesting on Chez Scheme --- where the sharing is more obvious in +;; the implementation but not exposed as `eq?` continuations +(when (eq? 'racket (system-type 'vm)) (define (f x prev) (call/cc (lambda (k)