Revert "Bug 7167: Adds Unit tests for C4::Update::Database"
This reverts commit 69c19e28b4.
This commit is contained in:
Jared Camins-Esakov
parent
38f8bf4776
commit
66717192f4
6 changed files with 1 additions and 155 deletions
|
|
@ -51,6 +51,7 @@ our $dbh = C4::Context->dbh;
|
||||||
|
|
||||||
sub get_versions_path {
|
sub get_versions_path {
|
||||||
return C4::Context->config('intranetdir') . '/installer/data/mysql/versions';
|
return C4::Context->config('intranetdir') . '/installer/data/mysql/versions';
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
=head2 get_filepath
|
=head2 get_filepath
|
||||||
|
|
|
||||||
|
|
@ -1,101 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
use Modern::Perl;
|
|
||||||
use Test::More;
|
|
||||||
use Test::MockModule;
|
|
||||||
use C4::Context;
|
|
||||||
use Data::Dumper;
|
|
||||||
|
|
||||||
BEGIN {
|
|
||||||
use_ok('C4::Update::Database');
|
|
||||||
}
|
|
||||||
|
|
||||||
clean_db();
|
|
||||||
|
|
||||||
my $already_applied_before = C4::Update::Database::list_versions_already_applied;
|
|
||||||
my $nb_applied_before = scalar @$already_applied_before;
|
|
||||||
my $nb_status_ok_before = grep {$_->{status}} @$already_applied_before;
|
|
||||||
|
|
||||||
my $updatedatabasemodule = new Test::MockModule('C4::Update::Database');
|
|
||||||
$updatedatabasemodule->mock('get_versions_path', sub {C4::Context->config('intranetdir') . '/t/db_dependent/data/update_database/versions'});
|
|
||||||
|
|
||||||
my $availables = C4::Update::Database::list_versions_available;
|
|
||||||
my $already_applied = C4::Update::Database::list_versions_already_applied;
|
|
||||||
|
|
||||||
my $report;
|
|
||||||
|
|
||||||
is ( scalar @$availables, 4, "There are 4 new available updates" );
|
|
||||||
|
|
||||||
$report = C4::Update::Database::execute_version( "3.99.01.001" );
|
|
||||||
is ( $report->{'3.99.01.001'}, 'OK', "There is no error for the 1st version" );
|
|
||||||
|
|
||||||
$already_applied = C4::Update::Database::list_versions_already_applied;
|
|
||||||
is ( scalar @$already_applied, $nb_applied_before + 1, "There is 1 already applied version" );
|
|
||||||
|
|
||||||
$report = C4::Update::Database::execute_version( "3.99.01.001" );
|
|
||||||
is ( $report->{"3.99.01.001"}{error}, 'ALREADY_EXISTS', "There is an 'already exist' error" );
|
|
||||||
is ( $report->{"3.99.01.001"}{old_version}, '3.99.01.001', "This version had already executed in version 3.99.01.001" );
|
|
||||||
|
|
||||||
|
|
||||||
my $queries = C4::Update::Database::get_queries( C4::Update::Database::get_filepath( "3.99.01.002" ) );
|
|
||||||
my $expected = {
|
|
||||||
queries => [
|
|
||||||
'CREATE TABLE UpdateDatabase_testFOOBIS ( `version` varchar(32) DEFAULT NULL)'
|
|
||||||
],
|
|
||||||
'comments' => [
|
|
||||||
'This is a comment',
|
|
||||||
'This is aanother comment'
|
|
||||||
]
|
|
||||||
};
|
|
||||||
is_deeply ( $queries, $expected, "The version 002 contains 1 query and 2 comments" );
|
|
||||||
|
|
||||||
$report = C4::Update::Database::execute_version( "3.99.01.002" );
|
|
||||||
is ( $report->{'3.99.01.002'}, 'OK', "There is no error for the 2nd version" );
|
|
||||||
|
|
||||||
$report = C4::Update::Database::execute_version( "3.99.01.003" );
|
|
||||||
$expected = {
|
|
||||||
'3.99.01.003' => [
|
|
||||||
q{Error : 1050 => Table 'UpdateDatabase_testFOO' already exists}
|
|
||||||
]
|
|
||||||
};
|
|
||||||
is_deeply ( $report, $expected, "There is an error for the 3rd version" );
|
|
||||||
|
|
||||||
$report = C4::Update::Database::execute_version( "3.99.01.004" );
|
|
||||||
is ( $report->{'3.99.01.004'}, 'OK', "There is no error for the 4th version" );
|
|
||||||
|
|
||||||
|
|
||||||
$already_applied = C4::Update::Database::list_versions_already_applied;
|
|
||||||
is ( grep( {$_->{status}} @$already_applied ), $nb_status_ok_before + 3, "There are 3 new versions with a status OK" );
|
|
||||||
|
|
||||||
C4::Update::Database::mark_as_ok( "3.99.01.003" );
|
|
||||||
$already_applied = C4::Update::Database::list_versions_already_applied;
|
|
||||||
is ( grep( {$_->{status}} @$already_applied ), $nb_status_ok_before + 4, "There are 4 new versions with a status OK" );
|
|
||||||
|
|
||||||
|
|
||||||
clean_db();
|
|
||||||
|
|
||||||
sub clean_db {
|
|
||||||
my $dbh = C4::Context->dbh;
|
|
||||||
local $dbh->{PrintError} = 0;
|
|
||||||
local $dbh->{RaiseError} = 0;
|
|
||||||
$dbh->do( q{
|
|
||||||
DELETE FROM updatedb_error WHERE version LIKE "3.99.01.%";
|
|
||||||
});
|
|
||||||
$dbh->do( q{
|
|
||||||
DELETE FROM updatedb_query WHERE version LIKE "3.99.01.%";
|
|
||||||
});
|
|
||||||
$dbh->do( q{
|
|
||||||
DELETE FROM updatedb_report WHERE version LIKE "3.99.01.%";
|
|
||||||
});
|
|
||||||
$dbh->do( q{
|
|
||||||
DROP TABLE UpdateDatabase_testFOO;
|
|
||||||
});
|
|
||||||
$dbh->do( q{
|
|
||||||
DROP TABLE UpdateDatabase_testFOOBIS;
|
|
||||||
});
|
|
||||||
$dbh->do( q{
|
|
||||||
DELETE FROM systempreferences WHERE variable = "UpdateDatabase::testsyspref1" OR variable = "UpdateDatabase::testsyspref2"
|
|
||||||
});
|
|
||||||
}
|
|
||||||
|
|
||||||
done_testing;
|
|
||||||
|
|
@ -1,3 +0,0 @@
|
||||||
-- This is a comment
|
|
||||||
DELIMITER ;
|
|
||||||
CREATE TABLE UpdateDatabase_testFOO ( `version` varchar(32) DEFAULT NULL);
|
|
||||||
|
|
@ -1,4 +0,0 @@
|
||||||
-- This is a comment
|
|
||||||
-- This is aanother comment
|
|
||||||
DELIMITER ;
|
|
||||||
CREATE TABLE UpdateDatabase_testFOOBIS ( `version` varchar(32) DEFAULT NULL);
|
|
||||||
|
|
@ -1,3 +0,0 @@
|
||||||
-- table FOO again
|
|
||||||
DELIMITER ;
|
|
||||||
CREATE TABLE UpdateDatabase_testFOO ( `version` varchar(32) DEFAULT NULL);
|
|
||||||
|
|
@ -1,44 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
# You write good Perl, so you start with Modern::Perl, of course
|
|
||||||
use Modern::Perl;
|
|
||||||
|
|
||||||
# then you load Packages that could be usefull
|
|
||||||
use C4::Context;
|
|
||||||
# Loading this package is usefull if you need to check if a table exist (TableExists)
|
|
||||||
use C4::Update::Database;
|
|
||||||
|
|
||||||
# you *must* have the sub _get_queries
|
|
||||||
# it returns an array of all SQL that have to be executed
|
|
||||||
# this array will be stored "forever" in your Koha database
|
|
||||||
# thus, you will be able to know which SQL has been executed
|
|
||||||
# at the time of upgrade. Very handy, because since then
|
|
||||||
# your database configuration may have changed and you'll wonder
|
|
||||||
# what has really be executed, not what would be executed today !
|
|
||||||
|
|
||||||
# put in an array the SQL to execute
|
|
||||||
# put in an array the comments
|
|
||||||
sub _get_queries {
|
|
||||||
my @queries;
|
|
||||||
my @comments;
|
|
||||||
push @comments, "Add sample feature";
|
|
||||||
unless ( C4::Update::Database::TableExists('testtable') ) {
|
|
||||||
push @queries, qq{
|
|
||||||
CREATE TABLE `UpdateDatabase_testtable` (
|
|
||||||
`id` int(11) NOT NULL AUTO_INCREMENT,
|
|
||||||
`source` text DEFAULT NULL,
|
|
||||||
`text` mediumtext NOT NULL,
|
|
||||||
`timestamp` datetime NOT NULL,
|
|
||||||
PRIMARY KEY (`id`)
|
|
||||||
) ENGINE=InnoDB DEFAULT CHARSET=utf8
|
|
||||||
};
|
|
||||||
push @comments, qq { * Added the table UpdateDatabase_testtable that did not exist};
|
|
||||||
}
|
|
||||||
push @queries, qq{INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UpdateDatabase::testsyspref1',0,'Enable or disable display of Quote of the Day on the OPAC home page',NULL,'YesNo')};
|
|
||||||
push @queries, qq{INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UpdateDatabase::testsyspref2',0,'Enable or disable display of Quote of the Day on the OPAC home page',NULL,'YesNo')};
|
|
||||||
push @comments , qq{ * Added 2 sysprefs};
|
|
||||||
|
|
||||||
# return queries and comments
|
|
||||||
return { queries => \@queries, comments => \@comments };
|
|
||||||
}
|
|
||||||
1;
|
|
||||||
Loading…
Reference in a new issue