18 lines
460 B
Racket
18 lines
460 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)
|
|
|
|
;; this doesn't need a memory limit
|
|
(parameterize ([sandbox-memory-limit #f]
|
|
[sandbox-eval-limits #f])
|
|
(define eval (make-evaluator 'typed/racket))
|
|
(eval '(require typed/racket/unsafe))
|
|
|
|
;; should fail
|
|
(eval '(unsafe-require/typed racket/base [values 3])))
|