give different strings for some tests

test/test.sml

@@ -647,9 +647,7 @@ val wMove = describe "move motion 'w'"
         Expect.isTrue (cursorChr = #"w")
       end)
 
-  , test
+  , test "does not break on undescore when cursor is on alphanumeric char"
-      "moves cursor past underscore \
-      \when underscore is between alphanumeric chars"
       (fn _ =>
          (* This behaviour makes behaviour different from vi,
           * where "w" when a newline is in between causes cursor 
@@ -672,10 +670,7 @@ val wMove = describe "move motion 'w'"
            Expect.isTrue (cursorChr = #"g")
          end)
 
-  , test
+  , test "breaks on punctuation when cursor is on alphanumeric char" (fn _ =>
-      "moves cursor to punctuation when next char\ 
-      \after continuous alphanumeric chars is punctuation"
-      (fn _ =>
       (* vi's definition of 'word' instead of 'WORD' *)
       let
         (* arrange *)
@@ -691,10 +686,7 @@ val wMove = describe "move motion 'w'"
         Expect.isTrue (cursorChr = #",")
       end)
 
-  , test
+  , test "breaks on alphanumeric char when cursor is on punctuation" (fn _ =>
-      "moves cursor to alphanumeric char when next char\ 
-      \after continuous punctuation chars is alphanumeric"
-      (fn _ =>
       (* vi's definition of 'word' instead of 'WORD' *)
       let
         (* arrange *)
@@ -710,11 +702,7 @@ val wMove = describe "move motion 'w'"
         Expect.isTrue (cursorChr = #"h")
       end)
 
-  , test
+  , test "breaks on non-blank char when on blank char" (fn _ =>
-      "moves cursor to first {alphanumeric|punctuation} \
-      \when cursor is in {space|tab|'\\n'}"
-      (fn _ =>
-         (* vi's definition of 'word' instead of 'WORD' *)
       let
         (* arrange *)
         val buffer = LineGap.fromString "0123   \t   \n   \t 789\n"
@@ -730,7 +718,7 @@ val wMove = describe "move motion 'w'"
         Expect.isTrue (cursorChr = #"7")
       end)
 
-  , test "moves cursor to first alphanumeric char when in punctuation" (fn _ =>
+  , test "moves cursor to first alphanumeric char when on punctuation" (fn _ =>
       let
         (* arrange *)
         val buffer = LineGap.fromString "!!! hello\n"
@@ -746,7 +734,7 @@ val wMove = describe "move motion 'w'"
         Expect.isTrue (startsAtExc andalso movedToH)
       end)
 
-  , test "moves cursor to last char in buffer when in last word" (fn _ =>
+  , test "moves cursor to last char when cursor is on last word" (fn _ =>
       let
         (* arrange *)
         val buffer = LineGap.fromString "hello world\n"
@@ -764,7 +752,7 @@ val wMove = describe "move motion 'w'"
   ]
 
 val WMove = describe "move motion 'W'"
-  [ test "moves cursor to start of next word in contiguous string" (fn _ =>
+  [ test "moves cursor to start of next WORD in contiguous string" (fn _ =>
       let
         (* arrange *)
         val buffer = LineGap.fromString "hello world"
@@ -779,7 +767,7 @@ val WMove = describe "move motion 'W'"
         Expect.isTrue (chr = #"w")
       end)
 
-  , test "moves cursor to start of next word in split string" (fn _ =>
+  , test "moves cursor to start of next WORD in split string" (fn _ =>
       let
         (* arrange *)
         val buffer = fromList ["hello ", "world"]
@@ -794,7 +782,7 @@ val WMove = describe "move motion 'W'"
         Expect.isTrue (chr = #"w")
       end)
 
-  , test "moves cursor past newline when next word is after newline" (fn _ =>
+  , test "moves cursor past newline when next WORD is after newline" (fn _ =>
       let
         (* arrange *)
         val buffer = LineGap.fromString "hello \n\n\n world"
@@ -809,7 +797,8 @@ val WMove = describe "move motion 'W'"
         Expect.isTrue (cursorChr = #"w")
       end)
 
-  , test "moves cursor past punctuation when in alphanumeric char" (fn _ =>
+  , test "does not break on punctuation when cursor is on alphanumeric char"
+      (fn _ =>
          (* vi's definition of 'WORD' instead of 'word' *)
          let
            (* arrange *)
@@ -825,11 +814,12 @@ val WMove = describe "move motion 'W'"
            Expect.isTrue (cursorChr = #"w")
          end)
 
-  , test "moves cursor past alphanumeric char when in punctuation" (fn _ =>
+  , test "does not break on alphanumeric char when cursor is on punctuation"
+      (fn _ =>
          (* vi's definition of 'WORD' instead of 'word' *)
          let
            (* arrange *)
-        val buffer = LineGap.fromString "!hello!!! world!!!\n"
+           val buffer = LineGap.fromString "#!hello!!! world!!!\n"
            val app = AppType.init (buffer, 0, 0)
 
            (* act *)
@@ -841,10 +831,7 @@ val WMove = describe "move motion 'W'"
            Expect.isTrue (cursorChr = #"w")
          end)
 
-  , test
+  , test "moves cursor to first non-blank when cursor is on blank" (fn _ =>
-      "moves cursor to first {alphanumeric|punctuation} \
-      \when cursor is in {space|tab|'\\n'}"
-      (fn _ =>
       let
         (* arrange *)
         val buffer = LineGap.fromString "0123   \t   \n   \t 789\n"
@@ -860,7 +847,7 @@ val WMove = describe "move motion 'W'"
         Expect.isTrue (cursorChr = #"7")
       end)
 
-  , test "moves cursor to last char in buffer when in last word" (fn _ =>
+  , test "moves cursor to last char when cursor is on last word" (fn _ =>
       let
         (* arrange *)
         val buffer = LineGap.fromString "hello world\n"