suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 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" "sandbox-lib"
"typed-racket-lib" "typed-racket-lib"
)) ))
(define build-deps '("rackunit-lib" (define build-deps '("rackunit-lib"))
"eli-tester"))
(define implies '("scribble-html-lib")) (define implies '("scribble-html-lib"))

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

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