1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
12 my $schema = DBICTest->init_schema();
14 my $rs = $schema->resultset('NoPrimaryKey');
16 my $row = $rs->create ({ foo => 1, bar => 1, baz => 1 });
20 }, 'Set on pkless object works');
22 is ($row->foo, 2, 'Column updated in-object');
25 $row->update ({baz => 3});
26 }, 'update() fails on pk-less object');
28 is ($row->foo, 2, 'Column not updated by failed update()');
32 }, 'delete() fails on pk-less object');