]> git.imager.perl.org - poe-xs-queue-array.git/commitdiff
actually add the test code
authorTony Cook <tony@develop=help.com>
Tue, 15 Apr 2008 07:58:05 +0000 (07:58 +0000)
committerTony Cook <tony@develop=help.com>
Tue, 15 Apr 2008 07:58:05 +0000 (07:58 +0000)
t/03_errno.t [new file with mode: 0644]

diff --git a/t/03_errno.t b/t/03_errno.t
new file mode 100644 (file)
index 0000000..83b91dc
--- /dev/null
@@ -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");