From b717b7341c854837780913339fb625cbe19b5d67 Mon Sep 17 00:00:00 2001 From: Simon Cozens Date: Fri, 30 Apr 2004 14:57:56 +0000 Subject: [PATCH] use Maypole::Constants; git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@140 48953598-375a-da11-a14b-00016c27c3ee --- lib/Maypole/CLI.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm index b40dc0f..8b7107b 100644 --- a/lib/Maypole/CLI.pm +++ b/lib/Maypole/CLI.pm @@ -83,16 +83,17 @@ For instance, a test script could look like this: use Test::More tests => 5; use Maypole::CLI qw(BeerDB); + use Maypole::Constants; $ENV{MAYPOLE_TEMPLATES} = "t/templates"; # Hack because isa_ok only supports object isa not class isa isa_ok( (bless {},"BeerDB") , "Maypole"); @ARGV = ("http://localhost/beerdb/"); - is(BeerDB->handler, 200, "OK"); + is(BeerDB->handler, OK, "OK"); like($Maypole::CLI::buffer, qr/frontpage/, "Got the front page"); @ARGV = ("http://localhost/beerdb/beer/list"); - is(BeerDB->handler, 200, "OK"); + is(BeerDB->handler, OK, "OK"); like($Maypole::CLI::buffer, qr/Organic Best/, "Found a beer in the list"); -- 2.39.5