basic working code, needs more hammering and testing

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

diff --git a/t b/t
new file mode 100644 (file)
index 0000000..b6430f1
--- /dev/null
+++ b/t
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use lib 'lib';
+use Test::Harness::Selenium;
+
+my $s = Test::Harness::Selenium->new({
+    host => 'localhost',
+    port => 4444,
+    browser_url => 'http://www.google.com',
+    browser => shift,
+});
+$s->run_tests_for('basic.html');