Author: gert
Date: 2007-11-20 15:02:21 -0500 (Tue, 20 Nov 2007)
New Revision: 90022
Added:
trunk/gert/standalone/bug333740/
trunk/gert/standalone/bug333740/default.build
trunk/gert/standalone/bug333740/test.cs
Modified:
trunk/gert/standalone/known-issues
Log:
Added test for bug #333740.
Added: trunk/gert/standalone/bug333740/default.build
===================================================================
--- trunk/gert/standalone/bug333740/default.build 2007-11-20 19:53:00 UTC
(rev 90021)
+++ trunk/gert/standalone/bug333740/default.build 2007-11-20 20:02:21 UTC
(rev 90022)
@@ -0,0 +1,64 @@
+<project name="bug333740" 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="../../build/common/Assert.cs" />
+ <include name="test.cs" />
+ </sources>
+ </csc>
+ </target>
+
+ <target name="run" depends="compile">
+ <setenv>
+ <variable name="Mono_bug333740a" value="oK" />
+ <variable name="MONO_BUG333740B" value="FinE" />
+ <variable name="mono_bug333740c" value="good" />
+ </setenv>
+ <exec program="test.exe" managed="true" output="out" />
+ <fail if="${file::exists('out')}" />
+ </target>
+
+ <target name="rebuild" depends="clean, build" />
+</project>
Property changes on: trunk/gert/standalone/bug333740/default.build
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/gert/standalone/bug333740/test.cs
===================================================================
--- trunk/gert/standalone/bug333740/test.cs 2007-11-20 19:53:00 UTC (rev
90021)
+++ trunk/gert/standalone/bug333740/test.cs 2007-11-20 20:02:21 UTC (rev
90022)
@@ -0,0 +1,28 @@
+using System;
+using System.Collections;
+
+class Program
+{
+ static void Main ()
+ {
+ IDictionary vars = Environment.GetEnvironmentVariables ();
+ /*
+ foreach (DictionaryEntry de in vars)
+ Console.WriteLine (de.Key);
+ * */
+ Assert.IsNotNull (vars ["Mono_bug333740a"], "#A1");
+ Assert.AreEqual ("oK", vars ["Mono_bug333740a"], "#A2");
+ Assert.IsNull (vars ["mono_bug333740a"], "#A3");
+ Assert.IsNull (vars ["MONO_BUG333740A"], "#A4");
+
+ Assert.IsNotNull (vars ["MONO_BUG333740B"], "#B1");
+ Assert.AreEqual ("FinE", vars ["MONO_BUG333740B"], "#B2");
+ Assert.IsNull (vars ["Mono_BUG333740b"], "#B3");
+ Assert.IsNull (vars ["mono_bug333740b"], "#B4");
+
+ Assert.IsNotNull (vars ["mono_bug333740c"], "#C1");
+ Assert.AreEqual ("good", vars ["mono_bug333740c"], "#C2");
+ Assert.IsNull (vars ["Mono_Bug333740c"], "#C3");
+ Assert.IsNull (vars ["MONO_BUG333740C"], "#C4");
+ }
+}
Property changes on: trunk/gert/standalone/bug333740/test.cs
___________________________________________________________________
Name: svn:eol-style
+ native
Modified: trunk/gert/standalone/known-issues
===================================================================
--- trunk/gert/standalone/known-issues 2007-11-20 19:53:00 UTC (rev 90021)
+++ trunk/gert/standalone/known-issues 2007-11-20 20:02:21 UTC (rev 90022)
@@ -112,6 +112,7 @@
bug332532/**
bug333342/**
bug333686/**
+bug333740/**
bug333741/**
bug334453/**
bug334465/**
@@ -126,4 +127,3 @@
bug341112/**
bug341726/**
bug341743/**
-bug342512/**
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
