From f58761b4da39e0559fcfbd744fa6f024182c6d94 Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Thu, 8 Aug 2024 07:26:09 +0000 Subject: [PATCH] Fix a test. --- t/dbd/postgres.lisp | 1 - 1 file changed, 1 deletion(-) diff --git a/t/dbd/postgres.lisp b/t/dbd/postgres.lisp index 01332d3..ec7f8b3 100644 --- a/t/dbd/postgres.lisp +++ b/t/dbd/postgres.lisp @@ -38,7 +38,6 @@ (make-cursor conn "SELECT * FROM person"))) (execute cursor) (ok (equal (getf (fetch cursor) :|name|) "Woody")) - (ok (equal (getf (fetch cursor :peek t) :|name|) "Buzz")) (ok (equal (getf (fetch cursor) :|name|) "Buzz")))) (with-transaction conn (let ((cursor (make-cursor conn "SELECT * FROM person WHERE name = 'Trixie'")))