swaggboi/Hyperlink-Redirect
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lil cleanup

Browse Source
This commit is contained in:
swaggboi 2023-11-17 21:04:48 -05:00
parent c53041b906
commit a6cc0239ec
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
t/01-basic.rakutest
View File

@ -8,10 +8,10 @@ use Hyperlink-Redirect::Helpers;
plan 2; plan 2;
ok fix-protocol("seriousbusiness.international") eq "http://seriousbusiness.international", \ ok fix-protocol("seriousbusiness.international") eq "http://seriousbusiness.international",
"fix-protocol fixes bare domains correctly"\ "fix-protocol fixes bare domains correctly"
or diag "\nfix-protocol should return the same string with 'http://' prefixed if protocol isn't specified"; or diag "\nfix-protocol should return the same string with 'http://' prefixed if protocol isn't specified";
ok fix-protocol("https://www.seriousbusiness.international") eq "https://www.seriousbusiness.international",\ ok fix-protocol("https://www.seriousbusiness.international") eq "https://www.seriousbusiness.international",
"fix-protocol does not mangle correctly formatted domains"\ "fix-protocol does not mangle correctly formatted domains"
or diag "\nThe URL should remain unchanged when the protocol is specified"; or diag "\nThe URL should remain unchanged when the protocol is specified";