|
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 |
- |
|
|