Fix a bug in string-starts-with

m0smith · Mar 3, 2009 · 62532be · 62532be
1 parent a3c2775
commit 62532be
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/main/lisp/malabar-util.el b/src/main/lisp/malabar-util.el
@@ -18,7 +18,7 @@
 ;; 02110-1301 USA.
 ;;
 (defun string-starts-with (string start)
-  (string= (substring string 0 (length start)) start))
+  (string= (substring string 0 (min (length string) (length start))) start))
 
 (defun string-ends-with (string end)
   (string= (substring string (- (length string) (length end))) end))

diff --git a/src/test/lisp/malabar-util.elk b/src/test/lisp/malabar-util.elk
@@ -27,6 +27,9 @@
 
 (setq elk-test-run-on-define nil)
 
+(deftest "start-with empty"
+  (assert-nil (string-starts-with "" "foo")))
+
 (deftest "start-with match"
   (assert-t (string-starts-with "foobar" "foo")))