(module string-test mzscheme
    
  (require 
   (planet "test.ss" ("schematics" "schemeunit.plt" 2 0))
   (file "base.ss")
   (file "string.ss")
   )
  
  (provide
   string-tests
   )
  
  (define string-tests
    (test-suite
     "All tests for string"
     
     (test-equal?
      "string-namecase works on O'"
      (string-namecase "O'GRADY, DON'T LISTEN to o'connor. HE'S crazy.")
      "O'Grady, Don't Listen To O'Connor. He's Crazy.")
     
     (test-equal?
      "string-namecase works on Mac and Mc"
      (string-namecase "Macdonald hates MACDONALD'S ChickeN MCNUGGETS")
      "MacDonald Hates MacDonald's Chicken McNuggets")
     
     (test-equal?
      "string-namecase works on le, van and der"
      (string-namecase "LE COMBER, VAN DER GIEZEN")
      "le Comber, van der Giezen")
     
     (test-equal?
      "ensure-string converts a bytes to a string"
      (ensure-string #"dave")
      "dave")
     
     (test-equal?
      "ensure-string leaves a string as a string"
      (ensure-string "dave")
      "dave")
     
     (test-equal?
      "ensure-string leaves #f as #f"
      (ensure-string #f)
      #f)
     
     ))

  )