diff --git a/test/Test.hs b/test/Test.hs
index 84696ef..1967322 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -1147,6 +1147,7 @@ main = do
                  where_ $ exists $
                           from $ \bp -> do
                           where_ (bp ^. BlogPostAuthorId ==. p ^. PersonId)
+                 orderBy [asc (p ^. PersonName)]
                  return p
           liftIO $ ret `shouldBe` [ Entity p1k p1
                                   , Entity p3k p3 ]