package TestAPRlib::uuid;
use strict;
use warnings FATAL => 'all';
use Apache::Test;
my $dummy_uuid = 'd48889bb-d11d-b211-8567-ec81968c93c6';
require APR;
require APR::UUID;
#XXX: apr_generate_random_bytes may block forever on /dev/random
# my $uuid = APR::UUID->new->format;
sub num_of_tests {
return 3;
}
sub test {
my $uuid = $dummy_uuid;
ok $uuid;
my $uuid_parsed = APR::UUID->parse($uuid);
ok $uuid_parsed;
ok $uuid eq $uuid_parsed->format;
}
1;