tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Equality.scl

   1 import "Prelude"\r
   2 \r
   3 newEq = (==)\r
   4 \r
   5 main = """\r
   6 \(newEq () ())\r
   7 \(newEq True True)\r
   8 \(newEq False False)\r
   9 \(newEq True False)\r
  10 \(newEq False True)\r
  11 \(newEq (1::Integer) (1::Integer))\r
  12 \(newEq (1::Integer) (2::Integer))\r
  13 \(newEq (1::Long) (1::Long))\r
  14 \(newEq (1::Long) (2::Long))\r
  15 \(newEq (1::Double) (1::Double))\r
  16 \(newEq (1::Double) (2::Double))\r
  17 \(newEq "a" "a")\r
  18 \(newEq "a" "b")\r
  19 \(newEq (Just "a") (Just "a"))\r
  20 \(newEq (Just "a") (Just "b"))\r
  21 \(newEq Nothing Nothing)\r
  22 \(newEq (Just "a") Nothing)\r
  23 \(newEq Nothing (Just "a"))\r
  24 """\r
  25 --\r
  26 True\r
  27 True\r
  28 True\r
  29 False\r
  30 False\r
  31 True\r
  32 False\r
  33 True\r
  34 False\r
  35 True\r
  36 False\r
  37 True\r
  38 False\r
  39 True\r
  40 False\r
  41 True\r
  42 False\r
  43 False