[Jifty-commit] r3798 - in Test-WWW-Declare: lib/Test/WWW t

[jifty-commit at lists.jifty.org]

Author: sartak
Date: Mon Aug  6 11:34:20 2007
New Revision: 3798

Modified:
   Test-WWW-Declare/   (props changed)
   Test-WWW-Declare/lib/Test/WWW/Declare.pm
   Test-WWW-Declare/t/06-title.t

Log:
 r29935 at caladan:  sartak | 2007-08-06 11:33:26 -0400
 Add 'lacks' -- content lacks "foo"


Modified: Test-WWW-Declare/lib/Test/WWW/Declare.pm
==============================================================================
--- Test-WWW-Declare/lib/Test/WWW/Declare.pm	(original)
+++ Test-WWW-Declare/lib/Test/WWW/Declare.pm	Mon Aug  6 11:34:20 2007
@@ -10,7 +10,7 @@
 our @EXPORT = qw(flow run get session check mech match follow link content
                  should shouldnt click href button fill form SKIP _twd_dummy
                  title equal caselessly contain matches equals contains
-                 never always);
+                 never always lack lacks);
 our $BUILDER = Test::Builder->new();
 our $WWW_MECHANIZE;
 
@@ -38,9 +38,7 @@
 }
 
 sub should ($) {
-    my $args = _args(shift);
-    $args->{negative} = 0;
-    return $args;
+    return shift;
 }
 
 sub shouldnt ($) {
@@ -67,6 +65,13 @@
     return $args;
 }
 
+sub lack ($) {
+    my $args = _args(shift);
+    $args->{match} = 'index';
+    $args->{negative} = 1;
+    return $args;
+}
+
 sub caselessly ($) {
     my $args = _args(shift);
     $args->{case_insensitive} = 1;
@@ -89,6 +94,7 @@
 sub contains { contain $_[0] }
 sub equals { equal $_[0] }
 sub matches { match $_[0] }
+sub lacks { lack $_[0] }
 
 sub always { should $_[0] }
 sub never { shouldnt $_[0] }

Modified: Test-WWW-Declare/t/06-title.t
==============================================================================
--- Test-WWW-Declare/t/06-title.t	(original)
+++ Test-WWW-Declare/t/06-title.t	Mon Aug  6 11:34:20 2007
@@ -16,6 +16,7 @@
                 title should contain 'DEX';
                 title shouldnt contain 'dEX';
                 title should caselessly contain 'dEX';
+                title should lack 'foo';
             };
         };
     }