Merge pull request #58 from gempesaw/fix-58-get-user-agent

Add ->get_user_agent shortcut sub to enable easy access to user agent string

dist.ini

@@ -22,10 +22,8 @@ test_deps = 0
 [Git::CommitBuild]
 release_branch = cpan
 release_message = v%v - Build results of %h (on %b)
-branch =
 
 [AutoPrereqs]
-
 [GatherDir]
 include_dotfiles = 1
 exclude_filename = cpanfile

lib/Selenium/Remote/Driver.pm

@@ -2244,6 +2244,23 @@ sub get_path {
     return $location;
 }
 
+=head2 get_user_agent
+
+ Description:
+    Convenience method to get the user agent string, according to the
+    browser's value for window.navigator.userAgent.
+
+ Usage:
+    $user_agent = $driver->get_user_agent()
+
+=cut
+
+sub get_user_agent {
+    my $self = shift;
+    return $self->execute_script('return window.navigator.userAgent;');
+}
+
+
 =head2 set_inner_window_size
 
  Description:

t/01-driver.t

@@ -411,6 +411,11 @@ BASE_URL: {
     }
 }
 
+USER_AGENT: {
+    my $ua = $driver->get_user_agent;
+    ok($ua =~ /Firefox/, 'we can get a user agent');
+}
+
 QUIT: {
     $ret = $driver->quit();
     ok((not defined $driver->{'session_id'}), 'Killed the remote session');