@@ -42,15 +42,16 @@ rulesTest = withTestStore $ \store -> do
4242 -- Test that we have some identifiers and that the routes work out
4343 assert $ all (`S.member` identifiers) expected
4444 Just "example.html" @=? runRoutes routes "example.md"
45− Just "example.md" @=? runRoutes routes (raw "example.md")
45+ Just "example.md" @=? runRoutes routes (sv "raw" "example.md")
46+ Just "example.md" @=? runRoutes routes (sv "nav" "example.md")
4647 where
47− raw = setVersion (Just "raw")
48+ sv g = setVersion (Just g)
4849 expected =
4950 [ "example.md"
5051 , "russian.md"
51− , raw "example.md"
52− , raw "russian.md"
53− , setVersion (Just "nav") "example.md"
52+ , sv "raw" "example.md"
53+ , sv "raw" "russian.md"
54+ , sv "nav" "example.md"
5455 ]
5556
5657