view release on metacpan or  search on metacpan

t/nip/78.t  view on Meta::CPAN

    my $event = Net::Nostr::AppData->to_event(
        pubkey => $PK,
        d_tag  => 'myapp-settings',
    );
    is($event->d_tag, 'myapp-settings', 'd tag is app identifier');
};

subtest 'd tag can be any arbitrary string' => sub {
    my $event = Net::Nostr::AppData->to_event(
        pubkey => $PK,
        d_tag  => 'com.example.app/user-prefs/v2',
    );
    is($event->d_tag, 'com.example.app/user-prefs/v2', 'arbitrary d tag');
};

subtest 'd_tag is required' => sub {
    like(
        dies { Net::Nostr::AppData->to_event(pubkey => $PK) },
        qr/d_tag/i,
        'd_tag required for default kind 30078'
    );
};