3 use Test::More tests => 2;
5 diag("Make sure we don't close xacts with fines");
10 use OpenILS::Utils::TestUtils;
11 my $script = OpenILS::Utils::TestUtils->new();
12 #our $apputils = "OpenILS::Application::AppUtils";
13 my $storage_ses = $script->session('open-ils.storage');
14 $script->authenticate({
16 password => 'demo123',
18 ok( $script->authtoken, 'Have an authtoken');
20 my $barcode = 'CONC4000054';
23 my $checkin_resp = $script->do_checkin_override({
24 barcode => $barcode});
26 my $circ_req = $storage_ses->request('open-ils.storage.direct.action.circulation.retrieve', $circ_id);
27 if (my $circ_resp = $circ_req->recv) {
28 if (my $circ = $circ_resp->content) {
31 'Circ with id = ' . $circ_id . ' is overdue with fines, so xact_finish isn\'t set'
34 fail('unable to retrieve circ');