Compare commits

...

7 commits
main ... main

4 changed files with 15 additions and 19 deletions

View file

@ -1,4 +1,4 @@
FROM rakudo-star:2023.08
FROM docker.io/rakudo-star:2023.08
# Move it
WORKDIR /opt
@ -11,15 +11,14 @@ COPY templates/ ./templates/
RUN apt-get update
RUN apt-get -y upgrade
RUN apt-get -y install libssl-dev libarchive-dev
# Stupid tests failing idk
# Tests failing cope
RUN zef -v install --force-test IO::Socket::Async::SSL \
Archive::Libarchive::Raw NativeHelpers::Callback
# Get the latest and greatest for bug fix
# https://github.com/rawleyfowler/Humming-Bird/issues/60#issuecomment-1788351265
RUN zef install https://github.com/rawleyfowler/Humming-Bird.git --force-install
NativeHelpers::Callback \
Archive::Libarchive::Raw
RUN zef -v install --deps-only .
# Finish setting up the environment
ENV HUMMING_BIRD_ENV='PROD'
EXPOSE 3000
CMD ["raku", "bin/hyperlink-redirect"]

View file

@ -11,4 +11,4 @@ use Humming-Bird::Core;
use lib 'lib';
use Hyperlink-Redirect;
listen(3000);
listen 3000;

View file

@ -1,6 +1,4 @@
use Humming-Bird::Core;
use Humming-Bird::Middleware;
use Humming-Bird::Advice;
use Template::Mustache;
# Normally would 'use' local libs here for Controller and Model and
@ -11,9 +9,8 @@ use Hyperlink-Redirect::Helpers;
# Set things up (config stuff would go here?)
my $template = Template::Mustache.new: :from<../templates>;
# Logging
middleware &middleware-logger;
advice &advice-logger;
# Plugins
plugin 'Logger';
# Must set the root path lest yet miss setting $!root
my $router = Router.new(root => '/');

View file

@ -8,10 +8,10 @@ use Hyperlink-Redirect::Helpers;
plan 2;
ok fix-protocol("seriousbusiness.international") eq "http://seriousbusiness.international", \
"fix-protocol fixes bare domains correctly"\
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"\
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";