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