19 lines
445 B
Racket
19 lines
445 B
Racket
#lang racket/base
|
|
|
|
(require rackunit
|
|
"../main.rkt"
|
|
"jsmaker-test-framework.rkt")
|
|
|
|
(provide object-tests)
|
|
|
|
(define object-tests
|
|
(test-suite
|
|
"object construction regression tests"
|
|
(test-case "new and method calls"
|
|
(check-js-equal? (js (new Date)) "new Date();\n")
|
|
(check-js-equal? (js (send console log "ok")) "console.log(\"ok\");\n"))))
|
|
|
|
(module+ test
|
|
(require rackunit/text-ui)
|
|
(run-tests object-tests))
|