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

add tests for scribble/eval

Browse Source 
original commit: cd50d0077675adf2d73f064326cf28f461866ebc
This commit is contained in:
Stephen Chang 2014-03-04 16:27:32 -05:00
parent b11717253d
commit b2d05d8a2f
1 changed files with 71 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
pkgs/scribble-pkgs/scribble-test/tests/scribble/eval.rkt Normal file
View File

@ -0,0 +1,71 @@
#lang racket/base
(require scribble/eval scribble/core rackunit racket/match)
(check-not-exn (λ () (make-base-eval)))
(check-not-exn (λ () (make-base-eval #:pretty-print? #t #:lang 'racket/base)))
(check-not-exn (λ () (make-base-eval #:pretty-print? #t #:lang 'racket)))
(check-not-exn (λ () (make-base-eval #:pretty-print? #t #:lang 'typed/racket)))
(check-not-exn (λ () (make-base-eval #:pretty-print? #t #:lang 'lazy)))
(check-not-exn (λ () (make-base-eval #:pretty-print? #f #:lang 'racket/base)))
(check-not-exn (λ () (make-base-eval #:pretty-print? #f #:lang 'racket)))
(check-not-exn (λ () (make-base-eval #:pretty-print? #f #:lang 'typed/racket)))
(check-not-exn (λ () (make-base-eval #:pretty-print? #f #:lang 'lazy)))
(check-not-exn (λ () ((make-base-eval-factory '() #:pretty-print? #t))))
(check-not-exn (λ () ((make-base-eval-factory '() #:pretty-print? #t #:lang 'racket/base))))
(check-not-exn (λ () ((make-base-eval-factory '() #:pretty-print? #t #:lang 'racket))))
(check-not-exn (λ () ((make-base-eval-factory '() #:pretty-print? #t #:lang 'typed/racket))))
(check-not-exn (λ () ((make-base-eval-factory '() #:pretty-print? #t #:lang 'lazy))))
(check-not-exn (λ () ((make-eval-factory '() #:pretty-print? #t))))
(check-not-exn (λ () ((make-eval-factory '() #:pretty-print? #t #:lang 'racket/base))))
(check-not-exn (λ () ((make-eval-factory '() #:pretty-print? #t #:lang 'racket))))
(check-not-exn (λ () ((make-eval-factory '() #:pretty-print? #t #:lang 'typed/racket))))
(check-not-exn (λ () ((make-eval-factory '() #:pretty-print? #t #:lang 'lazy))))
(define (get-result-blocks nf)
(match (nested-flow-blocks nf) [(list (table _ (list _ res))) res]))
(define filter-datum '(define (filter p? lst)
(if (null? lst)
null
(let ([x (car lst)])
(if (p? x)
(cons x (filter p? (cdr lst)))
(filte p? (cdr lst)))))))
;; check that pretty printing is working
(define pp-blocks
(car
(get-result-blocks
(interaction #:eval (make-base-eval #:pretty-print? #t #:lang 'racket)
'(define (filter p? lst)
(if (null? lst)
null
(let ([x (car lst)])
(if (p? x)
(cons x (filter p? (cdr lst)))
(filter p? (cdr lst))))))))))
(check-true (table? pp-blocks)) ; multiple line result gets put in a table of paragraphs
(check-equal? (length (table-blockss pp-blocks)) 5) ;; pretty printed into 5 lines
(define non-pp-blocks
(car
(get-result-blocks
(interaction #:eval (make-base-eval #:pretty-print? #f #:lang 'racket)
'(define (filter p? lst)
(if (null? lst)
null
(let ([x (car lst)])
(if (p? x)
(cons x (filter p? (cdr lst)))
(filter p? (cdr lst))))))))))
(check-true (paragraph? non-pp-blocks)) ;; single line result is just 1 paragraph
;; check that different evaluators do not share a single namespace
(define e1 (make-base-eval))
(define e2 (make-base-eval))
(check-exn exn:fail:contract:variable? (λ () (e1 '(current-date))))
(check-exn exn:fail:contract:variable? (λ () (e2 '(current-date))))
(e1 '(require racket/date))
(check-not-exn (λ () (e1 '(current-date))))
(check-exn exn:fail:contract:variable? (λ () (e2 '(current-date))))