In the beginning there was darkness
This commit is contained in:
commit
27bcb26c0d
|
@ -0,0 +1,13 @@
|
||||||
|
;; -*- mode: scheme -*-
|
||||||
|
((author "Daniel Ziltener")
|
||||||
|
(synopsis "Cleanroom WebDriver implementation")
|
||||||
|
(category testing)
|
||||||
|
(license "BSD")
|
||||||
|
(dependencies utf8 r7rs coops)
|
||||||
|
(test-dependencies srfi-78)
|
||||||
|
(components
|
||||||
|
(extension chicken-on-a-raft
|
||||||
|
(csc-options
|
||||||
|
"-X" "r7rs"
|
||||||
|
"-R" "r7rs"
|
||||||
|
"-sJ"))))
|
Binary file not shown.
After Width: | Height: | Size: 3.3 KiB |
|
@ -0,0 +1,20 @@
|
||||||
|
;; -*- geiser-scheme: chicken -*-
|
||||||
|
(import (r7rs))
|
||||||
|
|
||||||
|
(define-library (chicken-on-a-raft)
|
||||||
|
(import (scheme base)
|
||||||
|
coops
|
||||||
|
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