20 lines
471 B
Racket
20 lines
471 B
Racket
#lang racket/base
|
|
|
|
(require rackunit
|
|
"../main.rkt"
|
|
"jsmaker-test-framework.rkt")
|
|
|
|
(provide regexp-tests)
|
|
|
|
(define regexp-tests
|
|
(test-suite
|
|
"string escaping regression tests"
|
|
(test-case "strings are JavaScript escaped"
|
|
(check-js-equal? (js "a\"b") "\"a\\\"b\";\n")
|
|
(check-js-equal? (js "a\\b") "\"a\\\\b\";\n")
|
|
(check-js-equal? (js "a\nb") "\"a\\nb\";\n"))))
|
|
|
|
(module+ test
|
|
(require rackunit/text-ui)
|
|
(run-tests regexp-tests))
|