-my @sorted = sort { $a->[0] cmp $b->[0] } @{ $lines_aref };
-cmp_deeply $sorted[0], [ '1963,5', 'S', 'EUR', '', '', '',
- '1400', '8400', '', '1907', 'meine muh',
- '', '', 'Test customer', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', "K\x{e4}stchen",
- '299', '', $ustid, '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '1', '',
- '', '', '', '', '',
- ];
-cmp_deeply $sorted[1], [ '535', 'S', 'EUR', '', '', '',
- '1400', '8300', '', '1907','meine muh',
- '', '', 'Test customer', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', "K\x{e4}stchen",
- '299', '', $ustid, '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '', '',
- '', '', '', '', '', '', '', '1', '',
- '', '', '', '', '',
- ];
+
+note('testing invoice without deliverydate');
+my @sorted = sort { $a->[0] cmp $b->[0] } @{ $lines_aref }; # sort by string-comparison of amount
+cmp_deeply $sorted[0],
+ [ '1963,5', 'S', 'EUR', '', '', '',
+ '1400', '8400', '', '1907', 'meine muh',
+ '', '', 'Test customer', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', "K\x{e4}stchen",
+ '299', '', $ustid, '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '1', '',
+ '', '', '', '', '',
+ ],
+ 'invoice without deliverydate 19% tax export ok';
+cmp_deeply $sorted[2],
+ [ '535', 'S', 'EUR', '', '', '',
+ '1400', '8300', '', '1907','meine muh',
+ '', '', 'Test customer', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', "K\x{e4}stchen",
+ '299', '', $ustid, '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '1', '',
+ '', '', '', '', '',
+ ],
+ 'invoice without deliverydate 16% tax export ok';
+cmp_deeply $sorted[1],
+ [ '2498,5', 'S', 'EUR', '', '', '',
+ '1200', '1400', '', '2907','meine muh',
+ '', '', 'Test customer', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', "K\x{e4}stchen",
+ '299', '', $ustid, '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '1', '',
+ '', '', '', '', '',
+ ],
+ 'invoice without deliverydate payment export ok';
+