[Bast-commits] r9902 - ironman/IronMan-Web/branches/idn-20110706/t

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2011-07-06 16:38:13 +0000 (Wed, 06 Jul 2011)
New Revision: 9902

Modified:
   ironman/IronMan-Web/branches/idn-20110706/t/controller_root.t
Log:
Testing

Modified: ironman/IronMan-Web/branches/idn-20110706/t/controller_root.t
===================================================================
--- ironman/IronMan-Web/branches/idn-20110706/t/controller_root.t	2011-07-06 16:37:34 UTC (rev 9901)
+++ ironman/IronMan-Web/branches/idn-20110706/t/controller_root.t	2011-07-06 16:38:13 UTC (rev 9902)
@@ -15,9 +15,9 @@
 my $req = Test::WWW::Mechanize::Catalyst->new();
 my $base_uri = "http://localhost/";
 
-#################################
-###### Register some feeds ######
-#################################
+########################################
+###### Attempt to register a feed ######
+########################################
 
 # Fetch the form to send token reminder
 $uri = $base_uri . "new_feed";
@@ -46,16 +46,11 @@
 $req->content_contains($content, "expected content - '$content'");
 
 
+####################################################
+###### Request a key for a known feed         ######
+###### google at example.com is in the test data ######
+####################################################
 
-
-
-#diag( $req->content );
-
-exit;
-
-
-
-
 # Fetch the form to send token reminder
 $uri = $base_uri . "retrieve_key";
 $req->get_ok($uri, "fetching $uri");
@@ -70,7 +65,7 @@
 $req->content_contains($content, "expected content - $content");
 
 # Submit the form
-$req->submit_form( 'fields' => { 'email' => $email } );
+$req->submit_form( 'fields' => { 'email' => 'google at example.com' } );
 ok($req->status() == 200, "status 200 for $uri form submission");