actually add the test code

diff --git a/t/03_errno.t b/t/03_errno.t
new file mode 100644 (file)
index 0000000..83b91dc
--- /dev/null
+++ b/t/03_errno.t
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 2;
+use Errno qw(:POSIX);
+
+use POE::XS::Queue::Array;
+
+$! = 0;
+POE::XS::Queue::Array::_set_errno_xs(EPERM);
+is($!+0, EPERM, "check errno set in .xs");
+$! = 0;
+POE::XS::Queue::Array::_set_errno_queue(ESRCH);
+is($!+0, ESRCH, "check errno set in queue.c");