Fixing PR10485
This commit is contained in:
parent
6a99c93ebb
commit
d64d620c00
11
collects/tests/plai/datatype-coverage.rkt
Normal file
11
collects/tests/plai/datatype-coverage.rkt
Normal file
|
@ -0,0 +1,11 @@
|
||||||
|
#lang plai
|
||||||
|
;; RE: PR10485
|
||||||
|
(define-type toy
|
||||||
|
[airplane (lift number?) (name string?)])
|
||||||
|
|
||||||
|
(type-case toy (airplane 3412 "the bat!")
|
||||||
|
[airplane (lift name) (+ lift 13)])
|
||||||
|
|
||||||
|
;; The body of this function should be the only red in the file
|
||||||
|
(define (f x)
|
||||||
|
(+ 1 1))
|
Loading…
Reference in New Issue
Block a user