@ -767,13 +767,13 @@ subtest "LinkBibHeadingsToAuthorities record generation tests" => sub {
) ;
) ;
#Add test for this case using verbose
#Add test for this case using verbose
my ( $ num_headings_changed , $ results ) = LinkBibHeadingsToAuthorities ( $ linker , $ record , "" , undef , 1 ) ;
( $ num_headings_changed , $ results ) = LinkBibHeadingsToAuthorities ( $ linker , $ record , "" , undef , 1 ) ;
my $ details = $ results - > { details } ;
my $ details = $ results - > { details } ;
is ( $ num_headings_changed , 1 , 'We changed the one we passed' ) ;
is ( $ num_headings_changed , 1 , 'We changed the one we passed' ) ;
is ( $ results - > { details } - > [ 0 ] - > { status } , 'CREATED' , "We added an authority record for the heading using verbose" ) ;
is ( $ results - > { details } - > [ 0 ] - > { status } , 'CREATED' , "We added an authority record for the heading using verbose" ) ;
# Now we check the authority record itself
# Now we check the authority record itself
my $ authority = GetAuthority ( $ results - > { details } - > [ 0 ] - > { authid } ) ;
$ authority = GetAuthority ( $ results - > { details } - > [ 0 ] - > { authid } ) ;
is ( $ authority - > field ( '150' ) - > as_string ( ) ,
is ( $ authority - > field ( '150' ) - > as_string ( ) ,
"Beach city Weirdness Fiction Books 21st Century Fish Stew Pizza" ,
"Beach city Weirdness Fiction Books 21st Century Fish Stew Pizza" ,
@ -800,13 +800,13 @@ subtest "LinkBibHeadingsToAuthorities record generation tests" => sub {
"The generated record contains the correct subfields"
"The generated record contains the correct subfields"
) ;
) ;
# The same exe mple With verbose
# The same exa mple With verbose
( $ num_headings_changed , $ results ) = LinkBibHeadingsToAuthorities ( $ linker , $ record , "" , undef , 1 ) ;
( $ num_headings_changed , $ results ) = LinkBibHeadingsToAuthorities ( $ linker , $ record , "" , undef , 1 ) ;
is ( $ num_headings_changed , 1 , 'We changed the one we passed' ) ;
is ( $ num_headings_changed , 1 , 'We changed the one we passed' ) ;
is ( $ results - > { details } - > [ 0 ] - > { status } , 'CREATED' , "We added an authority record for the heading using verbose" ) ;
is ( $ results - > { details } - > [ 0 ] - > { status } , 'CREATED' , "We added an authority record for the heading using verbose" ) ;
# Now we check the authority record itself
# Now we check the authority record itself
my $ authority = GetAuthority ( $ results - > { details } - > [ 0 ] - > { authid } ) ;
$ authority = GetAuthority ( $ results - > { details } - > [ 0 ] - > { authid } ) ;
is ( $ authority - > field ( '100' ) - > as_string ( ) ,
is ( $ authority - > field ( '100' ) - > as_string ( ) ,
"Tolkien, J. R. R. (John Ronald Reuel), 1892-1973. Lord of the rings" ,
"Tolkien, J. R. R. (John Ronald Reuel), 1892-1973. Lord of the rings" ,
"The generated record contains the correct subfields"
"The generated record contains the correct subfields"