Author: gert
Date: 2007-08-09 03:46:37 -0400 (Thu, 09 Aug 2007)
New Revision: 83712

Added:
   trunk/gert/standalone/bug82124/
   trunk/gert/standalone/bug82124/default.build
   trunk/gert/standalone/bug82124/test.cs
Modified:
   trunk/gert/standalone/known-issues
Log:
Added test for bug #82124.


Added: trunk/gert/standalone/bug82124/default.build
===================================================================
--- trunk/gert/standalone/bug82124/default.build        2007-08-09 07:31:42 UTC 
(rev 83711)
+++ trunk/gert/standalone/bug82124/default.build        2007-08-09 07:46:37 UTC 
(rev 83712)
@@ -0,0 +1,60 @@
+<project name="bug82124" default="rebuild">
+       <target name="mono-1.0">
+               <property name="csc.defines" 
value="NET_1_0,NET_1_1,ONLY_1_1,MONO" />
+       </target>
+
+       <target name="mono-2.0">
+               <property name="csc.defines" 
value="NET_1_0,NET_1_1,NET_2_0,ONLY_2_0,MONO" />
+       </target>
+
+       <target name="net-1.1">
+               <property name="csc.defines" value="NET_1_0,NET_1_1,ONLY_1_1" />
+       </target>
+
+       <target name="net-2.0">
+               <property name="csc.defines" 
value="NET_1_0,NET_1_1,NET_2_0,ONLY_2_0" />
+       </target>
+
+       <property name="frameworks" value="mono-1.0,mono-2.0,net-1.1,net-2.0" />
+
+       <target name="clean">
+               <delete>
+                       <fileset>
+                               <include name="out" />
+                               <include name="test.exe" />
+                       </fileset>
+               </delete>
+       </target>
+
+       <target name="build">
+               <property name="original.targetframework" 
value="${nant.settings.currentframework}" />
+
+               <foreach property="framework" item="String" in="${frameworks}" 
delim=",">
+                       <if test="${framework::exists(framework)}">
+                               <property name="nant.settings.currentframework" 
value="${framework}" />
+                               <call 
target="${nant.settings.currentframework}" />
+                               <call target="run" />
+                               <call target="clean" />
+                       </if>
+               </foreach>
+
+               <property name="nant.settings.currentframework" 
value="${original.targetframework}" />
+       </target>
+
+       <target name="compile">
+               <csc target="exe" define="${csc.defines}" output="test.exe" 
warnaserror="true" warninglevel="4">
+                       <sources>
+                               <include name="test.cs" />
+                       </sources>
+               </csc>
+       </target>
+
+       <target name="run" depends="compile">
+               <exec program="test.exe" managed="true" output="out" />
+               <fail unless="${file::exists('out')}">#1</fail>
+               <loadfile file="out" property="out" />
+               <fail if="${string::index-of(out,'at 
System.Environment.get_StackTrace()') == -1}">#2</fail>
+       </target>
+
+       <target name="rebuild" depends="clean, build" />
+</project>


Property changes on: trunk/gert/standalone/bug82124/default.build
___________________________________________________________________
Name: svn:eol-style
   + native

Added: trunk/gert/standalone/bug82124/test.cs
===================================================================
--- trunk/gert/standalone/bug82124/test.cs      2007-08-09 07:31:42 UTC (rev 
83711)
+++ trunk/gert/standalone/bug82124/test.cs      2007-08-09 07:46:37 UTC (rev 
83712)
@@ -0,0 +1,24 @@
+using System;
+
+public class Program : MarshalByRefObject
+{
+       public void foo (int id)
+       {
+               if (id == 5) {
+                       AppDomain domain = AppDomain.CreateDomain ("Test5");
+                       Program o = (Program) 
domain.CreateInstanceFromAndUnwrap (
+                               typeof (Program).Assembly.Location, "Program");
+                       o.foo (6);
+               } else {
+                       Console.WriteLine (Environment.StackTrace);
+               }
+       }
+
+       static void Main (String [] args)
+       {
+               AppDomain domain = AppDomain.CreateDomain ("Test4");
+               Program o = (Program) domain.CreateInstanceFromAndUnwrap (
+                       typeof (Program).Assembly.Location, "Program");
+               o.foo (5);
+       }
+}


Property changes on: trunk/gert/standalone/bug82124/test.cs
___________________________________________________________________
Name: svn:eol-style
   + native

Modified: trunk/gert/standalone/known-issues
===================================================================
--- trunk/gert/standalone/known-issues  2007-08-09 07:31:42 UTC (rev 83711)
+++ trunk/gert/standalone/known-issues  2007-08-09 07:46:37 UTC (rev 83712)
@@ -57,6 +57,7 @@
 bug82105/**
 bug82110/**
 bug82111/**
+bug82124/**
 bug82215/**
 bug82247/**
 bug82276/**

_______________________________________________
Mono-patches maillist  -  [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches

Reply via email to