use strict;
plan skip_all
=> sprintf("Unsupported UUID::Object (%.2f) is installed.",
$UUID::Object::VERSION)
if $UUID::Object::VERSION > 0.80;
eval q{ use Digest };
plan skip_all => "Digest is not installed." if $@;
eval { Digest->new('SHA-1') };
plan skip_all => "Digest for SHA-1 is not installed." if $@;
plan tests => 3;
eval q{ use UUID::Generator::PurePerl;
use UUID::Object; };
die if $@;
my $g = UUID::Generator::PurePerl->new();
my $uuid = $g->generate_v5(uuid_ns_dns(), 'www.widgets.com');
is( lc($uuid->as_string), '21f7f8de-8051-5b89-8680-0195ef798b6a', 'RFC 4122 example' );
is( $uuid->variant, 2, 'variant = 2' );
is( $uuid->version, 5, 'version = 5' );