Add another test

test/MovieTest.hs

@@ -19,6 +19,16 @@ testSearchMovie = do
   movies <- fakeTMDB "test/search-good.json" (searchMovies T.empty)
   assertEqual "length" 8 (length movies)
 
+--------------------------------------------------------------------------------
+testMoviePosterURLs :: Assertion
+testMoviePosterURLs = do
+  cfg   <- fakeTMDB "test/config-good.json" config
+  movie <- fakeTMDB "test/movie-good.json" (fetchMovie 0)
+  let urls = moviePosterURLs cfg movie
+      poster = "http://cf2.imgobject.com/t/p/w92/pTpxQB1N0waaSc3OSn0e9oc8kx9.jpg"
+  assertEqual "length" 6 (length urls)
+  assertEqual "url" poster (head urls)
+
 --------------------------------------------------------------------------------
 goodMovieFieldsTest :: Assertion
 goodMovieFieldsTest = do
@@ -59,4 +69,5 @@ tests = testGroup "Movies"
   , testCase "Failure with bad JSON" badMovieJSONTest
   , testCase "Propagate network failure" shouldHaveNetworkErrorTest
   , testCase "Searching movies" testSearchMovie
+  , testCase "Movie poster URLs" testMoviePosterURLs
   ]