Commit | Line | Data |
7ad80222 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | # Columns in CDBI could be defined as Class::DBI::Column objects rather than |
5 | # or as well as with __PACKAGE__->columns(); |
6 | |
7 | use Test::More; |
8 | |
9 | use lib 't/cdbi/testlib'; |
10 | use ColumnObject; |
11 | |
12 | ok(ColumnObject->can('db_Main'), 'set_db()'); |
13 | is(ColumnObject->__driver, 'SQLite', 'Driver set correctly'); |
14 | |
15 | ColumnObject->create({ |
16 | columna => 'Test Data', |
17 | columnb => 'Test Data 2', |
18 | }); |
19 | |
20 | my $column_object = ColumnObject->retrieve(columna => 'Test Data'); |
21 | $column_object->columnb_as_write('Test Data Written'); |
22 | $column_object->update; |
23 | $column_object = ColumnObject->retrieve(columna => 'Test Data'); |
24 | |
25 | is($column_object->columna_as_read => 'Test Data', 'Read column via accessor'); |
26 | is($column_object->columna => 'Test Data', 'Real column returns right data'); |
27 | is($column_object->columnb => 'Test Data Written', 'ColumnB wrote via mutator'); |
28 | |
29 | done_testing; |