[Jifty-commit] r3818 - in Test-WWW-Declare: t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Mon Aug 6 15:45:07 EDT 2007
Author: sartak
Date: Mon Aug 6 15:45:07 2007
New Revision: 3818
Added:
Test-WWW-Declare/t/08-error.t
Modified:
Test-WWW-Declare/ (props changed)
Log:
r29974 at caladan: sartak | 2007-08-06 15:44:02 -0400
really add that missing file (grumble)
Added: Test-WWW-Declare/t/08-error.t
==============================================================================
--- (empty file)
+++ Test-WWW-Declare/t/08-error.t Mon Aug 6 15:45:07 2007
@@ -0,0 +1,24 @@
+#!perl
+use Test::WWW::Declare::Tester tests => 4;
+use warnings;
+use strict;
+
+my @results = run_tests(
+ sub {
+ session "check logins" => run {
+ flow "basic connectivity" => check {
+ get "http://localhost:$PORT/";
+ click href 3;
+ };
+ };
+ }
+);
+
+shift @results; # Test::Tester gives 1-based arrays
+is(@results, 1, "had two tests");
+ok(!$results[0]{ok}, "1st test passed");
+
+is($results[0]{name}, "basic connectivity", "1st test was flow");
+
+like($results[0]{diag}, qr/click doesn\'t know what to do with a link type of at/, 'reasonable error message for "click href 3"');
+
More information about the Jifty-commit
mailing list