From 09d0cc3c84bbc3c4dd948242647238668feb23f3 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 14 Jun 2021 14:52:57 +0200 Subject: [PATCH] Bug 25078: [DO NOT PUSH] DB revs for testing Use with the --force flag: % updatedatabase --force --- Koha.pm | 2 +- installer/data/mysql/db_revs/210600081.pl | 7 +++++++ installer/data/mysql/db_revs/210600082.pl | 11 +++++++++++ installer/data/mysql/db_revs/210600083.pl | 7 +++++++ installer/data/mysql/db_revs/210600090.pl | 10 ++++++++++ installer/data/mysql/db_revs/210600091.pl | 10 ++++++++++ installer/data/mysql/db_revs/210600092.pl | 10 ++++++++++ 7 files changed, 56 insertions(+), 1 deletion(-) create mode 100644 installer/data/mysql/db_revs/210600081.pl create mode 100644 installer/data/mysql/db_revs/210600082.pl create mode 100644 installer/data/mysql/db_revs/210600083.pl create mode 100644 installer/data/mysql/db_revs/210600090.pl create mode 100644 installer/data/mysql/db_revs/210600091.pl create mode 100644 installer/data/mysql/db_revs/210600092.pl diff --git a/Koha.pm b/Koha.pm index 862f24e27fb..171728f06e0 100644 --- a/Koha.pm +++ b/Koha.pm @@ -29,7 +29,7 @@ use vars qw{ $VERSION }; # - #4 : the developer version. The 4th number is the database subversion. # used by developers when the database changes. updatedatabase take care of the changes itself # and is automatically called by Auth.pm when needed. -$VERSION = "21.06.00.001"; +$VERSION = "21.06.00.100"; sub version { return $VERSION; diff --git a/installer/data/mysql/db_revs/210600081.pl b/installer/data/mysql/db_revs/210600081.pl new file mode 100644 index 00000000000..70e2fef1874 --- /dev/null +++ b/installer/data/mysql/db_revs/210600081.pl @@ -0,0 +1,7 @@ +use Modern::Perl; + +{ + bug_number => 42322, + description => "Single line description", + up => sub {}, +} diff --git a/installer/data/mysql/db_revs/210600082.pl b/installer/data/mysql/db_revs/210600082.pl new file mode 100644 index 00000000000..bd443a444d3 --- /dev/null +++ b/installer/data/mysql/db_revs/210600082.pl @@ -0,0 +1,11 @@ +use Modern::Perl; + +my $nb_patrons; +{ + bug_number => 42422, + description => sub { ["Testing number of patrons: $nb_patrons"] }, + up => sub { + my $dbh = C4::Context->dbh; + $nb_patrons = $dbh->selectrow_array(q{SELECT COUNT(*) FROM borrowers;}); + }, +} diff --git a/installer/data/mysql/db_revs/210600083.pl b/installer/data/mysql/db_revs/210600083.pl new file mode 100644 index 00000000000..b4e32550d77 --- /dev/null +++ b/installer/data/mysql/db_revs/210600083.pl @@ -0,0 +1,7 @@ +use Modern::Perl; + +{ + bug_number => 42323, + description => [qw(Multi lines description)], + up => sub {}, +} diff --git a/installer/data/mysql/db_revs/210600090.pl b/installer/data/mysql/db_revs/210600090.pl new file mode 100644 index 00000000000..802b446c4fc --- /dev/null +++ b/installer/data/mysql/db_revs/210600090.pl @@ -0,0 +1,10 @@ +use Modern::Perl; + +{ + bug_number => 42420, + description => ["Testing failure"], + up => sub { + my $dbh = C4::Context->dbh; + $dbh->do(q{ALTER TABLE Foo}); + }, +} diff --git a/installer/data/mysql/db_revs/210600091.pl b/installer/data/mysql/db_revs/210600091.pl new file mode 100644 index 00000000000..1a34a20e2b7 --- /dev/null +++ b/installer/data/mysql/db_revs/210600091.pl @@ -0,0 +1,10 @@ +use Modern::Perl; + +{ + bug_number => 42421, + description => ["don't compile"], + up => sub { + my $dbh = C4::NoContext->dbh; # NoContext does not exist + $dbh->do(q{ALTER TABLE Foo}); + }, +} diff --git a/installer/data/mysql/db_revs/210600092.pl b/installer/data/mysql/db_revs/210600092.pl new file mode 100644 index 00000000000..9add21534c6 --- /dev/null +++ b/installer/data/mysql/db_revs/210600092.pl @@ -0,0 +1,10 @@ +use Modern::Perl; + +{ + bug_number => 42423, + description => ["Testing", "multi lines", " failure"], + up => sub { + my $dbh = C4::Context->dbh; + $dbh->do(q{ALTER TABLE Foo}); + }, +} -- 2.20.1