35 lines
1.0 KiB
Racket
35 lines
1.0 KiB
Racket
#lang racket/base
|
|
|
|
;; `format:` expressions that should fail to compile
|
|
|
|
;; TODO abstract the 'module ...'
|
|
(define TEST-CASE* (syntax->list #'(
|
|
(module t typed/racket/base (require trivial/format)
|
|
(printf: "hello ~a" "john" "doe"))
|
|
(module t typed/racket/base (require trivial/format)
|
|
(printf: "hello ~a" "john" "doe"))
|
|
(module t typed/racket/base (require trivial/format)
|
|
(printf: "binary number ~b\n" 3.14))
|
|
(module t typed/racket/base (require trivial/format)
|
|
(printf: "character ~c\n" 88))
|
|
(module t typed/racket/base (require trivial/format)
|
|
(printf: "octl ~o\n" 1.0+2i))
|
|
(module t typed/racket/base (require trivial/format)
|
|
(printf: "hex ~o\n" (exact->inexact 0)))
|
|
)))
|
|
|
|
(module+ test
|
|
(require
|
|
rackunit)
|
|
|
|
(define format-eval
|
|
(let ([format-ns (make-base-namespace)])
|
|
(lambda (stx)
|
|
(lambda () ;; For `check-exn`
|
|
(eval-syntax stx format-ns)))))
|
|
|
|
(for ([rkt (in-list TEST-CASE*)])
|
|
(check-exn #rx"format::|Type Checker"
|
|
(format-eval rkt)))
|
|
)
|