fix #697 - miscounting comma in member lists

fix method for counting comma in member list

2 files changed, 16 insertions, 1 deletions

diff --git a/Examples/test-suite/r/Makefile.in b/Examples/test-suite/r/Makefile.in
index bc12ba671..d75d4c042 100644
--- a/Examples/test-suite/r/Makefile.in
+++ b/Examples/test-suite/r/Makefile.in
@@ -19,7 +19,8 @@ C_TEST_CASES += \
 CPP_TEST_CASES += \
 	r_double_delete \
 	r_overload_array \
-	r_sexp
+	r_sexp \
+        r_overload_comma
 
 include $(srcdir)/../common.mk
 
diff --git a/Examples/test-suite/r_overload_comma.i b/Examples/test-suite/r_overload_comma.i
new file mode 100644
index 000000000..020adb387
--- /dev/null
+++ b/Examples/test-suite/r_overload_comma.i
@@ -0,0 +1,14 @@
+%module r_overload_comma
+
+%inline %{
+class r_overload_comma
+{
+  public:
+  int getMember1()const {return _member1;}
+  void setMember1ThatEndsWithWord_get(int arg) { _member1=arg; }
+  void setMember1ThatEndsWithWord_get(char* arg) {_member1=atoi(arg);}
+  
+  private:
+  int _member1;
+};
+ %}