Test range truncation and single-item requests

2014-09-07 12:54:30 -07:00
parent fcdc37d20b
commit d166cbc371
1 changed files with 16 additions and 0 deletions
@@ -42,6 +42,22 @@ spec = around appWithFixture $
            , matchHeaders = [("Content-Range", "*/0")]
            }

+        it "allows one-item requests" $ do
+          r <- request methodGet  "/items"
+                       (rangeHdrs $ ByteRangeFromTo 0 0) ""
+          liftIO $ do
+            simpleHeaders r `shouldSatisfy`
+              matchHeader "Content-Range" "0-0/15"
+            simpleStatus r `shouldBe` partialContent206
+
+        it "handles ranges beyond collection length via truncation" $ do
+          r <- request methodGet  "/items"
+                       (rangeHdrs $ ByteRangeFromTo 10 100) ""
+          liftIO $ do
+            simpleHeaders r `shouldSatisfy`
+              matchHeader "Content-Range" "10-14/15"
+            simpleStatus r `shouldBe` partialContent206
+
      context "of invalid range" $ do
        it "fails with 416 for offside range" $
          request methodGet  "/items"