Add early safari support

There will not be any CI tests because there is no headless mode for safaridriver

spec/features/element_interactions_spec.cr

@@ -17,7 +17,7 @@ module Selenium::Command
       end
     end
 
-    it "can clear", tags: "firefox" do
+    it "can clear", tags: ["firefox", "safari"] do
       TestServer.route "/home", <<-HTML
         <input type="text" id="name" value="John">
       HTML
@@ -30,7 +30,7 @@ module Selenium::Command
       end
     end
 
-    it "can send keys", tags: "firefox" do
+    it "can send keys", tags: ["firefox", "safari"] do
       TestServer.route "/home", <<-HTML
         <input type="text" id="name" value="">
       HTML
@@ -76,7 +76,7 @@ module Selenium::Command
       end
     end
 
-    it "can determine if element is displayed" do
+    it "can determine if element is displayed", tags: "safari" do
       TestServer.route "/home", <<-HTML
       <input type="text" id="visible-input" value="">
       <input type="hidden" id="hidden-input" value="">

spec/features/error_handling_spec.cr

@@ -14,7 +14,7 @@ module Selenium::Command
       end
     end
 
-    it "raises exceptions when trying to find element within element that no longer exists" do
+    it "raises exceptions when trying to find element within element that no longer exists", tags: "safari" do
       TestServer.route "/home", "<div id=\"parent\"><a href=\"/about\">Click</a></div>"
       TestServer.route "/about", "<h1>The Title</h1>"
 

spec/features/window_interactions_spec.cr

@@ -2,7 +2,7 @@ require "../spec_helper"
 
 module Selenium::Command
   describe "window", tags: "feature" do
-    it "can be interacted with" do
+    it "can be interacted with", tags: "safari" do
       with_session do |session|
         window_manager = session.window_manager
         window_manager.maximize

spec/support/test_driver_factory.cr

@@ -7,6 +7,8 @@ class Selenium::TestDriverFactory
       build_firefox_driver
     when "chrome-no-service"
       build_chrome_driver_no_service
+    when "safari"
+      build_safari_driver
     else
       raise ArgumentError.new("unknown browser for running tests: #{browser}")
     end
@@ -33,11 +35,8 @@ class Selenium::TestDriverFactory
     {driver, capabilities}
   end
 
-  private def self.chrome?(browser)
-    browser == "chrome"
-  end
-
-  private def self.firefox?(browser)
-    browser == "firefox"
+  def self.build_safari_driver : Tuple(Driver, Capabilities)
+    driver = Driver.for(:safari, service: Service.safari(driver_path: "/usr/bin/safaridriver"))
+    {driver, Safari::Capabilities.new}
   end
 end

src/selenium.cr

@@ -7,6 +7,7 @@ require "./selenium/*"
 require "./selenium/remote/**"
 require "./selenium/firefox/**"
 require "./selenium/chrome/**"
+require "./selenium/safari/**"
 
 module Selenium
   VERSION = "0.4.0"

src/selenium/driver.cr

@@ -7,6 +7,8 @@ class Selenium::Driver
       Firefox::Driver.new(**opts)
     when :remote
       Remote::Driver.new(**opts)
+    when :safari
+      Safari::Driver.new(**opts)
     else
       raise ArgumentError.new "unknown driver: #{browser}"
     end

src/selenium/safari/capabilities.cr

@@ -0,0 +1,3 @@
+class Selenium::Safari::Capabilities < Selenium::Capabilities
+  @browser_name = "safari"
+end

src/selenium/safari/driver.cr

@@ -0,0 +1,5 @@
+class Selenium::Safari::Driver < Selenium::Driver
+  def create_session(capabilities : Safari::Capabilities) : Session
+    super(capabilities)
+  end
+end

src/selenium/safari/service.cr

@@ -0,0 +1,9 @@
+class Selenium::Safari::Service < Selenium::Service
+  def default_port : Int32
+    7050
+  end
+
+  def stop
+    stop_process(process)
+  end
+end

src/selenium/service.cr

@@ -10,6 +10,10 @@ abstract class Selenium::Service
     Firefox::Service.new(**opts)
   end
 
+  def self.safari(**opts)
+    Safari::Service.new(**opts)
+  end
+
   private property process : Process?
 
   def initialize(@driver_path : String, @port : Int32 = default_port, @args = [] of String)