From 1df6c992b22dc12dd4bca88ac66660ca647c0d94a391d2708196ac2c419f3c4b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Linus=20Bj=C3=B6rnstam?= Date: Wed, 21 Oct 2026 15:47:04 +0200 Subject: [PATCH] displayed, in place of ->str MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit ->str is deprecated in the prelude. 🤖 Generated with [ECA](https://eca.dev) Co-Authored-By: eca-agent --- tests/pg.bjo | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/pg.bjo b/tests/pg.bjo index 05a332f..f44e695 100644 --- a/tests/pg.bjo +++ b/tests/pg.bjo @@ -152,7 +152,7 @@ (ignore (ok! (insert db events (event (uuid-v7) "2026-10-12T09:00:00Z" "100.00")))) (ignore (ok! (insert db events (event (uuid-v7) "2026-10-12T10:00:00+02:00" "-3.00")))) (expect "ORDER BY an instant" - (list-map (fun (e) (->str (record-ref e happened))) (ok! (fetch db events '(select (order-by happened))))) + (list-map (fun (e) (displayed (record-ref e happened))) (ok! (fetch db events '(select (order-by happened))))) (list "2026-10-12T08:00:00Z" "2026-10-12T09:00:00Z" "2026-10-12T09:00:00.25Z" "2026-10-12T09:00:00.5Z")) (expect "ORDER BY a version 7 uuid sorts by the time it was made" (list-map (fun (e) (decimal->string (record-ref e price))) (ok! (fetch db events '(select (order-by key))))) @@ -177,7 +177,7 @@ (expect "and read back" (match (ok! (fetch-one db events '(select (where (tag not-null))))) ((Some e) (list (if (= (some! (record-ref e tag)) label) "the label" "another uuid") - (->str (record-ref e note)))) + (displayed (record-ref e note)))) (None (list "none"))) (list "the label" "(Some 2026-01-01T00:00:00Z)")) (expect "set back to NULL" @@ -189,8 +189,8 @@ (admin #t) (avatar (Some #[1uy 2uy 3uy])))))) (expect "an #:auto key comes back" (record-ref ada id) 1) (expect "the rest of the row" - (str (record-ref ada name) " " (->str (record-ref ada email)) " " (double->string (record-ref ada score)) - " " (->str (record-ref ada admin)) " " + (str (record-ref ada name) " " (displayed (record-ref ada email)) " " (double->string (record-ref ada score)) + " " (displayed (record-ref ada admin)) " " (match (record-ref ada avatar) ((Some b) (int->string (array-length b))) (None "none"))) "Ada (Some ada@example.org) 9.5 True 3") (expect "insert-all"