From: Simon Cozens <simon@simon-cozens.org>
Date: Fri, 30 Apr 2004 14:57:56 +0000 (+0000)
Subject: use Maypole::Constants;
X-Git-Tag: 2.10~222
X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=commitdiff_plain;h=b717b7341c854837780913339fb625cbe19b5d67

use Maypole::Constants;


git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@140 48953598-375a-da11-a14b-00016c27c3ee
---

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