-- just a placeholder
d5Tests :: TestTree
d5Tests = decisionTestGroup "d5" "Acceptable language available?"
  [ testCase "Always ==> e5" $
      after' (d5 "en") resource req @?= Decision' "e5"
  ]
d5Tests :: TestTree
d5Tests = decisionTestGroup "d5" "Acceptable language available?"
  [ testCase "Always ==> e5" $
      after' (d5 "en") resource req @?= Decision' "e5"
  ]
d5Tests = decisionTestGroup "d5" "Acceptable language available?"
  [ testCase "Always ==> e5" $
      after' (d5 "en") resource req @?= Decision' "e5"
  ]