X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2Fcrud.t;h=8afe8885e73f2c16f00afd3c454f56d06ea6ac56;hb=0ce03c9aa8e988d951a1383c99287d5ca4fbdfba;hp=2406ad7fac2498f5bba3515e9c2ec2d6fbf00464;hpb=a4c30c9757a710511bcfabe5cad9a7390eabfbcd;p=maypole.git

diff --git a/t/crud.t b/t/crud.t
index 2406ad7..8afe888 100755
--- a/t/crud.t
+++ b/t/crud.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use Test::More;
-use lib 'ex'; # Where BeerDB should live
+use lib 'examples'; # Where BeerDB should live
 BEGIN {
     $ENV{BEERDB_DEBUG} = 2;
 
@@ -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;