www

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

test-splice-append.rkt (866B)

      1 #lang racket/base
      2 (require (only-in subtemplate/private/ddd-forms
      3                   splicing-list
      4                   splice-append
      5                   splice-append*)
      6          rackunit)
      7 
      8 (define (mk . vs) (splicing-list vs))
      9 
     10 (check-equal? (splice-append* '(1 2 3)) '(1 2 3))
     11 (check-equal? (splice-append* (mk 1 2 3)) '(1 2 3))
     12 (check-equal? (splice-append* (mk (mk 1 2 3))) '(1 2 3))
     13 (check-equal? (splice-append* (mk (mk (mk 1 2 3)))) '(1 2 3))
     14 (check-equal? (splice-append* (mk -1 (mk 0 (mk 1 2 3) 4 5) 6 7))
     15               '(-1 0 1 2 3 4 5 6 7))
     16 
     17 (check-equal? (splice-append '(1 2 3)) '((1 2 3)))
     18 (check-equal? (splice-append (mk 1 2 3)) '(1 2 3))
     19 (check-equal? (splice-append (mk (mk 1 2 3))) '(1 2 3))
     20 (check-equal? (splice-append (mk (mk (mk 1 2 3)))) '(1 2 3))
     21 (check-equal? (splice-append (mk -1 (mk 0 (mk 1 2 3) 4 5) 6 7))
     22               '(-1 0 1 2 3 4 5 6 7))