From b50c97a0cbda7dc76d17b0f9dd0e73d03ba87475 Mon Sep 17 00:00:00 2001 From: Hermes Date: Mon, 11 May 2026 23:07:46 +0000 Subject: [PATCH] remove duplicate framebuffer tests --- tests/framebuffer-tests.lisp | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/tests/framebuffer-tests.lisp b/tests/framebuffer-tests.lisp index 39acf7f..be3dcda 100644 --- a/tests/framebuffer-tests.lisp +++ b/tests/framebuffer-tests.lisp @@ -95,32 +95,3 @@ (text (extract-text cells 0 0 2 1))) (is (equal "abc def" text))))) - -(test fb-cell-link-url-returns-nil-for-blank-cell - (let ((fb (make-framebuffer 10 10))) - (is (null (fb-cell-link-url fb 5 5))))) - -(test fb-cell-link-url-finds-link-url - (let ((fb (make-framebuffer-backend))) - (draw-text fb 0 0 "click" nil nil :link-url "https://example.com") - (is (equal "https://example.com" (fb-cell-link-url (fb-framebuffer fb) 0 0))) - (is (null (fb-cell-link-url (fb-framebuffer fb) 5 5))))) - -(test fb-cell-link-url-out-of-bounds-returns-nil - (let ((fb (make-framebuffer 5 5))) - (is (null (fb-cell-link-url fb 10 10))))) - -(test extract-text-single-row - (let ((fb (make-framebuffer-backend))) - (draw-text fb 0 0 "hello" nil nil) - (let ((cells (fb-framebuffer fb))) - (is (equal "hello" (extract-text cells 0 0 4 0)))))) - -(test extract-text-multi-row - (let ((fb (make-framebuffer-backend))) - (draw-text fb 0 0 "abc" nil nil) - (draw-text fb 0 1 "def" nil nil) - (let* ((cells (fb-framebuffer fb)) - (text (extract-text cells 0 0 2 1))) - (is (equal "abc -def" text)))))