[svn] r7401: nemerle/trunk/snippets/designpatt/factory.n

[nazgul]

Log:
Tweak expected output for mono

Author: nazgul
Date: Sat Feb 10 17:16:30 2007
New Revision: 7401

Modified:
   nemerle/trunk/snippets/designpatt/factory.n

Modified: nemerle/trunk/snippets/designpatt/factory.n
==============================================================================
--- nemerle/trunk/snippets/designpatt/factory.n	(original)
+++ nemerle/trunk/snippets/designpatt/factory.n	Sat Feb 10 17:16:30 2007
@@ -28,32 +28,36 @@
 mutable f : Factory = Factory ();
 def sf = SubFactory ();
 
-System.Console.WriteLine (f.CreateX (1));
-System.Console.WriteLine (f.CreateY (1));
-System.Console.WriteLine (f.CreateY ("aa"));
-System.Console.WriteLine (f.CreateW ());
-System.Console.WriteLine (f.CreateException ("aa"));
+def p (x : object) {
+  System.Console.WriteLine (x.GetType ().Name)
+}
+
+p (f.CreateX (1));
+p (f.CreateY (1));
+p (f.CreateY ("aa"));
+p (f.CreateW ());
+p (f.CreateException ("aa"));
 
 f = sf;
 
-System.Console.WriteLine (f.CreateX (1));
-System.Console.WriteLine (f.CreateY (1));
-System.Console.WriteLine (f.CreateY ("aa"));
-System.Console.WriteLine (f.CreateW ());
+p (f.CreateX (1));
+p (f.CreateY (1));
+p (f.CreateY ("aa"));
+p (f.CreateW ());
 
-System.Console.WriteLine (sf.CreateZ ());
+p (sf.CreateZ ());
 
 /*
 BEGIN-OUTPUT
-X`1[System.Int32]
+X`1
 Y
 Y
-W`2[System.Object,System.String]
-System.Exception: aa
+W`2
+Exception
 SX
 SY
 SY
-W`2[System.Object,System.String]
+W`2
 Z
 END-OUTPUT
 */
\ No newline at end of file