#!/usr/bin/perl

use strict;
use Test::Network;

my $host = "wegenforum.nl";
pings $host;
accepts $host, 21, 22, 80, 113, 4949;

ssh $host, "3a:c6:28:d0:4b:56:a6:e5:cb:44:6b:09:84:d7:f7:0b";

my @forum = qw(
        wegenforum.nl
    www.wegenforum.nl
        wegenforum.be
    www.wegenforum.be
);

redirects "http://$_/", "https://www.wegenforum.nl/"
    for @forum;

redirects "https://$_/", "https://www.wegenforum.nl/"
    for grep $_ ne "www.wegenforum.nl", @forum;

contains "https://www.wegenforum.nl/", "<title>";

done_testing;

# vim: set ft=perl