X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F746sybase.t;h=6b54699ae4f0a9c54d2429efc168166b502c3ac3;hb=d52d4d6e066eca4c85c5f4f6cf7b005f0dc883bc;hp=6a75029af529ab3c0dd00b5408192ca6fb2a8c47;hpb=ca507a2f6ea8ec84b455b8843bd161e3e5fac458;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/746sybase.t b/t/746sybase.t
index 6a75029..6b54699 100644
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -1,5 +1,5 @@
 use strict;
-use warnings;  
+use warnings;
 no warnings 'uninitialized';
 
 use Test::More;
@@ -556,23 +556,24 @@ SQL
     $row = $rs->create({ amount => 100 });
   } 'inserted a money value';
 
-  is eval { $rs->find($row->id)->amount }, 100, 'money value round-trip';
+  cmp_ok eval { $rs->find($row->id)->amount }, '==', 100,
+    'money value round-trip';
 
   lives_ok {
     $row->update({ amount => 200 });
   } 'updated a money value';
 
-  is eval { $rs->find($row->id)->amount },
-    200, 'updated money value round-trip';
+  cmp_ok eval { $rs->find($row->id)->amount }, '==', 200,
+    'updated money value round-trip';
 
   lives_ok {
     $row->update({ amount => undef });
   } 'updated a money value to NULL';
 
-  lives_ok {
+  lives_and {
     my $null_amount = $rs->find($row->id)->amount;
-    is ($null_amount, undef, 'updated money value to NULL round-trip');
-  };
+    is $null_amount, undef;
+  } 'updated money value to NULL round-trip';
 
 # Test computed columns and timestamps
   $schema->storage->dbh_do (sub {