You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 lines
469 B
Racket
10 lines
469 B
Racket
#lang racket/base
|
|
(require rackunit pollen/private/external/output racket/port)
|
|
|
|
(define-syntax-rule (check-output outputter string)
|
|
(check-equal? (with-output-to-string (λ () outputter)) string))
|
|
|
|
;; output function should splice lists, and remove splicing char at the beginning of a list
|
|
(check-output (output '("tic" "tac" "toe")) "tictactoe")
|
|
(check-output (output '("tic" ("tac") "toe")) "tictactoe")
|
|
(check-output (output '("tic" (@ "tac") "toe")) "tictactoe") |