Lines 8-14
use Test::More;
Link Here
|
8 |
|
8 |
|
9 |
use C4::Acquisition; |
9 |
use C4::Acquisition; |
10 |
|
10 |
|
11 |
=head3 no_orders |
11 |
=head1 no_orders |
12 |
|
12 |
|
13 |
at first, there should be no orders for our bookseller. |
13 |
at first, there should be no orders for our bookseller. |
14 |
|
14 |
|
Lines 25-31
sub no_orders : Test( 1 ) {
Link Here
|
25 |
or diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) ); |
25 |
or diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) ); |
26 |
} |
26 |
} |
27 |
|
27 |
|
28 |
=head3 new_order |
28 |
=head1 new_order |
29 |
|
29 |
|
30 |
we make an order, then see if it shows up in the pending orders |
30 |
we make an order, then see if it shows up in the pending orders |
31 |
|
31 |
|
Lines 82-88
sub one_new_order : Test( 49 ) {
Link Here
|
82 |
for my $field ( @expectedfields ) { |
82 |
for my $field ( @expectedfields ) { |
83 |
ok( exists( $firstorder->{ $field } ), "This order has a $field field" ); |
83 |
ok( exists( $firstorder->{ $field } ), "This order has a $field field" ); |
84 |
} |
84 |
} |
85 |
|
85 |
|
86 |
} |
86 |
} |
87 |
|
87 |
|
88 |
1; |
88 |
1; |
89 |
- |
|
|