(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)

     ))

  )