1 package KohaTest::Acquisition;
2 use base qw( KohaTest );
14 sub testing_class { 'C4::Acquisition' };
17 sub methods : Test( 1 ) {
19 my @methods = qw( GetBasket
39 can_ok( $self->testing_class, @methods );
42 =head3 create_new_basket
44 creates a baseket by creating an order with no baseket number.
51 returns: baseket number, order number
57 sub create_new_basket {
60 $param{'authorizedby'} = $self->{'memberid'} unless exists $param{'authorizedby'};
61 $param{'invoice'} = 123 unless exists $param{'invoice'};
63 my $today = sprintf( '%04d-%02d-%02d',
64 localtime->year() + 1900,
68 # I actually think that this parameter is unused.
69 $param{'date'} = $today unless exists $param{'date'};
71 $self->add_biblios( add_items => 1 );
72 ok( scalar @{$self->{'biblios'}} > 0, 'we have added at least one biblio' );
74 my ( $basketno, $ordnum ) = NewOrder( undef, # $basketno,
75 $self->{'biblios'}[0], # $bibnum,
79 $self->{'booksellerid'}, # $booksellerid,
80 $param{'authorizedby'}, # $authorisedby,
82 $self->{'bookfundid'}, # $bookfund,
90 $param{'invoice'}, # $invoice,
93 undef, # $purchaseorder
95 ok( $basketno, "my basket number is $basketno" );
96 ok( $ordnum, "my order number is $ordnum" );
98 my $order = GetOrder( $ordnum );
99 is( $order->{'ordernumber'}, $ordnum, 'got the right order' )
100 or diag( Data::Dumper->Dump( [ $order ], [ 'order' ] ) );
102 is( $order->{'budgetdate'}, $today, "the budget date is $today" );
104 # XXX should I stuff these in $self?
105 return ( $basketno, $ordnum );
110 sub enable_independant_branches {
113 my $member = GetMember( 'borrowernumber' =>$self->{'memberid'} );
115 C4::Context::set_userenv( 0, # usernum
116 $self->{'memberid'}, # userid
118 undef, # userfirstname
120 $member->{'branchcode'}, # userbranch
123 undef, # emailaddress
124 undef, # branchprinter
127 # set a preference. There's surely a method for this, but I can't find it.
128 my $retval = C4::Context->dbh->do( q(update systempreferences set value = '1' where variable = 'IndependantBranches') );
129 ok( $retval, 'set the preference' );
131 ok( C4::Context->userenv, 'usernev' );
132 isnt( C4::Context->userenv->{flags}, 1, 'flag != 1' )
133 or diag( Data::Dumper->Dump( [ C4::Context->userenv ], [ 'userenv' ] ) );
135 is( C4::Context->userenv->{branch}, $member->{'branchcode'}, 'we have set the right branch in C4::Context: ' . $member->{'branchcode'} );
139 sub disable_independant_branches {
142 my $retval = C4::Context->dbh->do( q(update systempreferences set value = '0' where variable = 'IndependantBranches') );
143 ok( $retval, 'set the preference back' );