7 use Test::More tests => 10;
10 use_ok('Koha::Database');
14 ok( $database = Koha::Database->new(), 'Created Koha::Database Object' );
17 ok( $schema = $database->schema(), 'Get a schema' );
19 ok( $dbh = $schema->storage->dbh(), 'Get an old fashioned DBI dbh handle' );
20 ok( $schema->storage->connected(), 'Check our db connection is active' );
21 ok( $schema = $database->schema(), 'Try and get the same schema' );
24 ok( $new_schema = $database->new_schema(), 'Try to get a new schema' );
25 ok( $database->set_schema($new_schema), 'Switch to new schema' );
26 ok( $database->restore_schema(), 'Switch back' );
28 # run in a transaction
29 $schema->storage->txn_begin();
32 $schema->resultset('Category')->search({ categorycode => 'GIFT-RUS' })->delete;
34 $schema->resultset('Category')->create({
35 categorycode => 'GIFT-RUS',
38 my $desc = $schema->resultset('Category')->search({
39 categorycode => 'GIFT-RUS',
40 })->single->get_column('description');
41 is($desc, $gift, 'stored and retrieved UTF8 string');
42 $schema->storage->txn_rollback();