Jonathan Druart
f1f9c6dc74
.pm must not have -x .t must have -x .pl must have -x Test plan: Apply only the first patch, run the tests and confirm that the failures make sense Apply this patch and confirm that the test now returns green Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
110 lines
3.7 KiB
Perl
Executable file
110 lines
3.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 3 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use Test::More;
|
|
use Test::MockModule;
|
|
|
|
use Koha::Database;
|
|
use Koha::Libraries;
|
|
|
|
subtest "Scenario: Show how caching prevents Test::DBIx::Class from working properly and how to circumvent it", sub {
|
|
my ( $firstSchema, $cachedSchema, $cachedSchema2, $firstLibCount, $libCount );
|
|
|
|
eval {
|
|
|
|
ok(
|
|
$firstSchema = Koha::Database->schema,
|
|
'Step: Given a normal DB connection.'
|
|
);
|
|
|
|
$firstLibCount =
|
|
Koha::Libraries->search->count; # first count normal conn
|
|
|
|
ok( $cachedSchema = Koha::Database::get_schema_cached(),
|
|
' And the DB connection is cached' );
|
|
|
|
unlike( getConnectionDBName($cachedSchema),
|
|
qr/sqlite/i, ' And the cached DB connection type is not sqlite' );
|
|
|
|
use_ok('Test::DBIx::Class');
|
|
my $db = Test::MockModule->new('Koha::Database');
|
|
$db->mock( _new_schema => sub { return Schema(); } );
|
|
ok( 1,
|
|
'Step: Given Test::DBIx::Class (T:D:C) is loaded and DB accessor is mocked. Connection from cache is still used.'
|
|
);
|
|
|
|
$libCount = Koha::Libraries->search->count;
|
|
|
|
is( $libCount, $firstLibCount,
|
|
' Then we got the same count as without T:D:C' );
|
|
|
|
$cachedSchema = Koha::Database::get_schema_cached();
|
|
is( $cachedSchema, $firstSchema,
|
|
' And the cached DB connection is the same as without T:D:C' );
|
|
|
|
is(
|
|
getConnectionDBName($cachedSchema),
|
|
getConnectionDBName($firstSchema),
|
|
' And the cached DB connection type is unchanged'
|
|
);
|
|
|
|
ok( Koha::Database::flush_schema_cache(),
|
|
'Step: Given the DB connection cache is flushed' );
|
|
|
|
$libCount = Koha::Libraries->search->count;
|
|
|
|
is( $libCount, 0,
|
|
' Then we got 0 libraries because fixtures are not deployed' );
|
|
|
|
$cachedSchema = Koha::Database::get_schema_cached();
|
|
isnt( $cachedSchema, $firstSchema,
|
|
' And the cached DB connection has changed' );
|
|
|
|
like( getConnectionDBName($cachedSchema),
|
|
qr/sqlite/i, ' And the cached DB connection type is sqlite' );
|
|
|
|
fixtures_ok(
|
|
[ #Dynamically load fixtures, because we dynamically load T:D:C. Otherwise there be compile errors!
|
|
Branch => [
|
|
[ 'branchcode', 'branchname' ],
|
|
[ 'XXX_test', 'my branchname XXX' ],
|
|
]
|
|
],
|
|
'Step: Given we deploy T:D:C Fixtures'
|
|
);
|
|
|
|
$libCount = Koha::Libraries->search->count;
|
|
|
|
is( $libCount, 1, ' Then we got the count from fixtures' );
|
|
|
|
$cachedSchema2 = Koha::Database::get_schema_cached();
|
|
is( $cachedSchema2, $cachedSchema,
|
|
' And the cached DB connection is the same from T:D:C' );
|
|
|
|
like( getConnectionDBName($cachedSchema),
|
|
qr/sqlite/i, ' And the cached DB connection type is sqlite' );
|
|
|
|
};
|
|
ok( 0, $@ ) if $@;
|
|
};
|
|
|
|
done_testing;
|
|
|
|
sub getConnectionDBName {
|
|
return shift->storage->connect_info->[0]->{dsn};
|
|
}
|