Changeset 10

Timestamp:

05/03/06 23:59:38 (4 years ago)

Author:

sky

Message:

r13@crucially-3 (orig r930): btrott | 2005-06-23 19:05:09 -0700
Fixed broken update method, and added a test for it

Location:

trunk

Files:

• lib/Data/ObjectDriver/Driver/DBI.pm (modified) (1 diff)
• t/32-partitioned.t (modified) (3 diffs)

trunk/lib/Data/ObjectDriver/Driver/DBI.pm

@@ -302 +302 @@
     my $sql = "UPDATE $tbl SET\n";
     $sql .= join(', ', map $driver->db_column_name($tbl, $_) . " = ?", @$cols) . "\n";
-    my $stmt = $driver->prepare_statement(ref($obj), $obj->primary_key);
+    my $stmt = $driver->prepare_statement(ref($obj),
+        $driver->primary_key_to_terms(ref($obj), $obj->primary_key));
     $sql .= $stmt->as_sql_where;
     

trunk/t/32-partitioned.t

@@ -7 +7 @@
 use Recipe;
 use Ingredient;
-use Test::More tests => 46;
+use Test::More tests => 48;
 
 my($tmp, $iter);
@@ -18 +18 @@
 is($recipe->title, 'Banana Milkshake', 'Title is Banana Milkshake');
 
+$recipe->title('My Banana Milkshake');
+ok($recipe->save, 'Object updated successfully');
+is($recipe->title, 'My Banana Milkshake', 'Title is My Banana Milkshake');
+
 $tmp = Recipe->lookup($recipe->id);
 is(ref $tmp, 'Recipe', 'lookup gave us a recipe');
-is($tmp->title, 'Banana Milkshake', 'Title is Banana Milkshake');
+is($tmp->title, 'My Banana Milkshake', 'Title is My Banana Milkshake');
 
 my @recipes = Recipe->search;
 is(scalar @recipes, 1, 'Got one recipe back from search');
-is($recipes[0]->title, 'Banana Milkshake', 'Title is Banana Milkshake');
+is($recipes[0]->title, 'My Banana Milkshake', 'Title is My Banana Milkshake');
 
 $iter = Recipe->search;
@@ -31 +35 @@
 ok(!$iter->(), 'Iterator gave us only one recipe');
 is(ref $tmp, 'Recipe', 'Iterator gave us a recipe');
-is($tmp->title, 'Banana Milkshake', 'Title is Banana Milkshake');
+is($tmp->title, 'My Banana Milkshake', 'Title is My Banana Milkshake');
 
 my $ingredient = Ingredient->new;