}

}

our $schema = Koha::Database->new->schema;

our $schema = Koha::Database->new->schema;

our $builder;

our $builder;

subtest 'Start with some trivial tests' => sub {

subtest 'Start with some trivial tests' => sub {

    plan tests => 7;

    plan tests => 7;

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

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

    isnt( $builder, undef, 'We got a builder' );

    isnt( $builder, undef, 'We got a builder' );

    warning_like { $builder->build( $param ) }

    warning_like { $builder->build( $param ) }

        qr/Violation of unique constraint/,

        qr/Violation of unique constraint/,

        'Catch warn on adding existing record';

        'Catch warn on adding existing record';

};

};

subtest 'Build all sources' => sub {

subtest 'Build all sources' => sub {

    plan tests => 1;

    plan tests => 1;

    my @sources = $builder->schema->sources;

    my @sources = $builder->schema->sources;

    my @source_in_failure;

    my @source_in_failure;

    for my $source ( @sources ) {

    for my $source ( @sources ) {

        diag( "The following sources have not been generated correctly: " .

        diag( "The following sources have not been generated correctly: " .

        join ', ', @source_in_failure );

        join ', ', @source_in_failure );

    }

    }

};

};

subtest 'Test length of some generated fields' => sub {

subtest 'Test length of some generated fields' => sub {

    plan tests => 3;

    plan tests => 3;

    # Test the length of a returned character field

    # Test the length of a returned character field

    my $bookseller = $builder->build({ source  => 'Aqbookseller' });

    my $bookseller = $builder->build({ source  => 'Aqbookseller' });

    my $max = $schema->source('Aqbookseller')->column_info('phone')->{size};

    my $max = $schema->source('Aqbookseller')->column_info('phone')->{size};

    my $item = $builder->build({ source => 'Item' });

    my $item = $builder->build({ source => 'Item' });

    is( $item->{replacementprice}, sprintf("%.2f", $item->{replacementprice}), "The number of decimals for floats should not be more than 2" );

    is( $item->{replacementprice}, sprintf("%.2f", $item->{replacementprice}), "The number of decimals for floats should not be more than 2" );

};

};

subtest 'Test FKs in overduerules_transport_type' => sub {

subtest 'Test FKs in overduerules_transport_type' => sub {

    plan tests => 5;

    plan tests => 5;

    my $my_overduerules_transport_type = {

    my $my_overduerules_transport_type = {

        message_transport_type => {

        message_transport_type => {

            message_transport_type => 'my msg_t_t',

            message_transport_type => 'my msg_t_t',

        undef,

        undef,

        'build generates values if they are not given'

        'build generates values if they are not given'

    );

    );

};

};

subtest 'Tests with composite FK in userpermission' => sub {

subtest 'Tests with composite FK in userpermission' => sub {

    plan tests => 9;

    plan tests => 9;

    my $my_user_permission = default_userpermission();

    my $my_user_permission = default_userpermission();

    my $user_permission = $builder->build({

    my $user_permission = $builder->build({

        source => 'UserPermission',

        source => 'UserPermission',

        $my_user_permission->{code}->{description},

        $my_user_permission->{code}->{description},

        'build stored description correctly'

        'build stored description correctly'

    );

    );

};

};

sub default_userpermission {

sub default_userpermission {

subtest 'Test build with NULL values' => sub {

subtest 'Test build with NULL values' => sub {

    plan tests => 3;

    plan tests => 3;

    # PK should not be null

    # PK should not be null

    my $params = { source => 'Branch', value => { branchcode => undef }};

    my $params = { source => 'Branch', value => { branchcode => undef }};

    warning_like { $builder->build( $params ) }

    warning_like { $builder->build( $params ) }

    $info = $schema->source( 'Reserve' )->column_info( 'itemnumber' );

    $info = $schema->source( 'Reserve' )->column_info( 'itemnumber' );

    is( $reserve && $info->{is_nullable} && $info->{is_foreign_key} &&

    is( $reserve && $info->{is_nullable} && $info->{is_foreign_key} &&

        !defined( $reserve->{itemnumber} ), 1, 'Nullable FK' );

        !defined( $reserve->{itemnumber} ), 1, 'Nullable FK' );

};

};

subtest 'Tests for delete method' => sub {

subtest 'Tests for delete method' => sub {

    plan tests => 12;

    plan tests => 12;

    # Test delete with single and multiple records

    # Test delete with single and multiple records

    my $basket1 = $builder->build({ source => 'Aqbasket' });

    my $basket1 = $builder->build({ source => 'Aqbasket' });

    my $basket2 = $builder->build({ source => 'Aqbasket' });

    my $basket2 = $builder->build({ source => 'Aqbasket' });

             code       => undef };

             code       => undef };

    is( $builder->delete({ source => 'Permission', records => $val }), 0,

    is( $builder->delete({ source => 'Permission', records => $val }), 0,

        'delete returns zero for an undef search with a composite PK' );

        'delete returns zero for an undef search with a composite PK' );

subtest 'Auto-increment values tests' => sub {

subtest 'Auto-increment values tests' => sub {

    plan tests => 3;

    plan tests => 3;

    # Pick a table with AI PK

    # Pick a table with AI PK

    my $source  = 'Biblio'; # table

    my $source  = 'Biblio'; # table

    my $column  = 'biblionumber'; # ai column

    my $column  = 'biblionumber'; # ai column

            value  => { biblionumber => 123 },

            value  => { biblionumber => 123 },

        }) } qr/^Value not allowed for auto_incr/,

        }) } qr/^Value not allowed for auto_incr/,

        'Build should not overwrite an auto_incr column';

        'Build should not overwrite an auto_incr column';

};

};

subtest 'Date handling' => sub {

subtest 'Date handling' => sub {

    plan tests => 2;

    plan tests => 2;

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

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

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

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

    is( length( $patron->{updated_on} ),  19, 'A timestamp column value should be YYYY-MM-DD HH:MM:SS' );

    is( length( $patron->{updated_on} ),  19, 'A timestamp column value should be YYYY-MM-DD HH:MM:SS' );

    is( length( $patron->{dateofbirth} ), 10, 'A date column value should be YYYY-MM-DD' );

    is( length( $patron->{dateofbirth} ), 10, 'A date column value should be YYYY-MM-DD' );

};

};

subtest 'Default values' => sub {

subtest 'Default values' => sub {

    plan tests => 3;

    plan tests => 3;

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

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

    my $item = $builder->build( { source => 'Item' } );

    my $item = $builder->build( { source => 'Item' } );

    is( $item->{more_subfields_xml}, undef, 'This xml field should be undef' );

    is( $item->{more_subfields_xml}, undef, 'This xml field should be undef' );

        $patron = $builder->build_object({ class => 'Koha::Patrons', value => {categorycode => $patron_category_X->categorycode} });

        $patron = $builder->build_object({ class => 'Koha::Patrons', value => {categorycode => $patron_category_X->categorycode} });

        is( $patron->category->category_type, 'X', );

        is( $patron->category->category_type, 'X', );

    };

    };

};

};

subtest 'build_object() tests' => sub {

subtest 'build_object() tests' => sub {

    plan tests => 5;

    plan tests => 5;

    $builder = t::lib::TestBuilder->new();

    $builder = t::lib::TestBuilder->new();

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

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

                { class => 'Koha::Patrons', categorycode => 'foobar' } );

                { class => 'Koha::Patrons', categorycode => 'foobar' } );

        } qr{Unknown parameter\(s\): categorycode}, "Unknown parameter detected";

        } qr{Unknown parameter\(s\): categorycode}, "Unknown parameter detected";

    };

    };

};

};

subtest '->build parameter' => sub {

subtest '->build parameter' => sub {

    plan tests => 4;

    plan tests => 4;

    # Test to make sure build() warns user of unknown parameters.

    # Test to make sure build() warns user of unknown parameters.

    warnings_are {

    warnings_are {

        $builder->build({

        $builder->build({

        $builder->build(

        $builder->build(

            { source => 'Borrower', categorycode => 'foobar' } );

            { source => 'Borrower', categorycode => 'foobar' } );

    } qr{Unknown parameter\(s\): categorycode}, "Unkown parameter detected";

    } qr{Unknown parameter\(s\): categorycode}, "Unkown parameter detected";

subtest 'build_sample_biblio() tests' => sub {

subtest 'build_sample_biblio() tests' => sub {