b13Tests :: TestTree
b13Tests = decisionTestGroup "b13" "Service available?"
  [ testCase "True ==> b12" $
      after' b13 resource req @?= Decision' "b12"
  , testCase "False ==> 503 Service Unavailable" $
      let r = resource { serviceAvailable = return False }
      in after' b13 r req @?= error' serviceUnavailable503
  ]
b13Tests :: TestTree
b13Tests = decisionTestGroup "b13" "Service available?"
  [ testCase "True ==> b12" $
      after' b13 resource req @?= Decision' "b12"
  , testCase "False ==> 503 Service Unavailable" $
      let r = resource { serviceAvailable = return False }
      in after' b13 r req @?= error' serviceUnavailable503
  ]
b13Tests = decisionTestGroup "b13" "Service available?"
  [ testCase "True ==> b12" $
      after' b13 resource req @?= Decision' "b12"
  , testCase "False ==> 503 Service Unavailable" $
      let r = resource { serviceAvailable = return False }
      in after' b13 r req @?= error' serviceUnavailable503
  ]