b11Tests :: TestTree
b11Tests = decisionTestGroup "b11" "URI too long?"
  [ testCase "True ==> 414 Request-URI Too Long" $
      let r = resource { uriTooLong = return True }
      in after' b11 r req @?= error' requestURITooLong414
  , testCase "False ==> b11" $
      after' b11 resource req @?= Decision' "b10"
 ]
b11Tests :: TestTree
b11Tests = decisionTestGroup "b11" "URI too long?"
  [ testCase "True ==> 414 Request-URI Too Long" $
      let r = resource { uriTooLong = return True }
      in after' b11 r req @?= error' requestURITooLong414
  , testCase "False ==> b11" $
      after' b11 resource req @?= Decision' "b10"
 ]
b11Tests = decisionTestGroup "b11" "URI too long?"
  [ testCase "True ==> 414 Request-URI Too Long" $
      let r = resource { uriTooLong = return True }
      in after' b11 r req @?= error' requestURITooLong414
  , testCase "False ==> b11" $
      after' b11 resource req @?= Decision' "b10"
 ]