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 | ||
8 | my $art = DBICTest::Artist->find(1); | |
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; |