anchor.diff:    (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 " bar" "foo" :position 10) 'type-error "Out of bounds")
     (prove:is-error (insert nil "foo" :position 0) 'type-error "Insert nil"))
   
   (prove:subtest "camel-case"
  
positive.code:   (prove:is (snake-case " the") "the" "Leading white space")
    (prove:is (snake-case "the ") "the" "Trailing white space")
    (prove:is (snake-case "The man bit The dog" :delimiter "e ") "Th_man bit th_dog" "Replacing more than one char")
    (prove:is-error (snake-case 893) 'simple-type-error "First arg not a string")
    (prove:is-error (snake-case "The man bit the dog" :delimiter 21) 'type-error "Second arg not a string"))
  
  (prove:subtest "kebab-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)
  