add some tests against a sample catapp

[scpubgit/Test-Harness-Selenium.git] / t / catapp.t

diff --git a/t/catapp.t b/t/catapp.t
new file mode 100644 (file)
index 0000000..eaa4425
--- /dev/null
+++ b/t/catapp.t
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use lib 'lib';
+use Test::Harness::Selenium;
+use Test::More;
+
+my $browser = shift;
+my $s = Test::Harness::Selenium->new({
+    host => 'localhost',
+    port => $< + 60_000,
+    browser_url => 'http://127.0.0.1:3000',
+    browser => $browser,
+});
+$s->start_server;
+$s->run_tests_for('t/corpus/thselenium.html');
+$s->stop_server;
+done_testing;