Update examples

testsuite/eval/foreign_should_fail/Makefile

@@ -0,0 +1,2 @@
+TOP=../../..
+include ../../foreign.mk

testsuite/eval/foreign_should_fail/expected

@@ -0,0 +1,2 @@
+<eval>:1: parse error on input `in'
+failed!

testsuite/eval/foreign_should_fail/expected.604

@@ -0,0 +1 @@
+failed!

testsuite/eval/foreign_should_fail/expected.605

@@ -0,0 +1 @@
+failed!

testsuite/eval/foreign_should_fail/main.c

@@ -0,0 +1,16 @@
+#include <stdio.h>
+
+#include "EvalHaskell.h"
+
+int main(int argc, char *argv[])
+{
+  int *p;
+  hs_init(&argc, &argv);
+  p = hs_eval_i("show $ case 1 + 2 in{-wrong-} x -> x");
+  if (p == NULL)
+	  printf("failed!\n");
+  else
+	  printf("%d\n",*p);
+  hs_exit();
+  return 0;
+}