diff --git a/tests/unit-tests.scm b/tests/unit-tests.scm
index 5cee94bc..95011fa6 100644
--- a/tests/unit-tests.scm
+++ b/tests/unit-tests.scm
@@ -242,13 +242,12 @@
 
 ;; Vectors
 
-TODO:
 (assert:equal "vector->list" (vector->list #(dah dah didah))
                             '(dah dah didah))
 ;(vector->list .#(dah dah didah) 1 2)
 ;=. (dah)
-;(list->vector .(dididit dah))
-;=. #(dididit dah)
+(assert:equal "list->vector" (list->vector '(dididit dah))
+                             #(dididit dah))
 
 (assert:equal "string->vector" (string->vector "ABC")  #(#\A #\B #\C))
 (assert:equal "vector->string" (vector->string #(#\1 #\2 #\3)) "123")