[Jifty-commit] r3798 - in Test-WWW-Declare: lib/Test/WWW t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Mon Aug 6 11:34:22 EDT 2007
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';
};
};
}
More information about the Jifty-commit
mailing list