1 # (c) 2010 Matt S Trout (mst)
3 # mail ideas, suggestions and flames to mst (at) shadowcat.co.uk
4 # proof of concept only
5 # no warranty, express or implied
8 # DISPLAY=:21 perl -MAlien::SeleniumRC -e 'Alien::SeleniumRC::start'
12 use Test::More qw(no_plan);
13 use Socialtext::WikiFixture::Selenese;
14 use HTML::TableExtract;
16 # HTML ripped from http://seleniumhq.org/docs/05_selenium_rc.html#from-selense-to-a-program
21 <table border="1" class="docutils" id="google-search-example">
37 <tr><td>clickAndWait</td>
43 <td>Searches related to selenium rc</td>
52 my $te = HTML::TableExtract->new;
56 my $table = ($te->tables)[0];
59 [ map { $_ eq "\240" ? () : $_ } @$_ ]
62 $ENV{selenium_browser} = '*firefox /usr/lib/iceweasel/firefox-bin';
64 my $wf = Socialtext::WikiFixture::Selenese->new(
67 browser_url => 'http://www.google.com'
70 $wf->run_test_table(\@rows);