(module symbol-test mzscheme
    
  (require 
   (planet "test.ss" ("schematics" "schemeunit.plt" 2 0))
   (file "base.ss")
   (file "symbol.ss")
   )
  
  (provide
   symbol-tests
   )
  
  (define symbol-tests
    (test-suite
     "All tests for symbol"
     
     (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)

     ))

  )