In the beginning there was darkness
This commit is contained in:
parent
27bcb26c0d
commit
d244cd7181
|
@ -3,7 +3,7 @@
|
||||||
(synopsis "Cleanroom WebDriver implementation")
|
(synopsis "Cleanroom WebDriver implementation")
|
||||||
(category testing)
|
(category testing)
|
||||||
(license "BSD")
|
(license "BSD")
|
||||||
(dependencies utf8 r7rs coops)
|
(dependencies utf8 r7rs http-client srfi-180)
|
||||||
(test-dependencies srfi-78)
|
(test-dependencies srfi-78)
|
||||||
(components
|
(components
|
||||||
(extension chicken-on-a-raft
|
(extension chicken-on-a-raft
|
||||||
|
|
|
@ -0,0 +1,17 @@
|
||||||
|
;; -*- geiser-scheme: chicken -*-
|
||||||
|
|
||||||
|
(import (r7rs))
|
||||||
|
(import (scheme base))
|
||||||
|
(import (srfi 180))
|
||||||
|
(import (chicken process))
|
||||||
|
(import http-client)
|
||||||
|
|
||||||
|
(define (firefox)
|
||||||
|
(let-values (((stdout stdin pid stderr) (process* "geckodriver"))
|
||||||
|
(host "127.0.0.1")
|
||||||
|
(port "4444")
|
||||||
|
)
|
||||||
|
(lambda (msg #!optional args)
|
||||||
|
(case msg
|
||||||
|
((test) (print "Test"))
|
||||||
|
((test-with-args) (print "Args:" args))))))
|
|
@ -2,19 +2,5 @@
|
||||||
(import (r7rs))
|
(import (r7rs))
|
||||||
|
|
||||||
(define-library (chicken-on-a-raft)
|
(define-library (chicken-on-a-raft)
|
||||||
(import (scheme base)
|
(import (scheme base))
|
||||||
coops
|
(include "chicken-on-a-raft.impl.scm"))
|
||||||
coops-primitive-objects
|
|
||||||
http-client)
|
|
||||||
(export #f)
|
|
||||||
(begin
|
|
||||||
(define-class <Driver> ()
|
|
||||||
((proc accessor: driver-proc))
|
|
||||||
((url accessor: driver-url)))
|
|
||||||
|
|
||||||
(define-method (initialize-instance ()))
|
|
||||||
|
|
||||||
(define-class <Firefox> (<Driver>))
|
|
||||||
|
|
||||||
|
|
||||||
))
|
|
||||||
|
|
Loading…
Reference in New Issue