view release on metacpan or  search on metacpan

t/10-basic-db.t  view on Meta::CPAN

ok($db = App::LedgerSMB::Admin::Database->new(
      username => 'postgres',
      host     => 'localhost',
      dbname   => 'app_ledgersmb_test',
   ), 'New database management object created'
);

eval { $db->drop };

dies_ok { $db->major_version } "can't get major version on nonexistent db";
ok($db = $db->new($db->export), 'Copied db credentials into new object');

ok($db->create, 'Created database');
ok($db->load('0.1'), 'Loaded base schema');

lives_ok {$db->major_version} "Lived when calling major version this time.";
is($db->major_version, '0.1', 'Correct major version');

lives_ok {$db->upgrade_to('0.2'); } 'Upgraded to 0.2';
is($db->new($db->export)->major_version, 0.2, 'Correct major version after upgrade');