little helper for debugging selenium-server calls

git-svn-id: http://svn.openqa.org/svn/selenium-rc/trunk/clients/perl-cpan@1585 0891141a-5dea-0310-ad27-ebc607f31677

Author: lukec

util/test_function.pl

@@ -7,8 +7,14 @@
 my ($function, @args) = @ARGV;
 die 'no function' unless $function;
 
-my $sel = WWW::Selenium->new(browser_url => 'http://www.csc.uvic.ca', browser => '*chrome');
+my $sel = WWW::Selenium->new(browser_url => 'http://www.csc.uvic.ca', browser => '*chrome', verbose => 1);
 $sel->start;
-$sel->open('/~labspg/Reference/javascript/script4.4.html');
+$sel->open('http://www.csc.uvic.ca/~labspg/Reference/javascript/script4.9.html');
 my $content = $sel->get_body_text;
-die "No happy: ($content)" unless $content =~ /Happiness/;
+
+$sel->select('name=order', 'a box of cereal');
+$sel->add_selection('name=order', '100 lbs. blueberries');
+print "$function=(", join(',', $sel->$function(@args)), ")\n";
+
+
+$sel->close;