mes: string-drop: Error on negative droppings.
[mes.git] / tests / srfi-13.test
index 5fc9d6891b3a0a44256805be4303b70100583e8f..1e6a98514e4b4b50e9d161186c89394fbc88c921 100755 (executable)
@@ -56,4 +56,10 @@ exit $?
     "f-o-o-:"
   (list->string (string-fold-right (lambda (e p) (cons e (cons #\- p))) '(#\:) "foo")))
 
+(pass-if-equal "string-drop" "bar"
+  (string-drop "foobar" 3))
+
+(pass-if-equal "string-drop-right" "foo"
+  (string-drop-right "foobar" 3))
+
 (result 'report)