Troglodyne
/
Selenium-Remote-Driver


			
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267
							use strict;
use warnings;

use Test::More 'no_plan';
use Net::Ping;
use Data::Dumper;

BEGIN {
   my $p = Net::Ping->new("tcp", 2);
    $p->port_number(4444);
    unless ($p->ping('localhost')) {
        BAIL_OUT ("Selenium server is not running on localhost:4444");
        exit;
    }
    unless (use_ok( 'Selenium::Remote::Driver')) {
        BAIL_OUT ("Couldn't load Driver");
        exit;
    }
}

# Start our local http server
if ($^O eq 'MSWin32')
{
   system("start \"TEMP_HTTP_SERVER\" /MIN perl t/http-server.pl");
}
else
{
    system("perl t/http-server.pl > /dev/null &");
}

my $driver = new Selenium::Remote::Driver(browser_name => 'firefox');
my $website = 'http://localhost:63636';
my $ret;

CHECK_DRIVER: {
                ok(defined $driver, 'Object loaded fine...');
                ok($driver->isa('Selenium::Remote::Driver'), '...and of right type');
                ok(defined $driver->{'session_id'}, 'Established session on remote server');
                $ret = $driver->get_capabilities;
                is($ret->{'cmd_return'}->{'browserName'}, 'firefox', 'Right capabilities');
              }

LOAD_PAGE: {
                $ret = $driver->get("$website/index.html");
                is($ret->{'cmd_status'}, 'OK', 'Loaded home page');
                $ret = $driver->get_title();
                is($ret->{'cmd_return'}, 'Hello WebDriver', 'Got the title');
                $ret = $driver->get_current_url();
                ok($ret->{'cmd_return'} =~ m/$website/i, 'Got proper URL');
           }

WINDOW: {
            $ret = $driver->get_current_window_handle();
            ok($ret->{'cmd_return'} =~ m/^{.*}$/, 'Proper window handle received');
            $ret = $driver->get_window_handles();
            is(ref $ret->{'cmd_return'}, 'ARRAY', 'Received all window handles');
            $ret = $driver->get_page_source();
            ok($ret->{'cmd_return'} =~ m/^<html>/i, 'Received page source');
            $ret = $driver->get_speed();
            ok($ret->{'cmd_return'} =~ m/[SLOW|MEDIUM|FAST]/i, 'Got speed...');
            $ret = $driver->set_speed('FAST');
            is($ret->{'cmd_status'}, 'OK', 'Setting speed to FAST...');
            $ret = $driver->get_speed();
            is($ret->{'cmd_return'}, 'FAST', '...confirmed set_speed()');
            $ret = $driver->get("$website/frameset.html");
            $ret = $driver->switch_to_frame('second');
            is($ret->{'cmd_status'}, 'OK', 'Setting speed to FAST...');
        }

COOKIES: {
            $driver->get("$website/cookies.html");
            $ret = $driver->get_all_cookies();
            is(@{$ret->{'cmd_return'}}, 2, 'Got 2 cookies');
            $ret = $driver->delete_all_cookies();
            is($ret->{'cmd_status'}, 'OK', 'Deleting cookies...');
            $ret = $driver->get_all_cookies();
            is(@{$ret->{'cmd_return'}}, 0, 'Deleted all cookies.');
            $ret = $driver->add_cookie('foo', 'bar', '/', 'localhost', 0);
            is($ret->{'cmd_status'}, 'OK', 'Adding cookie foo...');
            $ret = $driver->get_all_cookies();
            is(@{$ret->{'cmd_return'}}, 1, 'foo cookie added.');
            $ret = $driver->delete_cookie_named('foo');
            is($ret->{'cmd_status'}, 'OK', 'Deleting cookie foo...');
            $ret = $driver->get_all_cookies();
            is(@{$ret->{'cmd_return'}}, 0, 'foo cookie deleted.');
            $ret = $driver->delete_all_cookies();
         }

MOVE: {
        $driver->get("$website/index.html");
        $driver->get("$website/formPage.html");
        $ret = $driver->go_back();
        is($ret->{'cmd_status'}, 'OK', 'Clicked Back...');
        $ret = $driver->get_title();
        is($ret->{'cmd_return'}, 'Hello WebDriver', 'Got the right title');
        $ret = $driver->go_forward();
        is($ret->{'cmd_status'}, 'OK', 'Clicked Forward...');
        $ret = $driver->get_title();
        is($ret->{'cmd_return'}, 'We Leave From Here', 'Got the right title');
        $ret = $driver->refresh();
        is($ret->{'cmd_status'}, 'OK', 'Clicked Refresh...');
        $ret = $driver->get_title();
        is($ret->{'cmd_return'}, 'We Leave From Here', 'Got the right title');
      }

FIND: {
        $ret = $driver->find_element("//input[\@id='checky']");
        my $elem = $ret->{'cmd_return'};
        ok($elem->isa('Selenium::Remote::WebElement'), 'Got WebElement via Xpath');
        $ret = $driver->find_element('checky', 'id');
        $elem = $ret->{'cmd_return'};
        ok($elem->isa('Selenium::Remote::WebElement'), 'Got WebElement via Id');
        $ret = $driver->find_element('checky', 'name');
        $elem = $ret->{'cmd_return'};
        ok($elem->isa('Selenium::Remote::WebElement'), 'Got WebElement via Name');
        
        $elem = ($driver->find_element('multi', 'id'))->{'cmd_return'};
        $ret = $driver->find_child_element($elem, "/option");
        ok($elem->isa('Selenium::Remote::WebElement'), 'Got child WebElement...');
        $ret = $elem->get_value();
        is($ret->{'cmd_return'}, 'Eggs', '...right child WebElement');
        $ret = $driver->find_child_elements($elem, "//option[\@selected='selected']");
        is(@{$ret->{'cmd_return'}}, 2, 'Got 2 WebElements');
      }


QUIT: {
        $ret = $driver->quit();
        ok((not defined $driver->{'session_id'}), 'Killed the remote session');
      }

# Kill our HTTP Server
if ($^O eq 'MSWin32')
{
   system("taskkill /FI \"WINDOWTITLE eq TEMP_HTTP_SERVER\"");
}
else
{
    `ps aux | grep http-server\.pl | grep perl | awk '{print \$2}' | xargs kill`;
}


 type');
emote server');

apabilities');


ved');

s');


);


ath');


');


me');


nk text');


..');


cted']");


);