carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

Add a valid use of a private binding to private-binding test

Browse Source
This commit is contained in:
scottolsen 2020-06-19 15:01:27 -04:00
parent 915a539d2d
commit 0b34f9b31a
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test-for-errors/private-bindings.carp
View File

@ -3,6 +3,11 @@
(deftype Foo [bar Int])
(private Foo.bar)
(defmodule Foo
(defn get [foo]
(Foo.bar foo))
)
(defn boo [] @(Foo.bar &(Foo.init 1)))
(defn main [] (println* (Foo.bar &(Foo.init 1))))

4
test/output/test-for-errors/private-bindings.carp.output.expected
View File

@ -1,2 +1,2 @@
private-bindings.carp:6:16 The binding: Foo.bar is private; it may only be used within the module that defines it.
private-bindings.carp:8:26 The binding: Foo.bar is private; it may only be used within the module that defines it.
private-bindings.carp:11:16 The binding: Foo.bar is private; it may only be used within the module that defines it.
private-bindings.carp:13:26 The binding: Foo.bar is private; it may only be used within the module that defines it.