add tests for errors in queries for queries in starwars tests

2016-07-08 17:50:31 -04:00
parent 624efbbb35
commit a6c0d63049
3 changed files with 61 additions and 0 deletions
--- a/tests/Test/StarWars/Data.hs
+++ b/tests/Test/StarWars/Data.hs
@ -56,6 +56,9 @@ appearsIn :: Character -> [Int]
 appearsIn (Left  x) = _appearsIn . _droidChar $ x
 appearsIn (Right x) = _appearsIn . _humanChar $ x

+secretBackstory :: Character -> Text
+secretBackstory = error "secretBackstory is secret."
+
 luke :: Character
 luke = Right luke'