Changeset 7190 for t/var/constant.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/constant.t (modified) (12 diffs)

t/var/constant.t

@@ -15 +15 @@
     ';
 
-    ok $ok, "declaring a sigilless constant using 'constant' works";
+    ok $ok, "declaring a sigilless constant using 'constant' works", :todo<feature>;
 }
 
@@ -26 +26 @@
     ';
 
-    ok $ok, "declaring a constant with a sigil using 'constant' works";
+    ok $ok, "declaring a constant with a sigil using 'constant' works", :todo<feature>;
 }
 
@@ -37 +37 @@
     ';
 
-    ok $ok, "declaring a sigilless constant with a type specification using 'constant' works";
+    ok $ok, "declaring a sigilless constant with a type specification using 'constant' works", :todo<feature>;
 }
 
@@ -48 +48 @@
     ';
 
-    ok $ok, "declaring an Unicode constant using 'constant' works";
+    ok $ok, "declaring an Unicode constant using 'constant' works", :todo<feature>;
 }
 
@@ -64 +64 @@
     ';
 
-    is $ok, 3, "a constant declared using 'constant' is actually constant (1)";
+    is $ok, 3, "a constant declared using 'constant' is actually constant (1)", :todo<feature>;
 }
 
@@ -79 +79 @@
     ';
 
-    is $ok, 3, "a constant declared using 'constant' is actually constant (2)";
+    is $ok, 3, "a constant declared using 'constant' is actually constant (2)", :todo<feature>;
 }
 
@@ -94 +94 @@
     ';
 
-    is $ok, 3, "a constant declared using 'constant' is actually constant (3)";
+    is $ok, 3, "a constant declared using 'constant' is actually constant (3)", :todo<feature>;
 }
 
@@ -109 +109 @@
     ';
 
-    is $ok, 3, "a constant declared using 'constant' is actually constant (4)";
+    is $ok, 3, "a constant declared using 'constant' is actually constant (4)", :todo<feature>;
 }
 
@@ -129 +129 @@
     ';
 
-    is $ok, 2, "declaring constants using 'my constant' works";
+    is $ok, 2, "declaring constants using 'my constant' works", :todo<feature>;
 }
 
@@ -147 +147 @@
     ';
 
-    is $ok, 3, "constants declared by 'my constant' shadow correctly";
+    is $ok, 3, "constants declared by 'my constant' shadow correctly", :todo<feature>;
 }
 
@@ -162 +162 @@
     ';
 
-    is $ok, 2, "declaring constants using 'our constant' works";
+    is $ok, 2, "declaring constants using 'our constant' works", :todo<feature>;
 }
 
@@ -177 +177 @@
     ';
 
-    is $ok, 2, "declaring constants using 'constant' creates package-scoped vars";
+    is $ok, 2, "declaring constants using 'constant' creates package-scoped vars", :todo<feature>;
 }