From 70cfa6e070136bc45b9d1c57fa0120e84e16f324 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Fri, 1 Sep 2017 11:26:46 -0400
Subject: [PATCH] Rename & correct a catchError test.

---
 test/Data/Syntax/Assignment/Spec.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/Data/Syntax/Assignment/Spec.hs b/test/Data/Syntax/Assignment/Spec.hs
index cbeb69dd1..2ee78bcad 100644
--- a/test/Data/Syntax/Assignment/Spec.hs
+++ b/test/Data/Syntax/Assignment/Spec.hs
@@ -147,9 +147,9 @@ spec = do
       fst <$> runAssignment "magenta" eof (makeState [ node Magenta 0 7 [] ] :: State [] Grammar) `shouldBe` Right ()
 
   describe "catchError" $ do
-    it "handler that always matches" $
+    it "applies its handler to failed committed choices" $
       fst <$> runAssignment "A"
-        (red `catchError` (\ _ -> OutError <$ location <*> source))
+        ((symbol Green *> children red) `catchError` (\ _ -> OutError <$ location <*> source))
         (makeState [node Green 0 1 []])
         `shouldBe`
           Right (OutError "A")