Commit | Line | Data |
0567538f |
1 | sub run_tests { |
2 | |
3 | BEGIN { |
4 | eval "use DBD::SQLite"; |
5 | plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 3); |
6 | } |
7 | |
3712e4f4 |
8 | my $art = DBICTest->class("Artist")->find(1); |
0567538f |
9 | |
10 | isa_ok $art => 'DBICTest::Artist'; |
11 | |
12 | my $name = 'Caterwauler McCrae'; |
13 | |
14 | ok($art->name($name) eq $name, 'update'); |
15 | |
16 | { |
17 | my @changed_keys = $art->is_changed; |
18 | is( scalar (@changed_keys), 0, 'field changed but same value' ); |
19 | } |
20 | |
21 | $art->discard_changes; |
22 | |
23 | } |
24 | |
25 | 1; |