b12Tests :: TestTree
b12Tests = decisionTestGroup "b12" "Known method?" ts where
  ts = mk <$> ms
  mk (m, r) = testCase (mconcat [show m, " ==> ", show r]) $
    after' b12 resource (req { reqMethod = m }) @?= r
  ms = ("QWERTY", error' notImplemented501) : ((, Decision' "b11") <$> [methodGet, methodHead, methodPost, methodPut, methodDelete, methodTrace, methodConnect, methodOptions])
b12Tests :: TestTree
b12Tests = decisionTestGroup "b12" "Known method?" ts where
  ts = mk <$> ms
  mk (m, r) = testCase (mconcat [show m, " ==> ", show r]) $
    after' b12 resource (req { reqMethod = m }) @?= r
  ms = ("QWERTY", error' notImplemented501) : ((, Decision' "b11") <$> [methodGet, methodHead, methodPost, methodPut, methodDelete, methodTrace, methodConnect, methodOptions])
b12Tests = decisionTestGroup "b12" "Known method?" ts where
  ts = mk <$> ms
  mk (m, r) = testCase (mconcat [show m, " ==> ", show r]) $
    after' b12 resource (req { reqMethod = m }) @?= r
  ms = ("QWERTY", error' notImplemented501) : ((, Decision' "b11") <$> [methodGet, methodHead, methodPost, methodPut, methodDelete, methodTrace, methodConnect, methodOptions])