{"size": 860, "ext": "rktl", "max_stars_repo_path": "pkgs/racket-test-core/tests/racket/syntaxlibs.rktl", "max_stars_repo_name": "lkh01/racket", "max_stars_repo_stars_event_min_datetime": "2018-07-05T21:18:24.000Z", "max_stars_repo_stars_event_max_datetime": "2021-06-04T14:48:37.000Z", "max_issues_repo_path": "pkgs/racket-test-core/tests/racket/syntaxlibs.rktl", "max_issues_repo_name": "lkh01/racket", "max_issues_repo_issues_event_min_datetime": "2017-05-10T07:33:20.000Z", "max_issues_repo_issues_event_max_datetime": "2018-07-19T15:49:46.000Z", "max_forks_repo_path": "pkgs/racket-test-core/tests/racket/syntaxlibs.rktl", "max_forks_repo_name": "lkh01/racket", "max_forks_repo_forks_event_min_datetime": "2016-04-25T11:47:57.000Z", "max_forks_repo_forks_event_max_datetime": "2017-05-09T14:52:48.000Z"}
{"max_stars_count": 4, "max_issues_count": 9, "max_forks_count": 3, "avg_line_length": 26.875, "max_line_length": 86, "alphanum_fraction": 0.3476744186}

(load-relative "loadtest.rktl")

(Section 'syntax/....)

(require (for-syntax syntax/template))

(let ()
  (define-syntax (a-template-test stx)
    (syntax-case stx ()
      [(_ tmpl)
       (let ([v (transform-template #'tmpl
                           #:save (lambda (stx) stx)
                           #:restore-stx #'(lambda (v stx datum)
                                             (datum->syntax stx datum stx stx stx)))])
         v)]))

  (test '(1 #s(x "a" 1/2 8 9)
            (2 3) 
            (#s(y 8) #s(y 9))
            #(3 4 8 9)
            . 6)
        syntax->datum
        (with-syntax ([(w ...) #'(8 9)])
          (a-template-test (1 #s(x "a" 1/2 w ...) 
                              (2 3) 
                              (#s(y w) ...)
                              #(3 4 w ...)
                              . 6)))))

(report-errs)
