summaryrefslogtreecommitdiff
path: root/tests/purs/bundle/ObjectShorthand.purs
blob: 6914845ecbd0067fdd9da741cfdca986973082a2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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