Hyperlink-Redirect/t/01-basic.rakutest

18 lines
644 B
Raku
Raw Normal View History

2023-11-15 13:15:55 -05:00
use v6.d;
use Humming-Bird::Core;
2023-11-15 13:41:48 -05:00
use Test;
2023-11-15 13:15:55 -05:00
# Local libs
use lib 'lib';
use Hyperlink-Redirect;
2023-11-15 13:41:48 -05:00
use Hyperlink-Redirect::Helpers;
plan 2;
2023-11-15 13:15:55 -05:00
2023-11-17 21:04:48 -05:00
ok fix-protocol("seriousbusiness.international") eq "http://seriousbusiness.international",
"fix-protocol fixes bare domains correctly"
or diag "\nfix-protocol should return the same string with 'http://' prefixed if protocol isn't specified";
2023-11-15 13:15:55 -05:00
2023-11-17 21:04:48 -05:00
ok fix-protocol("https://www.seriousbusiness.international") eq "https://www.seriousbusiness.international",
"fix-protocol does not mangle correctly formatted domains"
or diag "\nThe URL should remain unchanged when the protocol is specified";