14 lines
476 B
Racket
14 lines
476 B
Racket
#lang racket/base
|
|
|
|
(require "../demo/js-usecases.rkt"
|
|
"jsmaker-test-framework.rkt")
|
|
|
|
(check-contains 'usecase-random "Math.floor" usecase-random-number)
|
|
(check-contains 'usecase-unique "new Set" usecase-unique-values)
|
|
(check-contains 'usecase-array-at "return xs[i];" usecase-array-at)
|
|
(check-contains 'usecase-named-let "while (true)" usecase-sum-to)
|
|
(check-contains 'usecase-dom "getElementById" usecase-set-html)
|
|
|
|
(module+ main
|
|
(test-summary 'jsmaker-usecases))
|