From 508f7ed2877e28d4f2b989e3b0f975c8947a81f0 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 6 Jul 2009 17:43:01 +0000
Subject: [PATCH] Check for generation of the csrf token.

---
 t/Form.t | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/t/Form.t b/t/Form.t
index 870481467..3acb18843 100644
--- a/t/Form.t
+++ b/t/Form.t
@@ -54,6 +54,7 @@ my $testDefaults = all(
     re( q{action=} ),
     re( q{enctype="multipart/form-data"} ),
     re( q{method="post"} ),
+    re( q{type="hidden" name="webguiCsrfToken"} ),
 );
 
 cmp_deeply( 
@@ -85,6 +86,7 @@ my $testHiddenElements = all(
     re( q{<input type="hidden" name="func" value="edit"} ),
     re( q{<input type="hidden" name="a" value="1"} ),
     re( q{<input type="hidden" name="b" value="2"} ),
+    re( q{<input type="hidden" name="webguiCsrfToken" value=".{22}"} ),
 );
 
 cmp_deeply(