From fdf2c5436dfea4a30af445059e77a54e14b64752 Mon Sep 17 00:00:00 2001 From: tv Date: Sat, 7 Mar 2026 00:47:10 +0100 Subject: ViewportInstance -> Instance --- test/Spec.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'test') 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) -- cgit v1.2.3