Revision 0ad87689
Von Jan Büren vor etwa 7 Jahren hinzugefügt
| t/datev/invoices.t | ||
|---|---|---|
| 1 | 1 |
use strict; |
| 2 | 2 |
use Test::More; |
| 3 |
use Test::Deep qw(cmp_bag); |
|
| 3 |
use Test::Deep qw(cmp_deeply cmp_bag);
|
|
| 4 | 4 |
|
| 5 | 5 |
use lib 't'; |
| 6 | 6 |
use utf8; |
| ... | ... | |
| 64 | 64 |
$datev1->generate_datev_data; |
| 65 | 65 |
|
| 66 | 66 |
my @data_datev = sort { $a->{umsatz} <=> $b->{umsatz} } @{ $datev1->generate_datev_lines() };
|
| 67 |
cmp_bag \@data_datev, [
|
|
| 67 |
cmp_deeply \@data_datev, [
|
|
| 68 | 68 |
{
|
| 69 | 69 |
'belegfeld1' => "\x{de} sales \x{a5}& inv\x{f6}ice",
|
| 70 | 70 |
'buchungstext' => 'Testcustomer', |
| ... | ... | |
| 108 | 108 |
|
| 109 | 109 |
$datev1->use_pk(1); |
| 110 | 110 |
$datev1->generate_datev_data; |
| 111 |
# TODO for cmp_deeply we need to sort the incoming data structure (see below) |
|
| 111 | 112 |
cmp_bag $datev1->generate_datev_lines, [ |
| 112 | 113 |
{
|
| 113 | 114 |
'belegfeld1' => "\x{de} sales \x{a5}& inv\x{f6}ice",
|
| ... | ... | |
| 172 | 173 |
my @data_csv = splice @{ $datev_ref }, 2, 5;
|
| 173 | 174 |
@data_csv = sort { $a->[0] cmp $b->[0] } @data_csv;
|
| 174 | 175 |
|
| 175 |
cmp_bag($data_csv[1], [ 535, 'S', 'EUR', '', '', '', '1400', '8300', '', '0101', "\x{de} sales \x{a5}& i",
|
|
| 176 |
cmp_deeply($data_csv[1], [ 535, 'S', 'EUR', '', '', '', '1400', '8300', '', '0101', "\x{de} sales \x{a5}& i",
|
|
| 176 | 177 |
'', '', '', '', '', '', '', '', '', '', '', |
| 177 | 178 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 178 |
'', 'Crowd-Fu', 'Kostenst', '', '', '', '', '', '', '', '',
|
|
| 179 |
'', 'Kostenst', 'Crowd-Fu', '', '', '', '', '', '', '', '',
|
|
| 179 | 180 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 180 | 181 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 181 | 182 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| ... | ... | |
| 184 | 185 |
'', '', '', '', '' ] |
| 185 | 186 |
); |
| 186 | 187 |
|
| 187 |
cmp_bag($data_csv[0], [ '249,9', 'S', 'EUR', '', '', '', '1400', '8400', '', '0101', "\x{de} sales \x{a5}& i",
|
|
| 188 |
cmp_deeply($data_csv[0], [ '249,9', 'S', 'EUR', '', '', '', '1400', '8400', '', '0101', "\x{de} sales \x{a5}& i",
|
|
| 188 | 189 |
'', '', '', '', '', '', '', '', '', '', '', |
| 189 | 190 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 190 |
'', 'Crowd-Fu', 'Kostenst', '', '', '', '', '', '', '', '',
|
|
| 191 |
'', 'Kostenst', 'Crowd-Fu', '', '', '', '', '', '', '', '',
|
|
| 191 | 192 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 192 | 193 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 193 | 194 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| ... | ... | |
| 195 | 196 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 196 | 197 |
'', '', '', '', '' ] |
| 197 | 198 |
); |
| 198 |
cmp_bag($data_csv[2], [ '784,9', 'S', 'EUR', '', '', '', '1200', '1400', '', '0501', "\x{de} sales \x{a5}& i",
|
|
| 199 |
cmp_deeply($data_csv[2], [ '784,9', 'S', 'EUR', '', '', '', '1200', '1400', '', '0501', "\x{de} sales \x{a5}& i",
|
|
| 199 | 200 |
'', '', '', '', '', '', '', '', '', '', '', |
| 200 | 201 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 201 |
'', 'Crowd-Fu', 'Kostenst', '', '', '', '', '', '', '', '',
|
|
| 202 |
'', 'Kostenst', 'Crowd-Fu', '', '', '', '', '', '', '', '',
|
|
| 202 | 203 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 203 | 204 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| 204 | 205 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
| ... | ... | |
| 254 | 255 |
); |
| 255 | 256 |
|
| 256 | 257 |
$datev1->generate_datev_data; |
| 257 |
cmp_bag $datev1->generate_datev_lines, [
|
|
| 258 |
cmp_deeply $datev1->generate_datev_lines, [
|
|
| 258 | 259 |
{
|
| 259 | 260 |
'belegfeld1' => 'ap1', |
| 260 | 261 |
'buchungstext' => 'Testvendor', |
| ... | ... | |
| 282 | 283 |
], "trans_id datev check purchase_invoice ok"; |
| 283 | 284 |
$datev1->use_pk(1); |
| 284 | 285 |
$datev1->generate_datev_data; |
| 285 |
cmp_bag $datev1->generate_datev_lines, [
|
|
| 286 |
cmp_deeply $datev1->generate_datev_lines, [
|
|
| 286 | 287 |
{
|
| 287 | 288 |
'belegfeld1' => 'ap1', |
| 288 | 289 |
'buchungstext' => 'Testvendor', |
| ... | ... | |
| 326 | 327 |
|
| 327 | 328 |
$::form->{gldatefrom} = DateTime->new(year => 2017, month => 5, day => 1)->to_kivitendo;
|
| 328 | 329 |
$datev->generate_datev_data(from_to => $datev->fromto); |
| 329 |
cmp_bag $datev->generate_datev_lines, [], "no bookings for January made after May 1st: ok";
|
|
| 330 |
cmp_deeply $datev->generate_datev_lines, [], "no bookings for January made after May 1st: ok";
|
|
| 330 | 331 |
|
| 331 | 332 |
done_testing(); |
| 332 | 333 |
# clear_up(); |
Auch abrufbar als: Unified diff
DATEV: Tests strikter gemacht s/cmp_bag/cmp_deeply/gc