suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Remove dependency on eli-tester.

Browse Source 
Was causing dependency issues on the Debian package builds.
This commit is contained in:
Vincent St-Amour 2015-09-26 21:49:01 -05:00
parent ea01ae2f68
commit 70844e237b
2 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scribble-lib/info.rkt
View File

@ -15,8 +15,7 @@
"sandbox-lib"
"typed-racket-lib"
))
(define build-deps '("rackunit-lib"
"eli-tester"))
(define build-deps '("rackunit-lib"))
(define implies '("scribble-html-lib"))

40
scribble-lib/scribble/private/manual-code.rkt
View File

@ -326,7 +326,7 @@
(module+ test
(require racket/list
racket/match
tests/eli-tester)
rackunit)
(define (tokens strs)
(define-values (toks _) (get-tokens strs #f #f))
@ -348,24 +348,26 @@
(list* `(function 0 5 1) `(white-space 5 6 0) `(function 6 12 1) `(function 6 12 1)
(reverse res)))
(test
(check-equal?
(tokens (list "#lang racket\n1"))
=> `((function 0 5 1) (white-space 5 6 0) ;"#lang "
(function 6 12 1) (function 6 12 1) (white-space 12 13 0) ;"racket\n"
(constant 13 14 0)) ; "1"
`((function 0 5 1) (white-space 5 6 0) ;"#lang "
(function 6 12 1) (function 6 12 1) (white-space 12 13 0) ;"racket\n"
(constant 13 14 0))) ; "1"
(check-equal?
(tokens (list "#lang racket\n" "(+ 1 2)"))
=> (make-test-result
'((white-space 1)
(parenthesis 1) (function 1)
(white-space 1) (constant 1) (white-space 1) (constant 1)
(parenthesis 1)))
(make-test-result
'((white-space 1)
(parenthesis 1) (function 1)
(white-space 1) (constant 1) (white-space 1) (constant 1)
(parenthesis 1))))
(check-equal?
(tokens (list "#lang racket\n(apply x (list y))"))
=> (make-test-result
'((white-space 1)
(parenthesis 1)
(function 5) (white-space 1);apply
(function 1) (white-space 1);x
(parenthesis 1)
(function 4) (white-space 1) (function 1);list y
(parenthesis 1)
(parenthesis 1)))))
(make-test-result
'((white-space 1)
(parenthesis 1)
(function 5) (white-space 1);apply
(function 1) (white-space 1);x
(parenthesis 1)
(function 4) (white-space 1) (function 1);list y
(parenthesis 1)
(parenthesis 1)))))