Add unit tests for functions no longer in Selenium-RC

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

Author: lukec

t/WWW/Selenium.pm

@@ -0,0 +1,42 @@
+package t::WWW::Selenium;
+use strict;
+use warnings;
+use Test::More;
+use Test::Exception;
+use base 'WWW::Selenium';
+
+sub new {
+    my $class = shift;
+    my %opts = (
+        host => 'localhost', 
+        port => 4444, 
+        browser => '*firefox', 
+        browser_url => 'http://example.com',
+        @_,
+    );
+    my $self = $class->SUPER::new( %opts );
+
+    # Store mock www user agent and startup a session
+    $self->{__ua} = LWP::UserAgent->new; # singleton
+    $self->_set_mock_response_content('FAKE_SESSION_ID');
+    $self->start;
+    (my $enc_url = $opts{browser_url}) =~ s#://#%3A%2F%2F#; # simple
+    is $self->{__ua}->{req}, "http://$opts{host}:$opts{port}/selenium-server/driver/"
+                   . "?cmd=getNewBrowserSession&1=$opts{browser}&2=$enc_url";
+
+    return $self;
+}
+
+sub _set_mock_response_content {
+    my ($self, $content) = @_;
+    $self->{__ua}{res} = HTTP::Response->new(content => join(',', 'OK', $content));
+}
+
+sub _method_exists {
+    my ($self, $method, $return_type) = @_;
+    my $response = 'Something';
+    $response = 'true' if $method =~ m/^(?:is_|get_whether)/i;
+    $self->_set_mock_response_content($response);
+    lives_ok { $self->$method() } "$method lives";
+}
+1;

t/selenium-compat.t

@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Test::More qw/no_plan/;
+use t::Utils qw/method_exists/;
+use Test::Exception;
+
+# The purpose of these tests are to ensure that WWW::Selenium does not 
+# break backwards compatibility with previously released versions.
+
+BEGIN {
+    use lib 't/lib';
+    use_ok 'LWP::UserAgent';    # mocked
+    use_ok 'HTTP::Response';    # mocked
+    use lib 'lib';
+    use_ok 't::WWW::Selenium';  # subclass for testing
+}
+
+my $sel = t::WWW::Selenium->new;
+isa_ok $sel, 't::WWW::Selenium';
+
+Simple_check: {
+    $sel->_method_exists("is_location");
+    $sel->_method_exists("get_checked");
+    $sel->_method_exists("is_selected");
+    $sel->_method_exists("get_selected_options");
+}
+
+Is_location: {
+    True: {
+        $sel->_set_mock_response_content('true');
+        ok $sel->is_location('example.com');
+    }
+
+    False: {
+        $sel->_set_mock_response_content('false');
+        ok !$sel->is_location('monkey.com');
+    }
+}
+
+Get_checked: {
+    # XXX - Not sure what SeleniumServer actually returns here.
+    True: {
+        $sel->_set_mock_response_content('checked');
+        is $sel->get_checked('id=foo'), 'checked';
+    }
+
+    False: {
+        $sel->_set_mock_response_content('unchecked');
+        is $sel->get_checked('id=foo'), 'unchecked';
+    }
+}

util/test_function.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use lib 'lib';
+use WWW::Selenium;
+
+my ($function, @args) = @ARGV;
+die 'no function' unless $function;
+
+my $sel = WWW::Selenium->new(browser_url => 'http://www.csc.uvic.ca', browser => '*chrome');
+$sel->start;
+$sel->open('/~labspg/Reference/javascript/script4.4.html');
+my $content = $sel->get_body_text;
+die "No happy: ($content)" unless $content =~ /Happiness/;