Changeset 22456 for t

Timestamp:

09/29/08 22:41:19 (2 months ago)

Author:

moritz

Message:

[t/spec] uncomment tests for unspecced builtin rules

Files:

• t/spec/S05-mass/stdrules.t (modified) (3 diffs)

t/spec/S05-mass/stdrules.t

@@ -13 +13 @@
 =end pod
 
-plan 207;
+plan 184;
 
 if !eval('("a" ~~ /a/)') {
@@ -118 +118 @@
 # ascii
 
-ok("+" ~~ m/^<?ascii>$/, q{Match ascii as subrule});
-ok(!( "+" ~~ m/^<!ascii>.$/ ), q{Don't match negated ascii as subrule} );
-ok(!( "+" ~~ m/^<-ascii>$/ ), q{Don't match inverted ascii as subrule} );
-
-ok("+" ~~ m/^<+ascii>$/, q{Match ascii as charset});
-ok("+" ~~ m/^<+[A]+ascii>$/, q{Match compound ascii as charset});
-ok(!( "+" ~~ m/^<-ascii>$/ ), q{Don't match externally inverted ascii as charset} );
-ok(!( "+" ~~ m/^<+[A]-ascii>$/ ), q{Don't match compound inverted ascii as charset} );
-ok(!( "+" ~~ m/^<-ascii>$/ ), q{Don't match inverted ascii as charset} );
-ok("+" ~~ m/<+ascii>/, q{Match unanchored ascii as charset});
+# Unspecced
+# ok("+" ~~ m/^<?ascii>$/, q{Match ascii as subrule});
+# ok(!( "+" ~~ m/^<!ascii>.$/ ), q{Don't match negated ascii as subrule} );
+# ok(!( "+" ~~ m/^<-ascii>$/ ), q{Don't match inverted ascii as subrule} );
+#
+# ok("+" ~~ m/^<+ascii>$/, q{Match ascii as charset});
+# ok("+" ~~ m/^<+[A]+ascii>$/, q{Match compound ascii as charset});
+# ok(!( "+" ~~ m/^<-ascii>$/ ), q{Don't match externally inverted ascii as charset} );
+# ok(!( "+" ~~ m/^<+[A]-ascii>$/ ), q{Don't match compound inverted ascii as charset} );
+# ok(!( "+" ~~ m/^<-ascii>$/ ), q{Don't match inverted ascii as charset} );
+# ok("+" ~~ m/<+ascii>/, q{Match unanchored ascii as charset});
 
 # blank
@@ -257 +258 @@
 
 # word
-
-ok("b" ~~ m/^<?word>$/, q{Match word as subrule});
-ok(!( "b" ~~ m/^<!word>.$/ ), q{Don't match negated word as subrule} );
-ok(!( "b" ~~ m/^<-word>$/ ), q{Don't match inverted word as subrule} );
-ok(!( '{'  ~~ m/^<?word>$/ ), q{Don't match unrelated word as subrule} );
-ok('{'  ~~ m/^<!word>.$/, q{Match unrelated negated word as subrule} );
-ok('{'  ~~ m/^<-word>$/, q{Match unrelated inverted word as subrule});
-
-ok("b" ~~ m/^<+word>$/, q{Match word as charset} );
-ok("b" ~~ m/^<+[A]+word>$/, q{Match compound word as charset});
-ok(!( "b" ~~ m/^<-word>$/ ), q{Don't match externally inverted word as charset} );
-ok(!( "b" ~~ m/^<+[A]-word>$/ ), q{Don't match compound inverted word as charset} );
-ok(!( "b" ~~ m/^<-word>$/ ), q{Don't match internally inverted word as charset} );
-ok(!( '{'  ~~ m/^<+word>$/ ), q{Don't match unrelated word as charset} );
-ok('{'  ~~ m/^<-word>$/, q{Match inverted word as charset});
-ok('{b' ~~ m/<+word>/, q{Match unanchored word as charset} );
+# unspecced
+# ok("b" ~~ m/^<?word>$/, q{Match word as subrule});
+# ok(!( "b" ~~ m/^<!word>.$/ ), q{Don't match negated word as subrule} );
+# ok(!( "b" ~~ m/^<-word>$/ ), q{Don't match inverted word as subrule} );
+# ok(!( '{'  ~~ m/^<?word>$/ ), q{Don't match unrelated word as subrule} );
+# ok('{'  ~~ m/^<!word>.$/, q{Match unrelated negated word as subrule} );
+# ok('{'  ~~ m/^<-word>$/, q{Match unrelated inverted word as subrule});
+# 
+# ok("b" ~~ m/^<+word>$/, q{Match word as charset} );
+# ok("b" ~~ m/^<+[A]+word>$/, q{Match compound word as charset});
+# ok(!( "b" ~~ m/^<-word>$/ ), q{Don't match externally inverted word as charset} );
+# ok(!( "b" ~~ m/^<+[A]-word>$/ ), q{Don't match compound inverted word as charset} );
+# ok(!( "b" ~~ m/^<-word>$/ ), q{Don't match internally inverted word as charset} );
+# ok(!( '{'  ~~ m/^<+word>$/ ), q{Don't match unrelated word as charset} );
+# ok('{'  ~~ m/^<-word>$/, q{Match inverted word as charset});
+# ok('{b' ~~ m/<+word>/, q{Match unanchored word as charset} );
 
 # xdigit