#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))