[Bast-commits] r6603 - in DBIx-Class/0.08/branches/type_aware_update/t: . update

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-10 16:08:25 +0000 (Wed, 10 Jun 2009)
New Revision: 6603

Added:
   DBIx-Class/0.08/branches/type_aware_update/t/update/
   DBIx-Class/0.08/branches/type_aware_update/t/update/type_aware.t
Log:
Test for type-aware update

Added: DBIx-Class/0.08/branches/type_aware_update/t/update/type_aware.t
===================================================================
--- DBIx-Class/0.08/branches/type_aware_update/t/update/type_aware.t	                        (rev 0)
+++ DBIx-Class/0.08/branches/type_aware_update/t/update/type_aware.t	2009-06-10 16:08:25 UTC (rev 6603)
@@ -0,0 +1,27 @@
+use strict;
+use warnings;  
+
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+
+my $schema = DBICTest->init_schema();
+
+plan tests => 4;
+
+my $artist = $schema->resultset ('Artist')->first;
+ok (!$artist->get_dirty_columns, 'Artist is clean' );
+
+$artist->rank (13);
+ok (!$artist->get_dirty_columns, 'Artist is clean after num value update' );
+$artist->discard_changes;
+
+$artist->rank ('13.00');
+ok (!$artist->get_dirty_columns, 'Artist is clean after string value update' );
+$artist->discard_changes;
+
+# override column info
+$artist->result_source->column_info ('rank')->{is_numeric} = 0;
+$artist->rank ('13.00');
+ok ($artist->get_dirty_columns, 'Artist is updated after is_numeric override' );
+$artist->discard_changes;