Procedure rename

FossilOrigin-Name: 853b723afabaa4d41d2be609795c3a26aae6ef13690cdb285fa2f49ffd46fe02

tests/run.scm

@@ -26,7 +26,7 @@
 
 ;; [[file:../webdriver.org::wd-session-test][wd-session-test]]
 (test-group "session"
-  (let ((browser (new-WebDriver <Gecko>)))
+  (let ((browser (make-WebDriver <Gecko>)))
     (test "Initial state" #f (slot-value browser 'session-id))
     (test-assert "Session id check" (string? (begin (initialize-session browser) (slot-value browser 'session-id))))
     (test-assert "Session id after termination" (eq? #f (begin (terminate-session browser) (slot-value browser 'session-id))))
@@ -39,7 +39,7 @@
 
 ;; [[file:../webdriver.org::wd-url-test][wd-url-test]]
 (test-group "url"
-  (let ((browser (new-WebDriver <Gecko>)))
+  (let ((browser (make-WebDriver <Gecko>)))
     (test "Initial state" #f (slot-value browser 'session-id))
     (test "Navigating to the first website" "http://info.cern.ch/hypertext/WWW/TheProject.html"
           (begin (initialize-session browser)

webdriver-impl.scm

@@ -144,12 +144,12 @@
 
 
 
-;; Main initialization is done by calling the ~new-WebDriver~ procedure with the respective class name and optionally an alist of options.
+;; Main initialization is done by calling the ~make-WebDriver~ procedure with the respective class name and optionally an alist of options.
 
 ;; #+name: webdriver-init
 
 ;; [[file:webdriver.org::webdriver-init][webdriver-init]]
-(define (new-WebDriver browser #!optional options)
+(define (make-WebDriver browser #!optional options)
   (let ((instance (make browser)))
     (launch instance options)
     (sleep 1)

webdriver.org

@@ -62,7 +62,7 @@
   (import (scheme base))
   (export <WebDriver>
           <Gecko>
-          new-WebDriver
+          make-WebDriver
           terminate
           initialize-session
           terminate-session
@@ -244,11 +244,11 @@ The parent class provides a handful of methods, but does not implement all of th
   result)
 #+end_src
 
-Main initialization is done by calling the ~new-WebDriver~ procedure with the respective class name and optionally an alist of options.
+Main initialization is done by calling the ~make-WebDriver~ procedure with the respective class name and optionally an alist of options.
 
 #+name: webdriver-init
 #+begin_src scheme :tangle webdriver-impl.scm
-(define (new-WebDriver browser #!optional options)
+(define (make-WebDriver browser #!optional options)
   (let ((instance (make browser)))
     (launch instance options)
     (sleep 1)
@@ -355,7 +355,7 @@ Session management is very simple. There is just one method to initialize a new
 #+begin_src scheme :tangle tests/run.scm :noweb strip-tangle :exports results :post test-post(input=*this*) :results output
 <<prep-geckodriver-test>>
 (test-group "session"
-  (let ((browser (new-WebDriver <Gecko>)))
+  (let ((browser (make-WebDriver <Gecko>)))
     (test "Initial state" #f (slot-value browser 'session-id))
     (test-assert "Session id check" (string? (begin (initialize-session browser) (slot-value browser 'session-id))))
     (test-assert "Session id after termination" (eq? #f (begin (terminate-session browser) (slot-value browser 'session-id))))
@@ -387,7 +387,7 @@ Session management is very simple. There is just one method to initialize a new
 <<prep-geckodriver-test>>
 <<wd-url>>
 (test-group "url"
-  (let ((browser (new-WebDriver <Gecko>)))
+  (let ((browser (make-WebDriver <Gecko>)))
     (test "Initial state" #f (slot-value browser 'session-id))
     (test "Navigating to the first website" "http://info.cern.ch/hypertext/WWW/TheProject.html"
           (begin (initialize-session browser)

webdriver.scm

@@ -4,7 +4,7 @@
   (import (scheme base))
   (export <WebDriver>
           <Gecko>
-          new-WebDriver
+          make-WebDriver
           terminate
           initialize-session
           terminate-session