X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FRecord1.scl;h=244c95dca6b12eb906fc869bc52ca7f2e0703f9d;hp=fcfbf6a25d0d5016536bb0fb319853252344c970;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=591f4572f18d20a08a797a8e5c4a8dfc1b3320c1 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Record1.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Record1.scl index fcfbf6a25..244c95dca 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Record1.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Record1.scl @@ -1,9 +1,9 @@ -import "Prelude" - -data XYS = XYS { x :: Double, y :: Double, s :: String } - -len XYS {x = x, y = y} = sqrt (x*x + y*y) - -main = len (XYS { x = 4, y = 3, s = "Hello world!" }) --- +import "Prelude" + +data XYS = XYS { x :: Double, y :: Double, s :: String } + +len XYS {x = x, y = y} = sqrt (x*x + y*y) + +main = len (XYS { x = 4, y = 3, s = "Hello world!" }) +-- 5.0 \ No newline at end of file