use strictures 1;
use File::Find;
-use WWW::Selenium;
+use Socialtext::WikiFixture::Selenese;
use HTML::TableExtract;
use IO::All;
}
}
+sub new {
+ my ($class, $self) = @_;
+ bless $self, $class;
+}
+
sub test_directory {
- my ($self) = @_;
- my @tests = File::Find::Rule->file()->name('*.html')->in($self->{dir});
+ my ($self, $dir) = @_;
+ my @tests = File::Find::Rule->file()->name('*.html')->in($dir);
$self->run_tests_for($_) for @tests;
}
sub run_tests_for {
my ($self, $html_file) = @_;
my $rows = $self->get_rows_for($html_file);
- my $src = WWW::Selenium->new(
- host => $args->{host},
- port => $args->{port},
- browser_url => $args->{browser_url},
+ my $src = Socialtext::WikiFixture::Selenese->new(
+ host => $self->{host},
+ port => $self->{port},
+ browser => $self->{browser},
+ browser_url => $self->{browser_url},
);
$src->run_test_table($rows);
}