anchor.diff:    (prove:is (format-number -3.419 :precision 5) "-3.41900" "Precision 5, negative")
     (prove:is (format-number -3.419 :precision 5 :decimal-separator "!") "-3!41900"
       "Custom decimal separator")
  -  (prove:is (format-number 3419.25 :precision 2) "3,419.25" "Default delimiters")
  -  (prove:is (format-number 3419.25 :precision 1 :order-separator #\.) "3.419.3"
  +  (prove:is (format-number 3419.26 :precision 2) "3,419.26" "Default delimiters")
  +  (prove:is (format-number 3419.26 :precision 1 :order-separator #\.) "3.419.3"
       "Custom order separator as char")
  -  (prove:is (format-number 3419.25 :precision 1 :order-separator ".") "3.419.3"
  +  (prove:is (format-number 3419.26 :precision 1 :order-separator ".") "3.419.3"
       "Custom order separator as string")
     (prove:is-error (format-number "3419") 'type-error "Number must be a number")
     (prove:is-error (format-number 3419.25 :precision -3) 'simple-error
  
positive.code:   (prove:is (insert "foo" "" :position 0) "foo" "Insert into empty string")
    (prove:is (insert "foo" "") "foo" "Into empty string with default pos")
    (prove:is-error (insert "foo" 3 :position 0) 'type-error "Original not a string")
    (prove:is-error (insert " bar" "foo" :position 10) 'simple-type-error "Out of bounds")
    (prove:is-error (insert nil "foo" :position 0) 'type-error "Insert nil"))
  
  (prove:subtest "camel-case"
  
negative.code:   (prove:is (kebab-case "") "" "Empty string")
    (prove:is (kebab-case "The man bit the dog" :delimiter "e ") "th-man bit th-dog" "Replacing more than one char")
    (prove:is (kebab-case "THE man BIT the DOG") "the-man-bit-the-dog" "Uppercase in the string")
    (prove:is-error (kebab-case 893) 'type-error "First arg not a string")
    (prove:is-error (kebab-case "The man bit the dog" :delimiter 21) 'type-error "Second arg not a string"))
  
  (prove:finalize)
  