o18Tests :: TestTree
o18Tests = decisionTestGroup "o18" "Multiple representations?"
  [ testCase "True ==> 300 Multiple Choices" $
      let r = resource { multipleChoices = return True }
      in after' o18 r req @?= Done' multipleChoices300
  , testCase "False ==> 200 Ok" $
      after' o18 resource req @?= Done' ok200
  ]
o18Tests :: TestTree
o18Tests = decisionTestGroup "o18" "Multiple representations?"
  [ testCase "True ==> 300 Multiple Choices" $
      let r = resource { multipleChoices = return True }
      in after' o18 r req @?= Done' multipleChoices300
  , testCase "False ==> 200 Ok" $
      after' o18 resource req @?= Done' ok200
  ]
o18Tests = decisionTestGroup "o18" "Multiple representations?"
  [ testCase "True ==> 300 Multiple Choices" $
      let r = resource { multipleChoices = return True }
      in after' o18 r req @?= Done' multipleChoices300
  , testCase "False ==> 200 Ok" $
      after' o18 resource req @?= Done' ok200
  ]