commit fb80e00ed455a76ea7c58e4202c3f3bd43636d0d
parent 32dc84643f2827208850da6335d61e33a8d5d7fc
Author: Kyle Milz <kyle@0x30.net>
Date: Fri, 16 Dec 2016 23:01:52 -0700
t: merge both www_ tests into one
Diffstat:
3 files changed, 16 insertions(+), 29 deletions(-)
diff --git a/t/www.t b/t/www.t
@@ -0,0 +1,16 @@
+#
+# Test live website.
+#
+use strict;
+use warnings;
+use Test::More tests => 5;
+use Test::WWW::Mechanize;
+
+my $mech = Test::WWW::Mechanize->new;
+$mech->get_ok( "http://cit.run" );
+$mech->base_is( "http://cit.run" );
+$mech->title_is( "C It Run" );
+
+$mech->html_lint_ok();
+
+$mech->page_links_ok("check all links");
diff --git a/t/www_links.sh b/t/www_links.sh
@@ -1,14 +0,0 @@
-#!/bin/sh -u
-#
-# Test that all html links on the website work.
-#
-. t/libtap.subr
-plan 1
-
-# --spider: don't download the page
-# -r: recursive retrieval
-# -nd: don't create local dirs
-# -nv: turn off extra downloading output
-# -H: span accross hosts
-# -l: recursion level
-ok "is no broken links" wget --spider -r -nd -nv -l 1 http://cit.run
diff --git a/t/www_valid.t b/t/www_valid.t
@@ -1,15 +0,0 @@
-#
-# Test that we can count an executing program as its running.
-#
-use strict;
-use warnings;
-use LWP::UserAgent;
-use Test::HTML::Tidy tests => 2;
-use Test::More;
-
-my $ua = LWP::UserAgent->new();
-my $resp = $ua->get("http://cit.run");
-
-ok( $resp->is_success, "is http response success" );
-
-html_tidy_ok($resp->decoded_content, "is html tidy");