From 199c1f3249abd677e7d5d5e8b3c709e8d8019331 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Thu, 9 May 2013 20:03:50 +0100
Subject: [PATCH] Add skeleton for run test for Guile class example

---
 Examples/guile/class/Makefile  | 2 +-
 Examples/guile/class/runme.scm | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)
 create mode 100644 Examples/guile/class/runme.scm

diff --git a/Examples/guile/class/Makefile b/Examples/guile/class/Makefile
index 189610800..0130e5fc1 100644
--- a/Examples/guile/class/Makefile
+++ b/Examples/guile/class/Makefile
@@ -6,7 +6,7 @@ INTERFACE  = example.i
 TOP        = ../..
 
 check: build
-#	$(MAKE) -f $(TOP)/Makefile guile_run
+	$(MAKE) -f $(TOP)/Makefile guile_run
 
 build:
 	$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
diff --git a/Examples/guile/class/runme.scm b/Examples/guile/class/runme.scm
new file mode 100644
index 000000000..6bd7bf299
--- /dev/null
+++ b/Examples/guile/class/runme.scm
@@ -0,0 +1,6 @@
+
+(dynamic-call "scm_init_example_module" (dynamic-link "./libexample"))
+
+(format (current-error-port) "TODO: code to demonstrate the class example\n")
+
+(exit 0)