* bug-508538.cs: New regression test for bug #508538.

svn path=/trunk/mono/; revision=135575

diff --git a/mono/tests/ChangeLog b/mono/tests/ChangeLog
index 21b7284f65f4814b0d7e0e18059d619c8a54dd48..763e35cd369eb21e0428a39b04971652f0bfd0e5 100644 (file)
--- a/mono/tests/ChangeLog
+++ b/mono/tests/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-06  Gert Driesen  <drieseng@users.sourceforge.net>
+
+       * bug-508538.cs: New regression test for bug #508538.
+
 2009-06-01 Rodrigo Kumpera  <rkumpera@novell.com>
 
        * load-exceptions.cs: Fix thiko.

diff --git a/mono/tests/Makefile.am b/mono/tests/Makefile.am
index 928f1deedce9032e4e26b704bc325384715d6b2f..6deff37fce40a592b0dd023ecddffc749eb35611 100644 (file)
--- a/mono/tests/Makefile.am
+++ b/mono/tests/Makefile.am
@@ -346,6 +346,7 @@ BASE_TEST_CS_SRC=           \
        generic-unloading-sub.2.cs      \
        bug-467456.cs   \
        appdomain-unload-callback.cs    \
+       bug-508538.cs   \
        bug-472692.2.cs         \
        gchandles.cs    \
        interlocked-3.cs        \

diff --git a/mono/tests/bug-508538.cs b/mono/tests/bug-508538.cs
new file mode 100644 (file)
index 0000000..f387175
--- /dev/null
+++ b/mono/tests/bug-508538.cs
@@ -0,0 +1,28 @@
+using System;
+using System.Reflection;
+
+public class HostExpression {}
+public class OMetaStream<T> {}
+public class OMetaList<T> {}
+
+public class OMetaParser {
+       public virtual bool NameFirst (OMetaStream<char> inputStream, out object result) {
+               result = null;
+               Console.WriteLine ("ok");
+               return true;
+       }
+
+}
+
+public class Driver {
+       static int Main () {
+               var f = new OMetaParser ();
+               var m = typeof (OMetaParser).GetMethod ("NameFirst");
+
+               var arg0 = new OMetaStream<char> ();
+               var arg1 = new OMetaList<HostExpression> ();
+
+               bool res = (bool)m.Invoke (f, new object[] { arg0, arg1 });
+               return res ? 0 : 1;
+       }
+}