[Catalyst-commits] r11833 -
Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Tutorial
hkclark at dev.catalyst.perl.org
hkclark at dev.catalyst.perl.org
Sun Nov 15 13:53:17 GMT 2009
Author: hkclark
Date: 2009-11-15 13:53:16 +0000 (Sun, 15 Nov 2009)
New Revision: 11833
Modified:
Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Tutorial/08_Testing.pod
Log:
Add a "negative" test to confirm that test02 does not have an admin create link
Modified: Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Tutorial/08_Testing.pod
===================================================================
--- Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Tutorial/08_Testing.pod 2009-11-15 13:52:01 UTC (rev 11832)
+++ Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Tutorial/08_Testing.pod 2009-11-15 13:53:16 UTC (rev 11833)
@@ -271,7 +271,9 @@
$_->content_contains("/logout\">User Logout</a>",
"Both users should have a 'User Logout'") for $ua1, $ua2;
$ua1->content_contains("/books/form_create\">Admin Create</a>",
- "Only 'test01' should have a create link");
+ "'test01' should have a create link");
+ $ua2->content_lacks("/books/form_create\">Admin Create</a>",
+ "'test02' should NOT have a create link");
$ua1->get_ok("http://localhost/books/list", "View book list as 'test01'");
More information about the Catalyst-commits
mailing list