diff --git a/test/SplitSpec.hs b/test/SplitSpec.hs
index acba7bff7..ecb4450a0 100644
--- a/test/SplitSpec.hs
+++ b/test/SplitSpec.hs
@@ -122,6 +122,9 @@ spec = do
     prop "is identity on top of no rows" $
       \ a -> adjoin2 [] a == [ a ]
 
+    prop "appends onto open lines" $
+      const True <$> ((arbitrary :: Gen Row) `suchThat` isOpen)
+
     it "appends elements onto incomplete lines" $
       adjoin2 [ rightRowText "[" ] (rightRowText "a") `shouldBe`
               [ rightRow [ Text "[", Text "a" ] ]