From b7bd0bad53df03baf5dc302ade58bea4f73d0880 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 15 Feb 2014 22:43:57 +0200 Subject: [PATCH] Add example test suite --- t/mech.t | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 t/mech.t diff --git a/t/mech.t b/t/mech.t new file mode 100644 index 0000000..5ea673b --- /dev/null +++ b/t/mech.t @@ -0,0 +1,14 @@ +#!/usr/bin/perl -w +use strict; +use warnings; + +use Test::More tests => 5; +use Test::WWW::Mechanize::PSGI; + +my $mech = Test::WWW::Mechanize::PSGI->new(app => do 'app.psgi'); +$mech->get_ok('/'); +$mech->title_is('Gruntmaster 6000'); + +$mech->get_ok('/pb/'); +$mech->title_is('Problems'); +$mech->content_contains('Spell'); -- 2.30.2