Bug 10748: Add the ability to block return of lost items
[koha.git] / t / db_dependent / UsageStats.t
1 # Copyright 2015 BibLibre
2 #
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, see <http://www.gnu.org/licenses>.
16
17 use Modern::Perl;
18 use Test::More tests => 57;
19 use t::lib::Mocks qw(mock_preference);
20 use t::lib::TestBuilder;
21 use POSIX qw(strftime);
22 use Data::Dumper;
23 use Koha::Biblios;
24
25 use Koha::Libraries;
26
27 BEGIN {
28     use_ok('C4::UsageStats');
29     use_ok('C4::Context');
30     use_ok('C4::Biblio');
31     use_ok( 'C4::AuthoritiesMarc', qw(AddAuthority) );
32     use_ok('C4::Reserves');
33     use_ok('MARC::Record');
34     use_ok('Koha::Acquisition::Orders');
35 }
36
37 can_ok(
38     'C4::UsageStats', qw(
39       NeedUpdate
40       BuildReport
41       ReportToCommunity
42       _count )
43 );
44
45 my $schema  = Koha::Database->new->schema;
46 $schema->storage->txn_begin;
47 my $builder = t::lib::TestBuilder->new;
48 my $dbh = C4::Context->dbh;
49
50 $dbh->do('DELETE FROM issues');
51 $dbh->do('DELETE FROM biblio');
52 $dbh->do('DELETE FROM items');
53 $dbh->do('DELETE FROM auth_header');
54 $dbh->do('DELETE FROM old_issues');
55 $dbh->do('DELETE FROM old_reserves');
56 $dbh->do('DELETE FROM borrowers');
57 $dbh->do('DELETE FROM aqorders');
58 $dbh->do('DELETE FROM subscription');
59
60 #################################################
61 #             Testing Subs
62 #################################################
63
64 # ---------- Testing NeedUpdate -----------------
65
66 #Mocking C4::Context->preference("UsageStatsLastUpdateTime") to 0
67 my $now = strftime( "%s", localtime );
68 t::lib::Mocks::mock_preference( "UsageStatsLastUpdateTime", 0 );
69
70 my $update = C4::UsageStats->NeedUpdate;
71 is( $update, 1, "There is no last update, update needed" );
72
73 #Mocking C4::Context->preference("UsageStatsLastUpdateTime") to now
74 $now = strftime( "%s", localtime );
75 t::lib::Mocks::mock_preference( "UsageStatsLastUpdateTime", $now );
76
77 $update = C4::UsageStats->NeedUpdate;
78 is( $update, 0, "Last update just be done, no update needed " );
79
80 my $nb_of_libraries = Koha::Libraries->count;
81
82 # ---------- Testing BuildReport ----------------
83
84 #Test report->library -----------------
85 #mock to 0
86 t::lib::Mocks::mock_preference( "UsageStatsID",          0 );
87 t::lib::Mocks::mock_preference( "UsageStatsLibraryName", 0 );
88 t::lib::Mocks::mock_preference( "UsageStatsLibrariesInfo",  0 );
89 t::lib::Mocks::mock_preference( "UsageStatsLibraryType", 0 );
90 t::lib::Mocks::mock_preference( "UsageStatsCountry",     0 );
91 t::lib::Mocks::mock_preference( "UsageStatsLibraryUrl",  0 );
92
93 my $report = C4::UsageStats->BuildReport();
94
95 isa_ok( $report,              'HASH',  '$report is a HASH' );
96 isa_ok( $report->{libraries}, 'ARRAY', '$report->{libraries} is an ARRAY' );
97 is( scalar( @{ $report->{libraries} } ), 0, "There are 0 fields in libraries, libraries info are not shared" );
98 is( $report->{installation}->{koha_id}, 0,  "UsageStatsID          is good" );
99 is( $report->{installation}->{name},    '', "UsageStatsLibraryName is good" );
100 is( $report->{installation}->{url},     '', "UsageStatsLibraryUrl  is good" );
101 is( $report->{installation}->{type},    '', "UsageStatsLibraryType is good" );
102 is( $report->{installation}->{country}, '', "UsageStatsCountry     is good" );
103
104
105 #mock with values
106 t::lib::Mocks::mock_preference( "UsageStatsID",          1 );
107 t::lib::Mocks::mock_preference( "UsageStatsLibraryName", 'NAME' );
108 t::lib::Mocks::mock_preference( "UsageStatsLibraryUrl",  'URL' );
109 t::lib::Mocks::mock_preference( "UsageStatsLibraryType", 'TYPE' );
110 t::lib::Mocks::mock_preference( "UsageStatsCountry",     'COUNTRY' );
111 t::lib::Mocks::mock_preference( "UsageStatsLibrariesInfo", 1 );
112 t::lib::Mocks::mock_preference( "UsageStatsGeolocation", 1 );
113
114
115 $report = C4::UsageStats->BuildReport();
116
117 isa_ok( $report,              'HASH',  '$report is a HASH' );
118 isa_ok( $report->{libraries}, 'ARRAY', '$report->{libraries} is an ARRAY' );
119 is( scalar( @{ $report->{libraries} } ), $nb_of_libraries, "There are 6 fields in $report->{libraries}" );
120 is( $report->{installation}->{koha_id}, 1,     "UsageStatsID          is good" );
121 is( $report->{installation}->{name},   'NAME', "UsageStatsLibraryName is good" );
122 is( $report->{installation}->{url},     'URL', "UsageStatsLibraryUrl  is good" );
123 is( $report->{installation}->{type},   'TYPE', "UsageStatsLibraryType is good" );
124 is( $report->{installation}->{country}, 'COUNTRY', "UsageStatsCountry is good" );
125
126 #Test report->volumetry ---------------
127 #with original values
128 $report = C4::UsageStats->BuildReport();
129
130 isa_ok( $report,              'HASH', '$report is a HASH' );
131 isa_ok( $report->{volumetry}, 'HASH', '$report->{volumetry} is a HASH' );
132 is( scalar( keys %{$report->{volumetry}} ), 8, "There are 8 fields in $report->{volumetry}" );
133 is( $report->{volumetry}->{biblio},         0, "There is no biblio" );
134 is( $report->{volumetry}->{items},          0, "There is no items" );
135 is( $report->{volumetry}->{auth_header},    0, "There is no auth_header" );
136 is( $report->{volumetry}->{old_issues},     0, "There is no old_issues" );
137 is( $report->{volumetry}->{old_reserves},   0, "There is no old_reserves" );
138 is( $report->{volumetry}->{borrowers},      0, "There is no borrowers" );
139 is( $report->{volumetry}->{aqorders},       0, "There is no aqorders" );
140 is( $report->{volumetry}->{subscription},   0, "There is no subscription" );
141
142 #after adding objects
143 construct_objects_needed();
144
145 $report = C4::UsageStats->BuildReport();
146
147 isa_ok( $report,              'HASH', '$report is a HASH' );
148 isa_ok( $report->{volumetry}, 'HASH', '$report->{volumetry} is a HASH' );
149 is( scalar( keys %{$report->{volumetry}} ), 8, "There are 8 fields in $report->{volumetry}" );
150 is( $report->{volumetry}->{biblio},         3, "There are 3 biblio" );
151 is( $report->{volumetry}->{items},          3, "There are 3 items" );
152 is( $report->{volumetry}->{auth_header},    2, "There are 2 auth_header" );
153 is( $report->{volumetry}->{old_issues},     1, "There is  1 old_issues" );
154 is( $report->{volumetry}->{old_reserves},   1, "There is  1 old_reserves" );
155 is( $report->{volumetry}->{borrowers},      3, "There are 3 borrowers" );
156 is( $report->{volumetry}->{aqorders},       1, "There is  1 aqorders" );
157 is( $report->{volumetry}->{subscription},   1, "There is  1 subscription" );
158
159 #Test report->systempreferences -------
160 #mock to 0
161 mocking_systempreferences_to_a_set_value(0);
162
163 $report = C4::UsageStats->BuildReport();
164 isa_ok( $report,                      'HASH', '$report is a HASH' );
165 isa_ok( $report->{systempreferences}, 'HASH', '$report->{systempreferences} is a HASH' );
166 verif_systempreferences_values( $report, 0 );
167
168 #mock with values
169 mocking_systempreferences_to_a_set_value(1);
170
171 $report = C4::UsageStats->BuildReport();
172 isa_ok( $report,                      'HASH', '$report is a HASH' );
173 isa_ok( $report->{systempreferences}, 'HASH', '$report->{systempreferences} is a HASH' );
174 verif_systempreferences_values( $report, 1 );
175
176 #Test if unwanted syspref are not sent
177 is( $report->{systempreferences}->{useDischarge}, undef, 'useDischarge should not be shared');
178 is( $report->{systempreferences}->{OpacUserJS},   undef, 'OpacUserJS   should not be shared');
179
180 # ---------- Testing ReportToCommunity ----------
181
182 # ---------- Testing _count ---------------------
183 my $query = '
184   SELECT count(*)
185   FROM   borrowers
186   ';
187 my $count = $dbh->selectrow_array($query);
188
189 my $nb_fields = C4::UsageStats::_count('borrowers');
190 is( $nb_fields, $count, "_count return the good number of fields" );
191
192 #################################################
193 #             Subs
194 #################################################
195
196 # Adding :
197 # 3 borrowers
198 # 4 biblio
199 # 3 biblio items
200 # 3 items
201 # 2 auth_header
202 # 1 old_issues
203 # 1 old_reserves
204 # 1 subscription
205 # 1 aqorders
206 sub construct_objects_needed {
207
208     # ---------- 3 borrowers  ---------------------
209     my $surname1     = 'Borrower 1';
210     my $surname2     = 'Borrower 2';
211     my $surname3     = 'Borrower 3';
212     my $firstname1   = 'firstname 1';
213     my $firstname2   = 'firstname 2';
214     my $firstname3   = 'firstname 3';
215     my $cardnumber1  = 'test_card1';
216     my $cardnumber2  = 'test_card2';
217     my $cardnumber3  = 'test_card3';
218     my $categorycode = $builder->build({ source => 'Category' })->{categorycode};
219     my $branchcode = $builder->build({ source => 'Branch' })->{branchcode};
220
221     my $query = '
222     INSERT INTO borrowers
223       (surname, firstname, cardnumber, branchcode, categorycode)
224     VALUES (?,?,?,?,?)';
225     my $insert_sth = $dbh->prepare($query);
226     $insert_sth->execute( $surname1, $firstname1, $cardnumber1, $branchcode, $categorycode );
227     my $borrowernumber1 = $dbh->last_insert_id( undef, undef, 'borrowers', undef );
228     $insert_sth->execute( $surname2, $firstname2, $cardnumber2, $branchcode, $categorycode );
229     my $borrowernumber2 = $dbh->last_insert_id( undef, undef, 'borrowers', undef );
230     $insert_sth->execute( $surname3, $firstname3, $cardnumber3, $branchcode, $categorycode );
231     my $borrowernumber3 = $dbh->last_insert_id( undef, undef, 'borrowers', undef );
232
233     # ---------- 3 biblios -----------------------
234     my $title1  = 'Title 1';
235     my $title2  = 'Title 2';
236     my $title3  = 'Title 3';
237     my $author1 = 'Author 1';
238     my $author2 = 'Author 2';
239     my $author3 = 'Author 3';
240
241     $query = '
242     INSERT INTO biblio
243       (title, author)
244     VALUES (?,?)';
245     $insert_sth = $dbh->prepare($query);
246     $insert_sth->execute( $title1, $author1 );
247     my $biblionumber1 = $dbh->last_insert_id( undef, undef, 'biblio', undef );
248     $insert_sth->execute( $title2, undef );
249     my $biblionumber2 = $dbh->last_insert_id( undef, undef, 'biblio', undef );
250     $insert_sth->execute( $title3, $author3 );
251     my $biblionumber3 = $dbh->last_insert_id( undef, undef, 'biblio', undef );
252
253     # ---------- 3 biblio items  -------------------------
254     $query = '
255     INSERT INTO biblioitems
256       (biblionumber, itemtype)
257     VALUES (?,?)';
258     $insert_sth = $dbh->prepare($query);
259     $insert_sth->execute( $biblionumber1, 'Book' );
260     my $biblioitemnumber1 = $dbh->last_insert_id( undef, undef, 'biblioitems', undef );
261     $insert_sth->execute( $biblionumber2, 'Music' );
262     my $biblioitemnumber2 = $dbh->last_insert_id( undef, undef, 'biblioitems', undef );
263     $insert_sth->execute( $biblionumber3, 'Book' );
264     my $biblioitemnumber3 = $dbh->last_insert_id( undef, undef, 'biblioitems', undef );
265
266     # ---------- 3 items  -------------------------
267     my $barcode1 = '111111';
268     my $barcode2 = '222222';
269     my $barcode3 = '333333';
270
271     $query = '
272     INSERT INTO items
273       (biblionumber, biblioitemnumber, barcode, itype)
274     VALUES (?,?,?,?)';
275     $insert_sth = $dbh->prepare($query);
276     $insert_sth->execute( $biblionumber1, $biblioitemnumber1, $barcode1, 'Book' );
277     my $item_number1 = $dbh->last_insert_id( undef, undef, 'items', undef );
278     $insert_sth->execute( $biblionumber2, $biblioitemnumber2, $barcode2, 'Music' );
279     my $item_number2 = $dbh->last_insert_id( undef, undef, 'items', undef );
280     $insert_sth->execute( $biblionumber3, $biblioitemnumber3, $barcode3, 'Book' );
281     my $item_number3 = $dbh->last_insert_id( undef, undef, 'items', undef );
282
283     # ---------- Add 2 auth_header
284     $query = '
285     INSERT INTO auth_header
286       (authtypecode)
287     VALUES (?)';
288     $insert_sth = $dbh->prepare($query);
289     $insert_sth->execute('authtypecode1');
290     my $authid1 = $dbh->last_insert_id( undef, undef, 'auth_header', undef );
291     $insert_sth->execute('authtypecode2');
292     my $authid2 = $dbh->last_insert_id( undef, undef, 'auth_header', undef );
293
294     # ---------- Add 1 old_issues
295     $query = '
296     INSERT INTO old_issues
297       (borrowernumber, branchcode, itemnumber)
298     VALUES (?,?,?)';
299     $insert_sth = $dbh->prepare($query);
300     $insert_sth->execute( $borrowernumber1, $branchcode, $item_number1 );
301     my $issue_id1 = $dbh->last_insert_id( undef, undef, 'old_issues', undef );
302
303     # ---------- Add 1 old_reserves
304     AddReserve( $branchcode, $borrowernumber1, $biblionumber1, '', 1, undef, undef, '', 'Title', undef, undef );
305     my $biblio = Koha::Biblios->find( $biblionumber1 );
306     my $holds = $biblio->holds;
307     $holds->next->cancel if $holds->count;
308
309     # ---------- Add 1 aqbudgets
310     $query = '
311     INSERT INTO aqbudgets
312       (budget_amount)
313     VALUES (?)';
314     $insert_sth = $dbh->prepare($query);
315     $insert_sth->execute("20.0");
316     my $aqbudgets1 = $dbh->last_insert_id( undef, undef, 'aqbudgets', undef );
317
318     # ---------- Add 1 aqorders
319     $query = '
320     INSERT INTO aqorders
321       (budget_id, basketno, biblionumber, invoiceid, subscriptionid)
322     VALUES (?,?,?,?,?)';
323     $insert_sth = $dbh->prepare($query);
324     $insert_sth->execute( $aqbudgets1, undef, undef, undef, undef );
325     my $aqorders1 = $dbh->last_insert_id( undef, undef, 'aqorders', undef );
326
327     # --------- Add 1 subscription
328     $query = '
329     INSERT INTO subscription
330       (biblionumber)
331     VALUES (?)';
332     $insert_sth = $dbh->prepare($query);
333     $insert_sth->execute($biblionumber1);
334     my $subscription1 = $dbh->last_insert_id( undef, undef, 'subscription', undef );
335
336 }
337
338 #Change systempreferences values to $set_value
339 sub mocking_systempreferences_to_a_set_value {
340     my $set_value = shift;
341
342     foreach (
343         qw/
344         AcqCreateItem
345         AcqWarnOnDuplicateInvoice
346         AcqViewBaskets
347         BasketConfirmations
348         OrderPdfFormat
349         casAuthentication
350         casLogout
351         AllowPKIAuth
352         DebugLevel
353         delimiter
354         noItemTypeImages
355         virtualshelves
356         AutoLocation
357         IndependentBranches
358         SessionStorage
359         Persona
360         AuthDisplayHierarchy
361         AutoCreateAuthorities
362         BiblioAddsAuthorities
363         AuthorityMergeLimit
364         AuthorityMergeMode
365         UseAuthoritiesForTracings
366         CatalogModuleRelink
367         hide_marc
368         IntranetBiblioDefaultView
369         LabelMARCView
370         OpacSuppression
371         SeparateHoldings
372         UseControlNumber
373         advancedMARCeditor
374         DefaultClassificationSource
375         EasyAnalyticalRecords
376         autoBarcode
377         item-level_itypes
378         marcflavour
379         PrefillItem
380         z3950NormalizeAuthor
381         SpineLabelAutoPrint
382         SpineLabelShowPrintOnBibDetails
383         BlockReturnOfLostItems
384         BlockReturnOfWithdrawnItems
385         CalculateFinesOnReturn
386         AgeRestrictionOverride
387         AllFinesNeedOverride
388         AllowFineOverride
389         AllowItemsOnHoldCheckout
390         AllowItemsOnHoldCheckoutSCO
391         AllowNotForLoanOverride
392         AllowRenewalLimitOverride
393         AllowReturnToBranch
394         AllowTooManyOverride
395         AutomaticItemReturn
396         AutoRemoveOverduesRestrictions
397         CircControl
398         HomeOrHoldingBranch
399         HomeOrHoldingBranchReturn
400         InProcessingToShelvingCart
401         IssueLostItem
402         IssuingInProcess
403         ManInvInNoissuesCharge
404         OverduesBlockCirc
405         RenewalPeriodBase
406         RenewalSendNotice
407         RentalsInNoissuesCharge
408         ReturnBeforeExpiry
409         ReturnToShelvingCart
410         TransfersMaxDaysWarning
411         UseBranchTransferLimits
412         useDaysMode
413         UseTransportCostMatrix
414         UseCourseReserves
415         finesCalendar
416         FinesIncludeGracePeriod
417         finesMode
418         RefundLostOnReturnControl
419         WhenLostChargeReplacementFee
420         WhenLostForgiveFine
421         AllowHoldDateInFuture
422         AllowHoldPolicyOverride
423         AllowHoldsOnDamagedItems
424         AllowHoldsOnPatronsPossessions
425         AutoResumeSuspendedHolds
426         canreservefromotherbranches
427         decreaseLoanHighHolds
428         DisplayMultiPlaceHold
429         emailLibrarianWhenHoldIsPlaced
430         ExpireReservesMaxPickUpDelay
431         OPACAllowHoldDateInFuture
432         OPACAllowUserToChooseBranch
433         ReservesControlBranch
434         ReservesNeedReturns
435         SuspendHoldsIntranet
436         SuspendHoldsOpac
437         TransferWhenCancelAllWaitingHolds
438         AllowAllMessageDeletion
439         AllowOfflineCirculation
440         CircAutocompl
441         CircAutoPrintQuickSlip
442         DisplayClearScreenButton
443         FilterBeforeOverdueReport
444         FineNotifyAtCheckin
445         itemBarcodeFallbackSearch
446         itemBarcodeInputFilter
447         previousIssuesDefaultSortOrder
448         RecordLocalUseOnReturn
449         soundon
450         SpecifyDueDate
451         todaysIssuesDefaultSortOrder
452         UpdateTotalIssuesOnCirc
453         UseTablesortForCirc
454         WaitingNotifyAtCheckin
455         AllowSelfCheckReturns
456         AutoSelfCheckAllowed
457         FRBRizeEditions
458         OPACFRBRizeEditions
459         AmazonCoverImages
460         OPACAmazonCoverImages
461         Babeltheque
462         BakerTaylorEnabled
463         GoogleJackets
464         HTML5MediaEnabled
465         IDreamBooksReadometer
466         IDreamBooksResults
467         IDreamBooksReviews
468         LibraryThingForLibrariesEnabled
469         LocalCoverImages
470         OPACLocalCoverImages
471         NovelistSelectEnabled
472         XISBN
473         OpenLibraryCovers
474         OpenLibrarySearch
475         UseKohaPlugins
476         SyndeticsEnabled
477         TagsEnabled
478         CalendarFirstDayOfWeek
479         opaclanguagesdisplay
480         AuthoritiesLog
481         BorrowersLog
482         CataloguingLog
483         FinesLog
484         IssueLog
485         LetterLog
486         ReturnLog
487         SubscriptionLog
488         BiblioDefaultView
489         COinSinOPACResults
490         DisplayOPACiconsXSLT
491         hidelostitems
492         HighlightOwnItemsOnOPAC
493         OpacAddMastheadLibraryPulldown
494         OPACDisplay856uAsImage
495         OpacHighlightedWords
496         OpacKohaUrl
497         OpacMaintenance
498         OpacPublic
499         OpacSeparateHoldings
500         OPACShowCheckoutName
501         OpacShowFiltersPulldownMobile
502         OPACShowHoldQueueDetails
503         OpacShowLibrariesPulldownMobile
504         OpacShowRecentComments
505         OPACShowUnusedAuthorities
506         OpacStarRatings
507         opacthemes
508         OPACURLOpenInNewWindow
509         OpacAuthorities
510         opacbookbag
511         OpacBrowser
512         OpacBrowseResults
513         OpacCloud
514         OPACFinesTab
515         OpacHoldNotes
516         OpacItemLocation
517         OpacPasswordChange
518         OPACPatronDetails
519         OPACpatronimages
520         OPACPopupAuthorsSearch
521         OpacTopissue
522         opacuserlogin
523         QuoteOfTheDay
524         RequestOnOpac
525         reviewson
526         ShowReviewer
527         ShowReviewerPhoto
528         SocialNetworks
529         suggestion
530         AllowPurchaseSuggestionBranchChoice
531         OpacAllowPublicListCreation
532         OpacAllowSharingPrivateLists
533         OpacRenewalAllowed
534         OpacRenewalBranch
535         OPACViewOthersSuggestions
536         SearchMyLibraryFirst
537         singleBranchMode
538         AnonSuggestions
539         EnableOpacSearchHistory
540         OPACPrivacy
541         opacreadinghistory
542         TrackClicks
543         PatronSelfRegistration
544         OPACShelfBrowser
545         AutoEmailOpacUser
546         AutoEmailPrimaryAddress
547         autoMemberNum
548         BorrowerRenewalPeriodBase
549         checkdigit
550         EnableBorrowerFiles
551         EnhancedMessagingPreferences
552         ExtendedPatronAttributes
553         intranetreadinghistory
554         memberofinstitution
555         patronimages
556         TalkingTechItivaPhoneNotification
557         uppercasesurnames
558         IncludeSeeFromInSearches
559         OpacGroupResults
560         QueryAutoTruncate
561         QueryFuzzy
562         QueryStemming
563         QueryWeightFields
564         TraceCompleteSubfields
565         TraceSubjectSubdivisions
566         UseICU
567         UseQueryParser
568         defaultSortField
569         displayFacetCount
570         OPACdefaultSortField
571         OPACItemsResultsDisplay
572         expandedSearchOption
573         IntranetNumbersPreferPhrase
574         OPACNumbersPreferPhrase
575         opacSerialDefaultTab
576         RenewSerialAddsSuggestion
577         RoutingListAddReserves
578         RoutingSerials
579         SubscriptionHistory
580         Display856uAsImage
581         DisplayIconsXSLT
582         template
583         yuipath
584         HidePatronName
585         intranetbookbag
586         StaffDetailItemSelection
587         viewISBD
588         viewLabeledMARC
589         viewMARC
590         ILS-DI
591         OAI-PMH
592         version
593         AudioAlerts
594         /
595       ) {
596         t::lib::Mocks::mock_preference( $_, $set_value );
597     }
598 }
599
600 #Test if all systempreferences are at $value_to_test
601 sub verif_systempreferences_values {
602     my ( $report, $value_to_test ) = @_;
603
604     my @missings;
605     foreach my $key ( keys %{$report->{systempreferences}} ) {
606         if ( $report->{systempreferences}->{$key} ne $value_to_test ) {
607             warn $key;
608             push @missings, $key;
609         }
610     }
611     unless ( @missings ) {
612         ok(1, 'All prefs are present');
613     } else {
614         ok(0, 'Some prefs are missing: ' . Dumper(\@missings));
615     }
616 }
617
618 $schema->storage->txn_rollback;