From 41eaa3854dcdc0e45fd85d69f10ea5cd28d519d6 Mon Sep 17 00:00:00 2001
From: Art Yerkes <ayerkes@speakeasy.net>
Date: Sat, 19 Apr 2003 00:34:26 +0000
Subject: [PATCH] Added name_runme.ml Proves solution to rename and %constant.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4695 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Examples/test-suite/ocaml/makedebugtop  | 2 +-
 SWIG/Examples/test-suite/ocaml/name_runme.ml | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)
 create mode 100644 SWIG/Examples/test-suite/ocaml/name_runme.ml

diff --git a/SWIG/Examples/test-suite/ocaml/makedebugtop b/SWIG/Examples/test-suite/ocaml/makedebugtop
index 8d712801c..4a64bb74e 100755
--- a/SWIG/Examples/test-suite/ocaml/makedebugtop
+++ b/SWIG/Examples/test-suite/ocaml/makedebugtop
@@ -18,4 +18,4 @@ echo "Making the test"
 make $swigtest
 echo "Building ${thetest}_top"
 gcc -c -g $cppopt -I$OCAMLINC ${thetest}_wrap.c
-ocamlmktop -cclib -g -custom ${thetest}_wrap.o ${thetest}.cmo -o ${thetest}_top
+ocamlmktop -cclib -g -custom ${thetest}_wrap.o ${thetest}.cmo -o ${thetest}_top -cclib -lstdc++
diff --git a/SWIG/Examples/test-suite/ocaml/name_runme.ml b/SWIG/Examples/test-suite/ocaml/name_runme.ml
new file mode 100644
index 000000000..902466c69
--- /dev/null
+++ b/SWIG/Examples/test-suite/ocaml/name_runme.ml
@@ -0,0 +1,8 @@
+open Name 
+
+let _ = if (get_int _Baz_2) - (get_int (_bar_2 C_void)) == 30 
+then 
+  exit 0 
+else 
+  exit 1
+