Add tests for THROW.

Author: python-processing-unit

tests/cases/failing/throw-uncaught-default.pre

@@ -0,0 +1 @@
+THROW()

tests/cases/failing/throw-uncaught-message.pre

@@ -0,0 +1 @@
+THROW('prefix', 0d42)

tests/cases/passing/throw-concat-message.pre

@@ -0,0 +1,11 @@
+BOOL: caught = FALSE
+
+TRY{
+    THROW("left=", 0d42, ",right=", -0b10)
+} CATCH(err) {
+    caught = TRUE
+    PRINT(err) ! debug
+    ASSERT(EQ(err, "left=0d42,right=-0b10"))
+}
+
+ASSERT(caught)

tests/cases/passing/throw-control-transfer.pre

@@ -0,0 +1,11 @@
+INT: step = 0d0
+
+TRY{
+    step = 0d1
+    THROW('stop')
+    step = ADD(step, 0d1)
+} CATCH {
+    step = ADD(step, 0d10)
+}
+
+ASSERT(EQ(step, 0d11))

tests/cases/passing/throw-default-message.pre

@@ -0,0 +1,10 @@
+BOOL: caught = FALSE
+
+TRY{
+    THROW()
+} CATCH(err) {
+    caught = TRUE
+    ASSERT(EQ(err, 'Exception thrown'))
+}
+
+ASSERT(caught)

tests/cases/passing/throw-empty-message.pre

@@ -0,0 +1,11 @@
+BOOL: caught = FALSE
+
+TRY{
+    THROW('')
+} CATCH(err) {
+    caught = TRUE
+    ASSERT(EQ(err, ''))
+    ASSERT(EQ(SLEN(err), 0d0))
+}
+
+ASSERT(caught)

tests/cases/passing/throw-string-message.pre

@@ -0,0 +1,10 @@
+BOOL: caught = FALSE
+
+TRY{
+    THROW('prefix')
+} CATCH(err) {
+    caught = TRUE
+    ASSERT(EQ(err, 'prefix'))
+}
+
+ASSERT(caught)