diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Spec.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/test/Spec.hs b/test/Spec.hs index c7c2cbd..70b1815 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -403,44 +403,44 @@ main = hspec do describe "Instance" do - it "mkViewportInstance builds consistent state" do - let vi = mkViewportInstance 10 3 (mkBuf ["a","b","c"]) + it "mkInstance builds consistent state" do + let vi = mkInstance 10 3 (mkBuf ["a","b","c"]) length (visibleLines vi) `shouldBe` 3 it "scrollUpI clamps correctly" do - let vi = mkViewportInstance 10 3 (mkBuf ["a","b","c","d","e"]) + let vi = mkInstance 10 3 (mkBuf ["a","b","c","d","e"]) vi' = scrollUpI 10 vi vpOffset (viView vi') `shouldBe` 0 it "scrollDownI clamps correctly" do - let vi = mkViewportInstance 10 3 (mkBuf ["a","b","c","d","e"]) + let vi = mkInstance 10 3 (mkBuf ["a","b","c","d","e"]) vi' = scrollDownI 10 vi rs = viRender vi vpOffset (viView vi') `shouldBe` (RS.rsLineCount rs - 3) it "modifyItemI updates both buffer and renderstate" do - let vi = mkViewportInstance 10 3 (mkBuf ["a","b","c"]) + let vi = mkInstance 10 3 (mkBuf ["a","b","c"]) vi' = modifyItemI 1 (\itm -> itm { itemText = "X" }) vi RS.rsBuffer (viRender vi') `shouldBe` Buffer.fromList [mkItem "a", mkItem "X", mkItem "c"] it "lookupPositionI returns correct coordinates" do - let vi = mkViewportInstance 10 3 (mkBuf ["hello","world"]) + let vi = mkInstance 10 3 (mkBuf ["hello","world"]) lookupPositionI 1 0 vi `shouldBe` Just (0,1) it "visibleLines should clamp offset to available lines" do - let vi = mkViewportInstance 10 3 (Buffer.fromList [mkItem "a"]) + let vi = mkInstance 10 3 (Buffer.fromList [mkItem "a"]) vi' = vi { viView = (viView vi) { vpOffset = 999 } } visibleLines vi' `shouldNotBe` [] it "applyToInstance should clamp using updated render state" do - let vi0 = mkViewportInstance 10 3 (Buffer.fromList [mkItem "hello"]) + let vi0 = mkInstance 10 3 (Buffer.fromList [mkItem "hello"]) vi1 = applyToInstance (VP.scrollDown 1) vi0 vi2 = modifyItemI 0 (\_ -> mkItem "hello\nworld\nagain") vi1 vpOffset (viView vi2) `shouldBe` (RS.rsLineCount (viRender vi1) - 3) it "lookupPositionI should interpret y relative to viewport offset" do - let vi = mkViewportInstance 10 3 (Buffer.fromList [mkItem "hello", mkItem "world", mkItem "again"]) + let vi = mkInstance 10 3 (Buffer.fromList [mkItem "hello", mkItem "world", mkItem "again"]) vi' = scrollDownI 1 vi lookupPositionI 0 0 vi' `shouldBe` Just (0,1) |