25 lines
620 B
Racket
25 lines
620 B
Racket
#lang racket
|
|
|
|
;; These tests aren't meant to be run so much as manipulated after running
|
|
|
|
(require plot plot/utils unstable/flonum)
|
|
|
|
(parameterize ([plot-x-transform log-transform])
|
|
(plot (function values +min.0 1)))
|
|
|
|
(define raise-error? #f)
|
|
|
|
(plot (function (λ (x)
|
|
(when raise-error?
|
|
(error 'buh "buh buh"))
|
|
(sin x))
|
|
-4 4))
|
|
|
|
(plot3d (surface3d (λ (x y)
|
|
(when raise-error?
|
|
(error 'buh "buh buh buh"))
|
|
(- (sqr x) (sqr y)))
|
|
-1 1 -1 1))
|
|
|
|
(set! raise-error? #t)
|