[svn] r6402: nemerle/trunk/ncc/testsuite/completion-playground: compl-s2.n compl3.n

[VladD2]

Log:
Some new "FixMe" sample for completion engine.

Author: VladD2
Date: Sun Jun 18 23:56:39 2006
New Revision: 6402

Modified:
   nemerle/trunk/ncc/testsuite/completion-playground/compl-s2.n   (contents, props changed)
   nemerle/trunk/ncc/testsuite/completion-playground/compl3.n   (contents, props changed)

Modified: nemerle/trunk/ncc/testsuite/completion-playground/compl-s2.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/completion-playground/compl-s2.n	(original)
+++ nemerle/trunk/ncc/testsuite/completion-playground/compl-s2.n	Sun Jun 18 23:56:39 2006
@@ -41,3 +41,11 @@
 | Winter
 | Summer
 }
+
+variant MyColor
+{
+| Red
+| Green
+| Yellow
+| Rgb { R : int; G : int; B : int }
+}

Modified: nemerle/trunk/ncc/testsuite/completion-playground/compl3.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/completion-playground/compl3.n	(original)
+++ nemerle/trunk/ncc/testsuite/completion-playground/compl3.n	Sun Jun 18 23:56:39 2006
@@ -144,9 +144,6 @@
             + Engine.GetNameFromType (completionResult.ObjectType));
           WriteLine ("  Member found:");
 
-          //System.Type SQ_ExtensionAttribute = Assembly.GetType ("System.Runtime.CompilerServices.ExtensionAttribute");
-          def extensionAttribute = typeof(Nemerle.Internal.ExtensionAttribute);
-
           foreach (overl in completionResult.Overloads)
           {
             //Diagnostics.Debug.Assert(false);
@@ -165,7 +162,8 @@
               WriteLine ($"    local value ==> $overl");
             else
               WriteLine ($"    $(overl.Member.Name)  ==> $overl"
-                " $(overl.Member.Attributes) Is extension method $isExtension $typ");
+                " $(overl.Member.Attributes) Is extension "
+                "method $isExtension $typ");
           }
         });
     }
@@ -178,6 +176,30 @@
 }
 
 //FixMe: Bugs
+try_completion (@"
+  def color1 : MyColor = MyColor.Rgb(255, 0, 255);
+  match (color1)
+  {
+  | MyColor.Rg?
+  }
+");
+
+try_completion (@"
+  def color1 : MyColor = MyColor.Rgb(255, 0, 255);
+  match (color1)
+  {
+  | Rg?
+  }
+");
+
+try_completion (@"
+  def color1 : MyColor = MyColor.Rgb(255, 0, 255);
+  match (color1)
+  {
+  | MyCol?
+  }
+");
+
 try_completion ("def arr = array[1, 2, 3]; arr.M?"); // this requires filtering out extension methods in Typer.n:2366  / NAZGUL 
 try_completion ("1.Map?");
 
@@ -188,6 +210,14 @@
 
 // Work fine:
 try_completion (@"
+  def color1 : MyColor = MyColor.Rgb(255, 0, 255);
+  match (color1)
+  {
+  | Rgb(_, green, _) => gr?
+  }
+");
+
+try_completion (@"
   def name = 1;
   na?
            ");