Added more live unit tests

t/01-driver-live.t

@@ -96,6 +96,14 @@ FIND: {
         $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');
       }
 
 

t/02-webelement-live.t

@@ -0,0 +1,76 @@
+use strict;
+use warnings;
+
+use Test::More 'no_plan';
+use Data::Dumper;
+
+BEGIN {
+    use_ok( 'Selenium::Remote::Driver' ) || print "Can't load Driver, giving up.";
+}
+
+# Start our local http server
+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");
+        $ret = $driver->find_element("//a[\@href='/index.html']");
+        $elem = $ret->{'cmd_return'};
+        $ret = $elem->click();
+        is($ret->{'cmd_status'}, 'OK', 'Click Link...');
+        $ret = $driver->get_title();
+        is($ret->{'cmd_return'}, 'Hello WebDriver', 'Verify clicked link.');
+        $driver->go_back();
+      }
+
+INPUT: {
+            $elem = ($driver->find_element('withText', 'id'))->{'cmd_return'};
+            $ret = $elem->get_text();
+            is($ret->{'cmd_return'}, 'Example text', 'Get innerText');
+            $elem = ($driver->find_element('id-name1', 'id'))->{'cmd_return'};
+            $ret = $elem->get_value();
+            is($ret->{'cmd_return'}, 'id', 'Get value (attribute)');
+            $ret = $elem->get_attribute('value');
+            is($ret->{'cmd_return'}, 'id', 'Get attribute @value');
+            $ret = $elem->get_tag_name();
+            is($ret->{'cmd_return'}, 'input', 'Get tag name');
+            
+            $elem = ($driver->find_element('checky', 'id'))->{'cmd_return'};
+            $ret = $elem->is_selected();
+            is($ret->{'cmd_return'}, 'false', 'Checkbox not selected');
+            $ret = $elem->click();
+            $ret = $elem->is_selected();
+            is($ret->{'cmd_return'}, 'true', 'Checkbox is selected');
+            $ret = $elem->toggle();
+            $ret = $elem->is_selected();
+            is($ret->{'cmd_return'}, 'false', 'Toggle & Checkbox is selected');
+       }
+
+IMAGES: {
+            $driver->get("$website/dragAndDropTest.html");
+            $elem = ($driver->find_element('test1', 'id'))->{'cmd_return'};
+            $ret = $elem->get_size();
+            is($ret->{'cmd_return'}->{'width'}, '18', 'Image - right width');
+            is($ret->{'cmd_return'}->{'height'}, '18', 'Image - right height');
+            $ret = $elem->get_element_location();
+            ok(defined $ret->{'cmd_return'}->{'x'}, 'Image - got x coord');
+            ok(defined $ret->{'cmd_return'}->{'y'}, 'Image - got y coord');
+            my $x = $ret->{'cmd_return'}->{'x'};
+            my $y = $ret->{'cmd_return'}->{'y'};
+            $ret = $elem->drag(200,200);
+            $ret = $elem->get_element_location();
+            is($ret->{'cmd_return'}->{'x'}, ($x+200), 'Moved to new x coord');
+            is($ret->{'cmd_return'}->{'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
+`ps aux | grep http-server\.pl | grep perl | awk '{print \$2}' | xargs kill`;