deleting old files

t/01-driver-live.t

@@ -1,215 +0,0 @@
-use strict;
-use warnings;
-
-use Test::More;
-use Net::Ping;
-use Data::Dumper;
-
-BEGIN {
-   unless (use_ok( 'Selenium::Remote::Driver'))
-   {
-      BAIL_OUT ("Couldn't load Driver");
-      exit;
-   }
-   
-   if (defined $ENV{'WD_MOCKING_RECORD'} && ($ENV{'WD_MOCKING_RECORD'}==1))
-   {
-      use t::lib::MockSeleniumWebDriver;
-      my $p = Net::Ping->new("tcp", 2);
-      $p->port_number(4444);
-      unless ($p->ping('localhost')) {
-         plan skip_all => "Selenium server is not running on localhost:4444";
-         exit;
-      }
-      warn "\n\nRecording...\n\n";
-   }
-}
-
-my $record = (defined $ENV{'WD_MOCKING_RECORD'} && ($ENV{'WD_MOCKING_RECORD'}==1))?1:0;
-my $mock_file = '01-driver-mock-'.$^O.'.json';
-t::lib::MockSeleniumWebDriver::register($record,"t/mock-recordings/$mock_file");
-
-# Start our local http server
-if ($^O eq 'MSWin32' && $record)
-{
-   system("start \"TEMP_HTTP_SERVER\" /MIN perl t/http-server.pl");
-}
-elsif ($record)
-{
-    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->{'browserName'}, 'firefox', 'Right capabilities');
-                my $status = $driver->status;
-                ok($status->{build}->{version},"Got status build.version");
-                ok($status->{build}->{revision},"Got status build.revision");
-                ok($status->{build}->{time},"Got status build.time");
-              }
-
-IME: {
-    SKIP: {
-    eval {$driver->available_engines;};
-    if($@) {
-      skip "ime not available on this system",3;
-    }
-    };
-}
-
-LOAD_PAGE: {
-                $driver->get("$website/index.html");
-                pass('Loaded home page');
-                $ret = $driver->get_title();
-                is($ret, 'Hello WebDriver', 'Got the title');
-                $ret = $driver->get_current_url();
-                ok($ret =~ m/$website/i, 'Got proper URL');
-           }
-
-WINDOW: {
-            $ret = $driver->get_current_window_handle();
-            ok($ret =~ m/^{.*}$/, 'Proper window handle received');
-            $ret = $driver->get_window_handles();
-            is(ref $ret, 'ARRAY', 'Received all window handles');
-            $ret = $driver->get_page_source();
-            ok($ret =~ m/^<html/i, 'Received page source');
-            eval {$driver->set_implicit_wait_timeout(20001);};
-            ok(!$@,"Set implicit wait timeout");
-            eval {$driver->set_implicit_wait_timeout(0);};
-            ok(!$@,"Reset implicit wait timeout");
-            $ret = $driver->get("$website/frameset.html");
-            $ret = $driver->switch_to_frame('second');
-        }
-
-COOKIES: {
-            $driver->get("$website/cookies.html");
-            $ret = $driver->get_all_cookies();
-            is(@{$ret}, 2, 'Got 2 cookies');
-            $ret = $driver->delete_all_cookies();
-            pass('Deleting cookies...');
-            $ret = $driver->get_all_cookies();
-            is(@{$ret}, 0, 'Deleted all cookies.');
-            $ret = $driver->add_cookie('foo', 'bar', '/', 'localhost', 0);
-            pass('Adding cookie foo...');
-            $ret = $driver->get_all_cookies();
-            is(@{$ret}, 1, 'foo cookie added.');
-            $ret = $driver->delete_cookie_named('foo');
-            pass('Deleting cookie foo...');
-            $ret = $driver->get_all_cookies();
-            is(@{$ret}, 0, 'foo cookie deleted.');
-            $ret = $driver->delete_all_cookies();
-         }
-
-MOVE: {
-        $driver->get("$website/index.html");
-        $driver->get("$website/formPage.html");
-        $ret = $driver->go_back();
-        pass('Clicked Back...');
-        $ret = $driver->get_title();
-        is($ret, 'Hello WebDriver', 'Got the right title');
-        $ret = $driver->go_forward();
-        pass('Clicked Forward...');
-        $ret = $driver->get_title();
-        is($ret, 'We Leave From Here', 'Got the right title');
-        $ret = $driver->refresh();
-        pass('Clicked Refresh...');
-        $ret = $driver->get_title();
-        is($ret, 'We Leave From Here', 'Got the right title');
-      }
-
-FIND: {
-        my $elem = $driver->find_element("//input[\@id='checky']");
-        ok($elem->isa('Selenium::Remote::WebElement'), 'Got WebElement via Xpath');
-        $elem = $driver->find_element('checky', 'id');
-        ok($elem->isa('Selenium::Remote::WebElement'), 'Got WebElement via Id');
-        $elem = $driver->find_element('checky', 'name');
-        ok($elem->isa('Selenium::Remote::WebElement'), 'Got WebElement via Name');
-
-        $elem = $driver->find_element('multi', 'id');
-        $elem = $driver->find_child_element($elem, "option");
-        ok($elem->isa('Selenium::Remote::WebElement'), 'Got child WebElement...');
-        $ret = $elem->get_value();
-        is($ret, 'Eggs', '...right child WebElement');
-        $ret = $driver->find_child_elements($elem, "//option[\@selected='selected']");
-        is(@{$ret}, 4, 'Got 4 WebElements');
-        my $expected_err = "An element could not be located on the page using the "
-         . "given search parameters: "
-         . "element_that_doesnt_exist,id"
-        # the following needs to always be right before the eval
-         . " at " . __FILE__ . " line " . (__LINE__+1);
-        eval { $driver->find_element("element_that_doesnt_exist","id"); };
-        chomp $@;
-        is($@,$expected_err,"find_element croaks properly");
-      }
-
-EXECUTE: {
-        my $script = q{
-          var arg1 = arguments[0];
-          var elem = window.document.getElementById(arg1);
-          return elem;
-        };
-        my $elem = $driver->execute_script($script,'checky');
-        ok($elem->isa('Selenium::Remote::WebElement'), 'Executed script');
-        is($elem->get_attribute('id'),'checky','Execute found proper element');
-        $script = q{
-          var arg1 = arguments[0];
-          var callback = arguments[arguments.length-1];
-          var elem = window.document.getElementById(arg1);
-          callback(elem);
-        };
-        my $callback = q{return arguments[0];};
-        $elem = $driver->execute_async_script($script,'multi',$callback);
-        ok($elem->isa('Selenium::Remote::WebElement'),'Executed async script');
-        is($elem->get_attribute('id'),'multi','Async found proper element');
-}
-
-ALERT: {
-        $driver->get("$website/alerts.html");
-        $driver->find_element("alert",'id')->click;
-        is($driver->get_alert_text,'cheese','alert text match');
-        eval {$driver->dismiss_alert;};
-        ok(!$@,"dismissed alert");
-        $driver->find_element("prompt",'id')->click;
-        is($driver->get_alert_text,'Enter your name','prompt text match');
-        $driver->send_keys_to_prompt("Larry Wall");
-        eval {$driver->accept_alert;};
-        ok(!$@,"accepted prompt");
-        is($driver->get_alert_text,'Larry Wall','keys sent to prompt');
-        $driver->dismiss_alert;
-        $driver->find_element("confirm",'id')->click;
-        is($driver->get_alert_text,"Are you sure?",'confirm text match');
-        eval {$driver->dismiss_alert;};
-        ok(!$@,"dismissed confirm");
-        is($driver->get_alert_text,'false',"dismissed confirmed correct");
-        $driver->accept_alert;
-        $driver->find_element("confirm",'id')->click;
-        eval {$driver->accept_alert;};
-        ok(!$@,"accepted confirm");
-        is($driver->get_alert_text,'true',"accept confirm correct");
-        $driver->accept_alert;
-}
-
-QUIT: {
-        $ret = $driver->quit();
-        ok((not defined $driver->{'session_id'}), 'Killed the remote session');
-      }
-
-# Kill our HTTP Server
-if ($^O eq 'MSWin32' && $record)
-{
-   system("taskkill /FI \"WINDOWTITLE eq TEMP_HTTP_SERVER\"");
-}
-elsif ($record)
-{
-    `ps aux | grep http-server\.pl | grep perl | awk '{print \$2}' | xargs kill`;
-}
-
-done_testing;
-

t/02-webelement-live.t

@@ -1,129 +0,0 @@
-use strict;
-use warnings;
-
-use Test::More;
-use Net::Ping;
-use Data::Dumper;
-
-BEGIN {
-    my $p = Net::Ping->new("tcp", 2);
-    $p->port_number(4444);
-    unless ($p->ping('localhost')) {
-        plan skip_all => "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;
-my $elem;
-
-LINK: {
-        $driver->get("$website/formPage.html");
-        $driver->find_element("//a[\@href='/index.html']")->click;
-        pass('Click Link...');
-        $ret = $driver->get_title();
-        is($ret, 'Hello WebDriver', 'Verify clicked link.');
-        $driver->go_back();
-      }
-
-INPUT: {
-            $elem = $driver->find_element('withText', 'id');
-            $ret = $elem->get_text();
-            is($ret, 'Example text', 'Get innerText');
-            $elem = $driver->find_element('id-name1', 'id');
-            $ret = $elem->get_value();
-            is($ret, 'id', 'Get value (attribute)');
-            $ret = $elem->get_attribute('value');
-            is($ret, 'id', 'Get attribute @value');
-            $ret = $elem->get_tag_name();
-            is($ret, 'input', 'Get tag name');
-            
-            $elem = $driver->find_element('checky', 'id');
-            $ret = $elem->is_selected();
-            is($ret, 'false', 'Checkbox not selected');
-            $ret = $elem->click();
-            $ret = $elem->is_selected();
-            is($ret, 'true', 'Checkbox is selected');
-            TODO: {
-            local $TODO = "toggle doesn't appear to be working currently in selenium server";
-            eval {$ret = $elem->toggle();};
-            $ret = $elem->is_selected();
-            is($ret, 'false', 'Toggle & Checkbox is selected');
-            };
-            note "describe return data has not yet been defined";
-            ok($elem->describe,"describe returns data");
-       }
-
-MODIFIER: {
-            $driver->get("$website/metakeys.html");
-            $elem = $driver->find_element('metainput','id');
-            eval {
-              $driver->send_modifier('Alt','down');
-              $elem->send_keys('c');
-              $driver->send_modifier('Alt','up');
-            };
-            if($@) {
-              TODO: {
-                local $TODO = "modifier keys broken case 1993 and 1427";
-                fail "sent modifier keys";
-              }
-            } else {
-              $elem = $driver->find_element('metaoutput','id');
-              like($elem->get_value,qr/18/,"sent modifier keys");
-              note $elem->get_value;
-            }
-}
-
-IMAGES: {
-            $driver->get("$website/dragAndDropTest.html");
-            $elem = $driver->find_element('test1', 'id');
-            $ret = $elem->get_size();
-            is($ret->{'width'}, '18', 'Image - right width');
-            is($ret->{'height'}, '18', 'Image - right height');
-            $ret = $elem->get_element_location();
-            ok(defined $ret->{'x'}, 'Image - got x coord');
-            ok(defined $ret->{'y'}, 'Image - got y coord');
-            my $x = $ret->{'x'};
-            my $y = $ret->{'y'};
-            TODO: {
-            local $TODO = "drag doesn't appear to be working currently in selenium server";
-            eval {$ret = $elem->drag(200,200);};
-            $ret = $elem->get_element_location();
-            is($ret->{'x'}, ($x+200), 'Moved to new x coord');
-            is($ret->{'y'}, ($y+200), 'Moved to new y coord');
-            };
-        }
-
-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`;
-}
-
-done_testing;