Adding Test::WWW::Selenium::Catalyst

[catagits/Test-WWW-Selenium-Catalyst.git] / t / 01-live.t

diff --git a/t/01-live.t b/t/01-live.t
new file mode 100644 (file)
index 0000000..5ef0c8e
--- /dev/null
+++ b/t/01-live.t
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+# 01-live.t 
+# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
+
+use Test::More tests => 79;
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use Test::WWW::Selenium::Catalyst 'TestApp';
+
+diag("You need to have firefox-bin in your path for this to work!");
+
+my $sel = Test::WWW::Selenium::Catalyst->start({browser => '*firefox'});
+
+$sel->open_ok('/');
+$sel->text_is("link=Click here", "Click here");
+$sel->click_ok("link=Click here");
+$sel->wait_for_page_to_load_ok("30000");
+for my $i (1..10){
+    $sel->open_ok("/words/$i");
+    $sel->is_text_present_ok(
+       qq{Here you'll find all things "words" printed $i time(s)!});
+    
+    for my $j (1..$i){
+       $sel->is_text_present_ok("$j: foo bar baz bat qux quux");
+    }
+}