mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-17 08:27:45 +03:00
test: add match given-away value error test (#1351)
This commit is contained in:
parent
c471fcce89
commit
4e02c452dc
@ -0,0 +1 @@
|
|||||||
|
match-given-away-value.carp:9:16 Referencing a given-away value 'e'.
|
9
test/test-for-errors/match-given-away-value.carp
Normal file
9
test/test-for-errors/match-given-away-value.carp
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
(Project.config "file-path-print-length" "short")
|
||||||
|
|
||||||
|
(deftype Example (A [String String]))
|
||||||
|
|
||||||
|
(defn f []
|
||||||
|
(let-do [e (Example.A @"x" @"y")]
|
||||||
|
(match e
|
||||||
|
(Example.A a b) ())
|
||||||
|
(println* &e)))
|
Loading…
Reference in New Issue
Block a user