use strict;

use Modern::Perl;

use warnings;

use Test::More tests => 6;

use Test::More tests => 5;

my $module = new Test::MockModule('C4::Context');

use Test::DBIx::Class {

$module->mock(

    schema_class => 'Koha::Schema',

    '_new_dbh',

    connect_info => ['dbi:SQLite:dbname=:memory:','',''],

    sub {

    connect_opts => { name_sep => '.', quote_char => '`', },

        my $dbh = DBI->connect( 'DBI:Mock:', '', '' )

    fixture_class => '::Populate',

          || die "Cannot create handle: $DBI::errstr\n";

}, 'SocialData', 'Biblioitem' ;

        return $dbh;

    }

fixtures_ok [

);

    Biblioitem => [

my $socialdata = [

        ['biblionumber', 'isbn'],

    [

        [1, '0-596-52674-1'],

        'isbn',            'num_critics',

        [2, '0-596-00289-0'],

        'num_critics_pro', 'num_quotations',

        'num_videos',      'score_avg',

        'num_scores'

    [ '0-596-52674-1', 1, 2, 3, 4, 5.2, 6 ],

    SocialData => [

    [ '0-596-00289-0', 2, 3, 4, 5, 6.2, 7 ]

        [

];

            'isbn',            'num_critics',

my $dbh = C4::Context->dbh();

            'num_critics_pro', 'num_quotations',

            'num_videos',      'score_avg',

            'num_scores'

        ],

        [ '0-596-52674-1', 1, 2, 3, 4, 5.2, 6 ],

        [ '0-596-00289-0', 2, 3, 4, 5, 6.2, 7 ]

    ],

], 'add fixtures';

$dbh->{mock_add_resultset} = $socialdata;

my $db = Test::MockModule->new('Koha::Database');

$db->mock( _new_schema => sub { return Schema(); } );

is( $data->{'isbn'}, '0-596-52674-1', 'First isbn is 0-596-52674-1' );

$data = C4::SocialData::get_data('0-596-52674-1');

is( $data->{isbn}, '0-596-52674-1', 'get_data should return the matching row');

my $reportdata =

  [ [ 'biblionumber', 'isbn' ], [ 1, '0-596-52674-1' ],

    [ 2, '0-596-00289-0' ] ];

use Data::Dumper;

$dbh->{mock_add_resultset} = $reportdata;

ok( my $report = C4::SocialData::get_report() );

my $report =  C4::SocialData::get_report('0-596-52674-1');