From: Tomas Doran <bobtfish@bobtfish.net>
Date: Sat, 23 Jan 2010 14:39:46 +0000 (+0000)
Subject: Start a test using the treebuilder stuff
X-Git-Tag: 0.000006_01~1^2~30
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08122a3c0d897bb2f9e15a6b89912a7fc3ec84d5;p=catagits%2FGitalist.git

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
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;