/
alt3rmann
/
graphql-engine
Обзор
Документация
Войти
/
alt3rmann
/
graphql-engine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
server/src-test/Data/Parser/TemplateSpec.hs
17 строк
490 B
Puru Gupta
server: add support for header resolution from env vars
23 июн 2023, 11:39
23 июн 2023, 11:39
f2fe9cf
Код
Авторство
О чём код?
module Data.Parser.TemplateSpec (spec) where import Data.URL.Template import Hasura.Prelude import Test.Hspec import Test.QuickCheck spec :: Spec spec = describe "parseTemplate" $ it "template parser and printer" $ withMaxSuccess 1000 $ forAll (arbitrary :: Gen Template) $ \template -> do let templateString = printTemplate template case parseTemplate templateString of Left e -> counterexample e False Right r -> property $ printTemplate r == templateString