Changeset 7190 for t/var/refs_point_to_containers.t

Timestamp:

09/28/05 23:08:26 (3 years ago)

Author:

autrijus

Message:

r7196@not: autrijus | 2005-09-28 11:04:59 +0300

r7197@not: autrijus | 2005-09-28 11:28:35 +0300

• beginning of the main pugs cabal file r7198@not: autrijus | 2005-09-28 12:36:41 +0300
• some more metadata for Pugs.cabal. r7211@not: autrijus | 2005-09-28 21:27:14 +0300
• releng: normalize and todoize tests. r7221@not: autrijus | 2005-09-29 00:05:29 +0300
• Remove the unreferenced Pugs.AST.Types.
• Move the ill-named Pugs.Context back inside Pugs.Types.
• Reuse its Tolkien quote for the underquoted Pugs.Version.

Files:

• t/var/refs_point_to_containers.t (modified) (4 diffs)

t/var/refs_point_to_containers.t

@@ -14 +14 @@
 
   $num = 4;
-  is $$ref, 4, "refs to scalars point to containers, not cells or even values (1)";
+  is $$ref, 4, "refs to scalars point to containers, not cells or even values (1)", :todo<bug>;
 
   $num := 5;
-  is $$ref, 5, "refs to scalars point to containers, not cells or even values (2)";
+  is $$ref, 5, "refs to scalars point to containers, not cells or even values (2)", :todo<bug>;
 }
 
@@ -26 +26 @@
 
   @array[1] = 3;
-  is $$ref, 3, "refs to arrays point to containers, not cells or even values (1)";
+  is $$ref, 3, "refs to arrays point to containers, not cells or even values (1)", :todo<bug>;
 
   try { @array[1] := 4 };
-  is $$ref, 4, "refs to arrays point to containers, not cells or even values (2)";
+  is $$ref, 4, "refs to arrays point to containers, not cells or even values (2)", :todo<bug>;
 }
 
@@ -42 +42 @@
 
     try { @array[1] := 4 };
-    is $arrayref[1], 4, "automatically reffed arrays point to containers (2)";
+    is $arrayref[1], 4, "automatically reffed arrays point to containers (2)", :todo<bug>;
   };
 
@@ -52 +52 @@
   my $arrayref = [1,2,3];
   my $test  = sub (@array) {
-    is @array[1], 2, "automatically dereffed arrays";
+    is @array[1], 2, "automatically dereffed arrays", :todo<bug>;
 
     $arrayref[1] = 3;
-    is @array[1], 3, "automatically dereffed arrays point to containers (1)";
+    is @array[1], 3, "automatically dereffed arrays point to containers (1)", :todo<bug>;
 
     try { $arrayref[1] := 4 };
-    is @array[1], 4, "automatically dereffed arrays point to containers (2)";
+    is @array[1], 4, "automatically dereffed arrays point to containers (2)", :todo<bug>;
   };