test/compiler: test rejection of delay in action statement

test/compiler/delay_in_action.st

+/*************************************************************************\
+Copyright (c) 2014      Helmholtz-Zentrum Berlin f. Materialien
+                        und Energie GmbH, Germany (HZB)
+This file is distributed subject to a Software License Agreement found
+in the file LICENSE that is included with this distribution.
+\*************************************************************************/
+program delay_in_action
+
+ss test {
+    state test {
+        when (delay(1)) {
+            delay(2);
+        } exit
+    }
+}

test/compiler/snc_test.plt

@@ -6,6 +6,7 @@ use Test::More;
 
 my $tests = {
   cast                    => { warnings => 0, errors => 0  },
+  delay_in_action         => { warnings => 0, errors => 1  },
   efArray                 => { warnings => 0, errors => 1  },
   efGlobal                => { warnings => 0, errors => 3  },
   efNoInit                => { warnings => 0, errors => 1  },