X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F746sybase.t;h=2210db782773a6534d4b3e3544ff79fb822f8fb5;hb=cdf7f026f607854a455e15b682c4b72160c63065;hp=daca42667c3aff59031498af4d126c4e3158ab01;hpb=7f505c17e411db792a53172d3b8681c59cf5a7b0;p=dbsrgits%2FDBIx-Class.git diff --git a/t/746sybase.t b/t/746sybase.t index daca426..2210db7 100644 --- a/t/746sybase.t +++ b/t/746sybase.t @@ -556,14 +556,15 @@ 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 });