11 lines
213 B
Racket
11 lines
213 B
Racket
#lang racket
|
|
(require tests/eli-tester
|
|
"ex-matthias-a.rkt")
|
|
|
|
(define memory (new memory%))
|
|
|
|
(define a (send memory malloc))
|
|
(test
|
|
(send memory free a)
|
|
(send memory free a) =error> #rx"disallowed call")
|