From f149098dd1f50c245d178195b7080094ee5bdc7d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 8 Jun 2015 22:39:31 -0400 Subject: [PATCH] Fixed vector tests --- tests/unit-tests.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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")