Attachment #112643 for bug #8179

View | Details | Raw Unified | Return to bug 8179
Collapse All | Expand All





use Modern::Perl;

use Test::More tests => 2;

use t::lib::TestBuilder;



    $schema->storage->txn_rollback;
};

subtest 'budget ()' => sub {
    plan tests => 1;

    $schema->storage->txn_begin;

    my $budget = $builder->build_object({ class => 'Koha::Acquisition::Budgets' });
    my $fund = $builder->build_object({ class => 'Koha::Acquisition::Funds', value => { budget_period_id => $budget->budget_period_id } });

    is($budget->budget_period_id, $fund->budget->budget_period_id, 'Fund\'s budget retrieved correctly');

    $schema->storage->txn_rollback;
};





use Modern::Perl;

use Test::More tests => 13;
use Test::Exception;

use t::lib::TestBuilder;
use t::lib::Mocks;

    $schema->storage->txn_rollback;
};

subtest 'creator ()' => sub {
    plan tests => 1;

    $schema->storage->txn_begin;

    my $patron = $builder->build_object({ class => 'Koha::Patrons' });
    my $order = $builder->build_object({ class => 'Koha::Acquisition::Orders', value => { created_by => $patron->borrowernumber } });

    my $creator = $order->creator;

    is($creator->borrowernumber, $patron->borrowernumber, 'Patron is order creator');

    $schema->storage->txn_rollback;
};

subtest 'cancel() tests' => sub {

    plan tests => 52;

Lines 19-25 Link Here

(-)a/t/db_dependent/Koha/Item.t (-2 / +34 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 7;	22	use Test::More tests => 8;
23		23
24	use C4::Biblio;	24	use C4::Biblio;
25	use C4::Circulation;	25	use C4::Circulation;
Lines 27-32 use C4::Circulation; Link Here
27	use Koha::Items;	27	use Koha::Items;
28	use Koha::Database;	28	use Koha::Database;
29	use Koha::Old::Items;	29	use Koha::Old::Items;
		30	use Koha::AuthorisedValueCategories;
		31	use Koha::AuthorisedValues;
30		32
31	use List::MoreUtils qw(all);	33	use List::MoreUtils qw(all);
32		34
Lines 516-518 subtest 'Tests for itemtype' => sub { Link Here
516		518
517	$schema->storage->txn_rollback;	519	$schema->storage->txn_rollback;
518	};	520	};
519	-	521
		522	subtest '_fetch_authorised_values' => sub {
		523	plan tests => 1;
		524
		525	$schema->storage->txn_begin;
		526
		527	# Delete all Authorised Values of 'Countries' category
		528	Koha::AuthorisedValues->search({category => 'Countries'})->delete;
		529	Koha::AuthorisedValueCategories->search({category_name => 'Countries'})->delete;
		530
		531	# Create 'Countries' category and authorised value
		532	my $cat = $builder->build_object({ class => 'Koha::AuthorisedValueCategories'});
		533	my $country = $builder->build_object({ class => 'Koha::AuthorisedValues', value => { category => $cat->category_name } });
		534
		535	# Create a new biblio framework
		536	my $fw = $builder->build_object({ class => 'Koha::BiblioFrameworks' });
		537
		538	# Add a Marc subfield with kohafield setted to 'items.itemnote'
		539	$builder->build_object({class => 'Koha::MarcSubfieldStructures', value => {frameworkcode => $fw->frameworkcode, authorised_value => $cat->category_name, kohafield => 'items.itemnotes'}});
		540
		541	# Create biblio and item
		542	my $biblio = $builder->build_sample_biblio({frameworkcode => $fw->frameworkcode});
		543	my $item = $builder->build_sample_item({biblionumber => $biblio->biblionumber, itemnotes => $country->authorised_value});
		544
		545	# Fetch authorised values
		546	my $avs = $item->_fetch_authorised_values();
		547
		548	is($avs->{itemnotes}->{lib}, $country->lib, 'Fetched auhtorised value is ok');
		549
		550	$schema->storage->txn_rollback;
		551	}

Return to bug 8179

Lines 19-25 Link Here

(-)a/t/db_dependent/Koha/Acquisition/Fund.t (-1 / +14 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 1;	22	use Test::More tests => 2;
23		23
24	use t::lib::TestBuilder;	24	use t::lib::TestBuilder;
25		25
Lines 42-44 subtest 'to_api() tests' => sub { Link Here
42		42
43	$schema->storage->txn_rollback;	43	$schema->storage->txn_rollback;
44	};	44	};
		45
		46	subtest 'budget ()' => sub {
		47	plan tests => 1;
		48
		49	$schema->storage->txn_begin;
		50
		51	my $budget = $builder->build_object({ class => 'Koha::Acquisition::Budgets' });
		52	my $fund = $builder->build_object({ class => 'Koha::Acquisition::Funds', value => { budget_period_id => $budget->budget_period_id } });
		53
		54	is($budget->budget_period_id, $fund->budget->budget_period_id, 'Fund\'s budget retrieved correctly');
		55
		56	$schema->storage->txn_rollback;
		57	};

Lines 19-26 Link Here

(-)a/t/db_dependent/Koha/Acquisition/Order.t (-2 / +16 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 12;	22	use Test::More tests => 13;
23	use Test::Exception;
24		23
25	use t::lib::TestBuilder;	24	use t::lib::TestBuilder;
26	use t::lib::Mocks;	25	use t::lib::Mocks;
Lines 590-595 subtest 'filter_by_current & filter_by_cancelled' => sub { Link Here
590	$schema->storage->txn_rollback;	589	$schema->storage->txn_rollback;
591	};	590	};
592		591
		592	subtest 'creator ()' => sub {
		593	plan tests => 1;
		594
		595	$schema->storage->txn_begin;
		596
		597	my $patron = $builder->build_object({ class => 'Koha::Patrons' });
		598	my $order = $builder->build_object({ class => 'Koha::Acquisition::Orders', value => { created_by => $patron->borrowernumber } });
		599
		600	my $creator = $order->creator;
		601
		602	is($creator->borrowernumber, $patron->borrowernumber, 'Patron is order creator');
		603
		604	$schema->storage->txn_rollback;
		605	};
		606
593	subtest 'cancel() tests' => sub {	607	subtest 'cancel() tests' => sub {
594		608
595	plan tests => 52;	609	plan tests => 52;