From e3d004c8f482d250ff65fcbe73bb6bd53360a50d Mon Sep 17 00:00:00 2001
From: "kacaii.dev" <kacaii.privado@gmail.com>
Date: Mon, 6 Jul 2026 14:09:28 -0300
Subject: [PATCH] test: query pull request instead

---
 src/possum/tangled.gleam       |  2 +-
 test/possum_tangled_test.gleam | 17 ++++++++++++-----
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/src/possum/tangled.gleam b/src/possum/tangled.gleam
index d7d2aa4..ed6ae72 100644
--- a/src/possum/tangled.gleam
+++ b/src/possum/tangled.gleam
@@ -16,7 +16,7 @@ pub type Nsid {
 pub fn nsid_to_string(nsid: Nsid) -> String {
   case nsid {
     Issue -> "sh.tangled.repo.issue"
-    PullRequest -> "sh.tangled.repo.issue"
+    PullRequest -> "sh.tangled.repo.pull"
     String -> "sh.tangled.string"
   }
 }
diff --git a/test/possum_tangled_test.gleam b/test/possum_tangled_test.gleam
index c23c48d..b82bddc 100644
--- a/test/possum_tangled_test.gleam
+++ b/test/possum_tangled_test.gleam
@@ -11,18 +11,25 @@ pub fn main() {
   gleeunit.main()
 }
 
-/// at://did:plc:xasnlahkri4ewmbuzly2rlc5/sh.tangled.repo.issue/3mnjo33mzmf22
+/// at://did:plc:xu5apv6kmu5jp7g5hwdnej42/sh.tangled.repo.pull/3mp2gobkoy722
 pub fn list_comments_test() -> Nil {
-  let assert Ok(did) = did.parse("did:plc:xasnlahkri4ewmbuzly2rlc5")
+  let assert Ok(did) = did.parse("did:plc:xu5apv6kmu5jp7g5hwdnej42")
 
   let assert Ok(response) =
     request.new()
-    |> tangled.list_comments(did, tangled.Issue, "3mnjo33mzmf22")
+    |> tangled.list_comments(did, tangled.PullRequest, "3mp2gobkoy722")
     |> httpc.send
 
+  let lexicon_decoder = {
+    use lexicon <- decode.subfield(["value", "$type"], decode.string)
+    case lexicon {
+      "sh.tangled.feed.comment" -> decode.success(Nil)
+      _ -> decode.failure(Nil, "$type")
+    }
+  }
+
   let decoder = {
-    use _ <- decode.field("items", decode.list(decode.dynamic))
-    use _ <- decode.field("cursor", decode.optional(decode.string))
+    use _ <- decode.field("items", decode.list(lexicon_decoder))
     decode.success(Nil)
   }
 
-- 
2.51.2