symbol-test.ss
#lang mzscheme

(require (file "symbol.ss")
         (file "test-base.ss"))

(provide symbol-tests)

(define symbol-tests
  (test-suite "symbol.ss"
    
    (test-equal? "Symbol append works"
      (symbol-append 'a- 'b- 'c)
      'a-b-c)
    
    (test-equal? "Symbol append works with exotic arguments"
      (symbol-append 'a- "b-" 'c- 1 '-2 "-3" '- #t "-" #f)
      'a-b-c-1-2-3-true-false)
    
    ))