recommends 'Test::DBIx::Class', '0.42';

#!/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};

}

-