view release on metacpan or  search on metacpan

t/04_at_did.t  view on Meta::CPAN

use Test2::Util::Importer 'Test2::Tools::Subtest' => ( subtest_streamed => { -as => 'subtest' } );
use Test2::Plugin::UTF8;
use Path::Tiny qw[path];
use v5.36;
use lib '../eg/', 'eg', '../lib', 'lib';
#
use At::Protocol::DID qw[:all];
#
imported_ok qw[ensureValidDid ensureValidDidRegex];
#
sub expectValid($uri) {
    subtest $uri => sub {
        ok ensureValidDid($uri),      'ensureValidDid( ... )';
        ok ensureValidDidRegex($uri), 'ensureValidDidRegex( ... )';
    }
}

sub expectInvalid($uri) {
    subtest $uri => sub {
        ok dies { ensureValidDid($uri) },        'ensureValidDid( ... ) dies';
        ok dies { ensureValidAtDidRegex($uri) }, 'ensureValidAtDidRegex( ... ) dies';
    }
}
subtest 'enforces spec details' => sub {
    expectValid('did:method:val');
    expectValid('did:method:VAL');
    expectValid('did:method:val123');
    expectValid('did:method:123');