actually add the test code
[poe-xs-queue-array.git] / Array.xs
index 0c2beb8..6d515aa 100644 (file)
--- a/Array.xs
+++ b/Array.xs
@@ -172,3 +172,19 @@ pq_peek_items(pq, filter, ...)
 void
 pq_dump(pq)
        POE::XS::Queue::Array pq
+
+void
+pq_verify(pq)
+       POE::XS::Queue::Array pq
+
+# these are for testing errno is being set correctly for perl when
+# set from XS
+void
+pq__set_errno_xs(value)
+       int value
+      CODE:
+       errno = value;
+
+void
+pq__set_errno_queue(value)
+       int value