(module number-test mzscheme
  
  (require
   (planet "test.ss" ("schematics" "schemeunit.plt" 2 0))
   (file "number.ss")
   )
  
  (provide 
   number-tests
   )

  (define number-tests
    (test-suite
     "number.ss"

      (test-case
       "number->symbol converts integers correctly"
       (check-equal? (number->symbol 123) '|123|)
       (check-equal? (number->symbol -123) '|-123|)
       (check-equal? (number->symbol -1.5) '|-1.5|))
       
    ))

  )