summaryrefslogtreecommitdiff
path: root/tests/purs/bundle/ObjectShorthand.purs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/purs/bundle/ObjectShorthand.purs')
-rw-r--r--tests/purs/bundle/ObjectShorthand.purs18
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/purs/bundle/ObjectShorthand.purs b/tests/purs/bundle/ObjectShorthand.purs
new file mode 100644
index 0000000..6914845
--- /dev/null
+++ b/tests/purs/bundle/ObjectShorthand.purs
@@ -0,0 +1,18 @@
+-- See issue #3741
+module Main (main) where
+
+import Prelude
+import Effect (Effect)
+import Effect.Console (log)
+import Test.Assert (assert')
+
+main :: Effect Unit
+main = do
+ assert' "bar" (bar.foo == 1)
+ assert' "quux" (quux 3 == { baz: 3 })
+ assert' "baz" bazIsEliminated
+ log "Done"
+
+foreign import bar :: { foo :: Int }
+foreign import quux :: forall a. a -> { baz :: a }
+foreign import bazIsEliminated :: Boolean