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

Merge branch 'main' of https://git.minimally.online/swaggboi/Hyperlink-Redirect

Browse source
This commit is contained in:
swagg boi 2023-11-17 20:56:58 -05:00
parent db82f97921 befd600fbe
commit c53041b906
2 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Hyperlink-Redirect/Helpers.rakumod
View file

@ -3,7 +3,7 @@ use Libarchive::Filter :gzip;
my $starts-with-protocol = rx:i/ ^https? '://'/; my $starts-with-protocol = rx:i/ ^https? '://'/;
sub fix-protocol($url) is export { sub fix-protocol(Str $url) is export {
return "http://" ~ $url unless $url ~~ $starts-with-protocol; return "http://" ~ $url unless $url ~~ $starts-with-protocol;
return $url; return $url;

17
t/01-basic.rakutest Normal file
View file

@ -0,0 +1,17 @@
use v6.d;
use Humming-Bird::Core;
use Test;
# Local libs
use lib 'lib';
use Hyperlink-Redirect;
use Hyperlink-Redirect::Helpers;
plan 2;
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";
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";