[Catalyst-commits] r11833 - Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Tutorial

[hkclark at dev.catalyst.perl.org]

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'");