[svn] r7531: nemerle/trunk/ncc: external/LibrariesLoader.n testsuite/positive/basic-value-types.n

[nazgul]

Log:
Include conversions from char

Author: nazgul
Date: Thu Mar 15 22:33:04 2007
New Revision: 7531

Modified:
   nemerle/trunk/ncc/external/LibrariesLoader.n
   nemerle/trunk/ncc/testsuite/positive/basic-value-types.n

Modified: nemerle/trunk/ncc/external/LibrariesLoader.n
==============================================================================
--- nemerle/trunk/ncc/external/LibrariesLoader.n	(original)
+++ nemerle/trunk/ncc/external/LibrariesLoader.n	Thu Mar 15 22:33:04 2007
@@ -1381,9 +1381,10 @@
                            InternalType.Single_tc, InternalType.Double_tc]
             | "UInt32" => [InternalType.Int64_tc, InternalType.UInt64_tc, InternalType.Single_tc, InternalType.Double_tc]
             | "UInt64" => [InternalType.Single_tc, InternalType.Double_tc]
-            
+            | "Char"   => [InternalType.UInt16_tc, InternalType.Int32_tc, InternalType.UInt32_tc, InternalType.Int64_tc,
+                           InternalType.UInt64_tc, InternalType.Single_tc, InternalType.Double_tc]
             | "Single" => [InternalType.Double_tc]
-            | "Double" | "Char" => []
+            | "Double" => []
             | _ =>
               is_numeric = false;
               []

Modified: nemerle/trunk/ncc/testsuite/positive/basic-value-types.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/positive/basic-value-types.n	(original)
+++ nemerle/trunk/ncc/testsuite/positive/basic-value-types.n	Thu Mar 15 22:33:04 2007
@@ -14,6 +14,10 @@
     at33 = constValue;
     print(at33.ToString (System.Globalization.CultureInfo.InvariantCulture) + "\n");
     print((1.0M :> int).ToString () + "\n");
+    
+    assert (111 == 111m);
+    assert ('1' == (('1' : int) : decimal));
+    assert (334L == 334M);
   }
 }
 
@@ -217,6 +221,7 @@
       _ = ( 0 :> char);
       _ = ( char.MinValue);
       _ = ( char.MaxValue :> char); // W: there is no check needed to cast char to char
+      assert ('0' == '1' - 1);
   }
 
   Bug873 ()  : void {