2_0_5/t/lib/TestAPRlib/uuid.pm

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;