[Jifty-commit] r2520 - in Test-WWW-Declare: lib/Test/WWW t

[jifty-commit at lists.jifty.org]

Author: jesse
Date: Wed Jan 17 21:00:46 2007
New Revision: 2520

Added:
   Test-WWW-Declare/META.yml
   Test-WWW-Declare/Makefile.PL
   Test-WWW-Declare/t/
   Test-WWW-Declare/t/basic_live.t
   Test-WWW-Declare/t/basic_live_forms.t
   Test-WWW-Declare/t/skip.t
Modified:
   Test-WWW-Declare/   (props changed)
   Test-WWW-Declare/lib/Test/WWW/Declare.pm

Log:
 r21076 at hualien:  jesse | 2007-01-17 21:00:26 -0500
  * split out the test suite


Added: Test-WWW-Declare/META.yml
==============================================================================
--- (empty file)
+++ Test-WWW-Declare/META.yml	Wed Jan 17 21:00:46 2007
@@ -0,0 +1,12 @@
+distribution_type: module
+generated_by: Module::Install version 0.64
+license: perl
+name: Test-WWW-Declare
+no_index: 
+  directory: 
+    - inc
+    - t
+requires: 
+  Test::Builder: 0
+  WWW::Mechanize: 0
+version: 0.00

Added: Test-WWW-Declare/Makefile.PL
==============================================================================
--- (empty file)
+++ Test-WWW-Declare/Makefile.PL	Wed Jan 17 21:00:46 2007
@@ -0,0 +1,10 @@
+use inc::Module::Install;
+name('Test-WWW-Declare');
+license('perl');
+version_from('lib/Test/WWW/Declare.pm');
+requires (
+'WWW::Mechanize' => 0,
+'Test::Builder' => 0
+);
+
+WriteAll;

Modified: Test-WWW-Declare/lib/Test/WWW/Declare.pm
==============================================================================
--- Test-WWW-Declare/lib/Test/WWW/Declare.pm	(original)
+++ Test-WWW-Declare/lib/Test/WWW/Declare.pm	Wed Jan 17 21:00:46 2007
@@ -5,11 +5,11 @@
 
 our $VERSION  = '0.00';
 
-use Exporter;
+use base 'Exporter';
 use WWW::Mechanize;
 use Test::Builder;
 
-our @EXPORT = qw(flow run get session);
+our @EXPORT = qw(flow run get session check mech match follow link content should click href button );
 our $BUILDER = Test::Builder->new();
 $BUILDER->no_plan();
 our $WWW_MECHANIZE;
@@ -94,16 +94,5 @@
     my $item = shift;
     return $item;
 }
-
-session "check logins" => run {
-    flow "basic connectivity" => check {
-        get 'http://fsck.com';
-        content should match qr{fsck.com};
-        click href qr{book};
-        content should match qr{RT Essentials}i;
-    };
-
-};
-
 1;
 

Added: Test-WWW-Declare/t/basic_live.t
==============================================================================
--- (empty file)
+++ Test-WWW-Declare/t/basic_live.t	Wed Jan 17 21:00:46 2007
@@ -0,0 +1,19 @@
+use Test::WWW::Declare;
+
+use warnings;
+use strict;
+
+
+session "check logins" => run {
+    flow "basic connectivity" => check {
+        get 'http://fsck.com';
+        content should match qr{fsck.com};
+        click href qr{book};
+        content should match qr{RT Essentials}i;
+   
+
+    };
+};
+
+1;
+

Added: Test-WWW-Declare/t/basic_live_forms.t
==============================================================================
--- (empty file)
+++ Test-WWW-Declare/t/basic_live_forms.t	Wed Jan 17 21:00:46 2007
@@ -0,0 +1,22 @@
+use Test::WWW::Declare;
+
+use warnings;
+use strict;
+
+
+session "check logins" => run {
+    flow "google searches work" => check {
+        get 'http://google.com/ncr'; 
+                # google.com/ would get us a country specific page
+        fill form 'search' => {
+                q   => 'Squeamish ossifrage'
+        };
+
+        # These two are the same thing:
+        #submit form 'search';
+        click button 'Search!';
+    }
+};
+
+1;
+

Added: Test-WWW-Declare/t/skip.t
==============================================================================
--- (empty file)
+++ Test-WWW-Declare/t/skip.t	Wed Jan 17 21:00:46 2007
@@ -0,0 +1,22 @@
+use Test::WWW::Declare;
+
+use warnings;
+use strict;
+
+
+session "check logins" => run {
+    flow "google searches work" => check {
+        get 'http://google.com/ncr'; 
+                # google.com/ would get us a country specific page
+        fill form 'search' => {
+                q   => 'Squeamish ossifrage'
+        };
+
+        # These two are the same thing:
+        #submit form 'search';
+        click button 'Search!';
+    }
+};
+
+1;
+