如何测试我的CanRoute实例的IHP(解析漂亮URL的路由)

Question

如果你想在IHP应用程序中获得漂亮的URL，你需要编写自己的CanRoute实例并解析路由字符串。

-- Web.Routes.hs
module Web.Routes where
import Generated.Types
import IHP.RouterPrelude
import Web.Types
instance CanRoute Co2ProducersController where
parseRoute' = do
string "/producers/"
let co2ProducerById = do
id <- parseId
endOfInput
pure ShowCo2ProducerAction {co2ProducerId = Just id, slug = Nothing}
co2ProducerBySlug = do
slug <- parseText
pure ShowCo2ProducerAction {co2ProducerId = Nothing, slug = Just slug}
co2ProducerBySlug <|> co2ProducerById

我该如何进行测试？我在这里看到了一个用于设置整个测试应用程序的示例：https://github.com/digitallyinduced/ihp/blob/2422bbdfa6165231e89b44c2e7d1c68b65f6b3b4/Test/RouterSupportSpec.hs

但我只想测试我是否正确解析了路由，而不是发送请求和测试响应。

测试上述代码的简单方法是什么？

Answer 1

我们为自定义路由定义的CanRoute的parseRoute'函数基本上只是返回一个attoparsec解析器。

我们可以使用attoparsecsparseOnly来运行带有所提供的输入字符串的解析器。这里有一个例子：

module Test.Web.RoutesSpec where
import Test.Hspec
import IHP.ControllerPrelude
import IHP.Test.Mocking
import qualified Data.Attoparsec.ByteString as Attoparsec
import Web.Types
import Web.FrontController
tests = beforeAll (mockContextNoDatabase WebApplication (pure ())) do
describe "Web.Routes" do
describe "DocumentationController" do
it "should be available at /docs" $ withContext do
"/docs/api-reference/0bca60db-571e-4cdd-b02a-8d5b9e7e6295" `shouldRouteTo` DocumentationAction { projectId = "0bca60db-571e-4cdd-b02a-8d5b9e7e6295" }
shouldRouteTo path action = (Attoparsec.parseOnly parseRoute' path) `shouldBe` (Right action)