summary refs log tree commit diff stats
path: root/tests/compile/teffects1.nim
diff options
context:
space:
mode:
Diffstat (limited to 'tests/compile/teffects1.nim')
-rw-r--r--tests/compile/teffects1.nim17
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/compile/teffects1.nim b/tests/compile/teffects1.nim
new file mode 100644
index 000000000..49af28469
--- /dev/null
+++ b/tests/compile/teffects1.nim
@@ -0,0 +1,17 @@
+
+type
+  PMenu = ref object
+  PMenuItem = ref object
+
+proc createMenuItem*(menu: PMenu, label: string, 
+                     action: proc (i: PMenuItem, p: pointer) {.cdecl.}) = nil
+
+var s: PMenu
+createMenuItem(s, "Go to definition...",
+      proc (i: PMenuItem, p: pointer) {.cdecl.} =
+        try:
+          echo(i.repr)
+        except EInvalidValue:
+          echo("blah")
+)
+