- 

#

# WARNING!!!!!

# THIS FILE SHOULD NOT BE A PART OF KOHA, AND IF YOU WON'T TEST BUG 23571 YOU SHOULD NOT USE IT

# THIS FILE IS CREATED TO FILL DATABASE WITH USERS, BIBLIOS, ITEMS AND ISSUES

# YOUR DATABASE MAY END CORRUPTED

# PLEASE USE IT ON TEST / DEVELOPMENT DATABASE

#

use Modern::Perl;

use Test::More tests => 1;

use t::lib::TestBuilder;

use t::lib::Mocks;

use Koha::Database;

use C4::Circulation;

#use Data::Printer colored => 1;

subtest "create 5000 patrons, 5000 biblios, 10000 items and 10000 issues" => sub {

    plan tests => 1;

    ok(1, 'Everything is wondeful!');

    my $me = 'parent';

    if(my $pid = fork) {

    } elsif (defined $pid) {

        $me = 'child';

    } else {

        # fork failed, so exit immediately

        # fork failed, so exit immediately

        warn "fork failed while attempting to run offline_circ/process_koc.pl as a background job";

        exit 0;

    }

    my $builder = t::lib::TestBuilder->new;

    my $library = $builder->build( { source => 'Branch' } );

    t::lib::Mocks::mock_userenv({ branchcode => $library->{branchcode} });

    my $count = 2500;

    while($count-- >= 0) {

        warn "\n$me: $count loops to go, ".($count > 1250?"grab a cup of tea":"refill tea")."\n";

        my $patron = $builder->build({ source => 'Borrower' });

        #p($patron);

        my $biblio = $builder->build_sample_biblio;

        my $item1   = $builder->build_sample_item({

            biblionumber => $biblio->biblionumber,

        });

        my $item2   = $builder->build_sample_item({

            biblionumber => $biblio->biblionumber,

        });

        C4::Circulation::AddIssue( $patron, $item1->barcode );

        C4::Circulation::AddIssue( $patron, $item2->barcode );

    }

}