55 lines
1.2 KiB
Perl
55 lines
1.2 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
#Testing C4 SocialData
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 5;
|
|
use Test::MockModule;
|
|
|
|
BEGIN {
|
|
use_ok('C4::SocialData');
|
|
}
|
|
|
|
my $module = new Test::MockModule('C4::Context');
|
|
$module->mock(
|
|
'_new_dbh',
|
|
sub {
|
|
my $dbh = DBI->connect( 'DBI:Mock:', '', '' )
|
|
|| die "Cannot create handle: $DBI::errstr\n";
|
|
return $dbh;
|
|
}
|
|
);
|
|
my $socialdata = [
|
|
[
|
|
'isbn', 'num_critics',
|
|
'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 ]
|
|
];
|
|
my $dbh = C4::Context->dbh();
|
|
|
|
$dbh->{mock_add_resultset} = $socialdata;
|
|
|
|
my $data = C4::SocialData::get_data();
|
|
|
|
is( $data->{'isbn'}, '0-596-52674-1', 'First isbn is 0-596-52674-1' );
|
|
|
|
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() );
|
|
|
|
is( $report->{'without'}->[0]->{'original'},
|
|
'0-596-52674-1', 'testing get_report gives isbn' );
|
|
|
|
is( $report->{'without'}->[0]->{'isbn'}, '9780596526740',
|
|
'testing get_report' );
|