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

diff --git a/t/01basics.t b/t/01basics.t
index 87c964314a8cfa0e8e682e887e95132e229fb097..7da48b21658047a3325f0dfebd55eed2de559258 100644 (file)
--- 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 2406ad7fac2498f5bba3515e9c2ec2d6fbf00464..1efc73c252cfe12ba411d62aaf450666f25814d7 100755 (executable)
--- 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;