You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/07/28 19:33:30 UTC
cvs commit: modperl-2.0/t/apr-ext uuid.t
stas 2003/07/28 10:33:30
Added: t/apr-ext uuid.t
Log:
first test for usage of APR outside mod_perl
Revision Changes Path
1.1 modperl-2.0/t/apr-ext/uuid.t
Index: uuid.t
===================================================================
use Apache::Test;
use blib;
use Apache2;
use APR ();
use APR::UUID ();
my $dummy_uuid = 'd48889bb-d11d-b211-8567-ec81968c93c6';
plan tests => 3;
#XXX: apr_generate_random_bytes may block forever on /dev/random
# my $uuid = APR::UUID->new->format;
my $uuid = $dummy_uuid;
ok $uuid;
my $uuid_parsed = APR::UUID->parse($uuid);
ok $uuid_parsed;
ok $uuid eq $uuid_parsed->format;