23 lines
472 B
Racket
23 lines
472 B
Racket
#lang racket/base
|
|
(require "test-suite-utils.rkt")
|
|
|
|
(test
|
|
'number-snip-convert-text
|
|
(λ (x) (equal? "1/2" x))
|
|
(lambda ()
|
|
(queue-sexp-to-mred
|
|
`((dynamic-require 'file/convertible 'convert)
|
|
(number-snip:make-fraction-snip 1/2 #f)
|
|
'text
|
|
#f))))
|
|
|
|
(test
|
|
'number-snip-convert-png
|
|
bytes?
|
|
(lambda ()
|
|
(queue-sexp-to-mred
|
|
`((dynamic-require 'file/convertible 'convert)
|
|
(number-snip:make-fraction-snip 1/2 #f)
|
|
'png-bytes
|
|
#f))))
|