0.006 release
[poe-xs-queue-array.git] / t / 03_errno.t
1 #!/usr/bin/perl -w
2 use strict;
3 use Test::More tests => 2;
4 use Errno qw(:POSIX);
5
6 use POE::XS::Queue::Array;
7
8 $! = 0;
9 POE::XS::Queue::Array::_set_errno_xs(EPERM);
10 is($!+0, EPERM, "check errno set in .xs");
11 $! = 0;
12 POE::XS::Queue::Array::_set_errno_queue(ESRCH);
13 is($!+0, ESRCH, "check errno set in queue.c");