Help language development. Donate to The Perl Foundation

Net::IP cpan:TBROWDER last updated on 2019-10-16

t/040-misc-default-exported-subs.t
use v6;
use Test;

use Net::IP :ALL;

plan 3;

# domain reverse

# valid
is ip-reverse-domain('mail.example.domain'), 'domain.example.mail';
is ip-reverse-domain('mail.example.domain.tld'), 'tld.domain.example.mail';

# not valid, returns input
is ip-reverse-domain('mail:tld'), 'mail:tld';