From 4427fc1d1d65f67b6644b8236e64e3b31cd7487c Mon Sep 17 00:00:00 2001
From: Carl Gay <carlgay@gmail.com>
Date: Tue, 22 May 2018 00:19:45 -0400
Subject: [PATCH] Minor: Add double Space char in tests. Add whitespace between
 vector elements.

---
 tests/command-interface-test.dylan | 28 ++++++++++++----------------
 1 file changed, 12 insertions(+), 16 deletions(-)

diff --git a/tests/command-interface-test.dylan b/tests/command-interface-test.dylan
index 9c1b05b..8d17925 100644
--- a/tests/command-interface-test.dylan
+++ b/tests/command-interface-test.dylan
@@ -38,10 +38,6 @@ define command simple three ($simple-root)
     end;
 end;
 
-define test command-integration-test()
-  
-end;
-
 
 define test command-tokenizer-test()
   local
@@ -79,29 +75,29 @@ define test command-tokenizer-test()
            #(0));
   test-one(" a ",
            #(" ", "a", " "),
-           #(#"whitespace",#"word",#"whitespace"),
+           #(#"whitespace", #"word", #"whitespace"),
            #(0, 1, 2),
            #(0, 1, 2));
   test-one("a b c",
-           #("a"," ","b"," ","c"),
-           #(#"word",#"whitespace",#"word",#"whitespace",#"word"),
+           #("a", " ", "b", " ", "c"),
+           #(#"word", #"whitespace", #"word", #"whitespace", #"word"),
            #(0, 1, 2, 3, 4),
            #(0, 1, 2, 3, 4));
   test-one(" a b c ",
-           #(" ","a"," ","b"," ","c"," "),
-           #(#"whitespace",#"word",#"whitespace",#"word",#"whitespace",#"word",#"whitespace"),
+           #(" ", "a", " ", "b", " ", "c", " "),
+           #(#"whitespace", #"word", #"whitespace", #"word", #"whitespace", #"word", #"whitespace"),
            #(0, 1, 2, 3, 4, 5, 6),
            #(0, 1, 2, 3, 4, 5, 6));
   test-one("aa bb cc",
-           #("aa"," ","bb"," ","cc"),
-           #(#"word",#"whitespace",#"word",#"whitespace",#"word"),
+           #("aa", " ", "bb", " ", "cc"),
+           #(#"word", #"whitespace", #"word", #"whitespace", #"word"),
            #(0, 2, 3, 5, 6),
            #(1, 2, 4, 5, 7));
-  test-one(" aa bb cc ",
-           #(" ","aa"," ","bb"," ","cc"," "),
-           #(#"whitespace",#"word",#"whitespace",#"word",#"whitespace",#"word",#"whitespace"),
-           #(0, 1, 3, 4, 6, 7, 9),
-           #(0, 2, 3, 5, 6, 8, 9));
+  test-one(" aa bb  cc ",       // double space after bb
+           #(" ", "aa", " ", "bb", "  ", "cc", " "),
+           #(#"whitespace", #"word", #"whitespace", #"word", #"whitespace", #"word", #"whitespace"),
+           #(0, 1, 3, 4, 6, 8, 10),
+           #(0, 2, 3, 5, 7, 9, 10));
 end;
 
 define suite command-interface-test-suite()