4 use lib 't/cdbi/testlib';
9 use base 'DBIC::Test::SQLite';
11 Thing->columns(TEMP => qw[foo bar baz]);
12 Thing->columns(All => qw[some real stuff]);
15 my $thing = Thing->construct({ foo => 23, some => 42, baz => 99 });
16 $thing->set( foo => "wibble", some => "woosh" );
17 is $thing->foo, "wibble";
18 is $thing->some, "woosh";
21 $thing->discard_changes;