From 1edfdbeebe5bcb8bc695076f064703022701f3c8 Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Wed, 14 Jun 2006 08:53:33 +0000 Subject: [PATCH] fixed path for crud.t, fixed rounding assumption in crud.t test for negative values git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@496 48953598-375a-da11-a14b-00016c27c3ee --- t/01basics.t | 2 +- t/crud.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/t/01basics.t b/t/01basics.t index 87c9643..7da48b2 100644 --- a/t/01basics.t +++ b/t/01basics.t @@ -1,6 +1,6 @@ #!/usr/bin/perl -w use Test::More; -use lib '../ex'; # Where BeerDB should live +use lib 'ex'; # Where BeerDB should live BEGIN { $ENV{BEERDB_DEBUG} = 2; diff --git a/t/crud.t b/t/crud.t index 2406ad7..1efc73c 100755 --- a/t/crud.t +++ b/t/crud.t @@ -98,7 +98,7 @@ SKIP: { like(BeerDB->call_url("http://localhost/beerdb/beer/do_edit/".$beer->id."?name=Oatmeal Stout&brewery=".$brewery->id."&price=-5.00"), qr/^# view/, "Negative values allowed for required field"); # TEST negative value actually got stored - is($beer->price, '-5.00', "Negative value for required field stored in database") + like($beer->price, qr/-5(\.00)?/, "Negative value for required field stored in database") }; $beer_id = $beer->id; -- 2.39.5