From 8eeceed450f7414c8a286a9e47b6f04b652b18ef Mon Sep 17 00:00:00 2001
From: Luis Schwab <luisschwab@protonmail.com>
Date: Thu, 24 Apr 2025 22:49:36 -0300
Subject: [PATCH] test: extend `valid_v1_witness_programs` test to include P2A

---
 bitcoin/src/blockdata/script/witness_program.rs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/bitcoin/src/blockdata/script/witness_program.rs b/bitcoin/src/blockdata/script/witness_program.rs
index 644459341..fffee8575 100644
--- a/bitcoin/src/blockdata/script/witness_program.rs
+++ b/bitcoin/src/blockdata/script/witness_program.rs
@@ -224,6 +224,13 @@ mod tests {
         let arbitrary_bytes = [0x00; 32];
         assert!(WitnessProgram::new(WitnessVersion::V1, &arbitrary_bytes)
             .expect("valid witness program")
-            .is_p2tr());
+            .is_p2tr()
+        );
+
+        let p2a_bytes = [78, 115];
+        assert!(WitnessProgram::new(WitnessVersion::V1, &p2a_bytes)
+            .expect("valid witness program")
+            .is_p2a()
+        );
     }
 }