Start a test using the treebuilder stuff

diff --git a/t/app-mech-rootpage.t b/t/app-mech-rootpage.t
new file mode 100644 (file)
index 0000000..4f61327
--- /dev/null
+++ b/t/app-mech-rootpage.t
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+use TestGitalist;
+plan 'skip_all' => 'No WWW::Mechanize' unless MECH();
+
+MECH->get_ok('/');
+ok MECH->findnodes_as_string('/html/body');
+
+done_testing;