www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

test-splice.rkt (300B)

      1 #lang racket
      2 
      3 (require subtemplate/private/ddd-forms
      4          rackunit)
      5 
      6 (check-equal? (let ([l '(4 5 6)])
      7                 (vector (?@ 1 2 3 . l)))
      8               #(1 2 3 4 5 6))
      9 
     10 (check-equal? (let ([l '(4 5 6)])
     11                 (vector (?@ 1 2 3 (?@ . l) 7 8 9)))
     12               #(1 2 3 4 5 6 7 8 9))