Automatic execution of SCL tests in Maven

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / Pythagoras.scl

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Pythagoras.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Pythagoras.scl
new file mode 100644 (file)
index 0000000..95a5b9b
--- /dev/null
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Pythagoras.scl
@@ -0,0 +1,24 @@
+import "JavaBuiltin" as Java\r
+\r
+infixl 7 (*)\r
+infixl 6 (+)\r
+\r
+(+) :: Double -> Double -> Double\r
+(+) = Java.dadd\r
+(*) :: Double -> Double -> Double\r
+(*) = Java.dmul\r
+\r
+importJava "java.lang.Math" where\r
+    sqrt :: Double -> Double\r
+    sin :: Double -> Double\r
+    cos :: Double -> Double\r
+\r
+square x = x * x\r
+\r
+length x y = sqrt (square x + square y)\r
+\r
+pythagoras a = length (cos a) (sin a)\r
+\r
+main = pythagoras 2.0\r
+--\r
+1.0\r