16 lines
386 B
Racket
16 lines
386 B
Racket
#;
|
|
(exn-pred #rx"access disallowed by")
|
|
#lang racket/base
|
|
|
|
;; This test checks that TR's unsafe libraries are not accessible
|
|
;; from a sandboxed context
|
|
|
|
(require racket/sandbox)
|
|
|
|
(parameterize ([sandbox-memory-limit 1000])
|
|
(define eval (make-evaluator 'typed/racket))
|
|
(eval '(require typed/racket/unsafe))
|
|
|
|
;; should fail
|
|
(eval '(unsafe-require/typed racket/base [values 3])))
|