Revision 65063570
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| t/workflow/delivery_order_reclamation.t | ||
|---|---|---|
| 214 | 214 |
my $purchase_reclamation_tmp = clone($purchase_reclamation); |
| 215 | 215 |
# clean different values |
| 216 | 216 |
foreach (qw( |
| 217 |
customer_id vendor_id |
|
| 217 |
record_type customer_id vendor_id
|
|
| 218 | 218 |
id record_number |
| 219 | 219 |
salesman_id |
| 220 | 220 |
transaction_description |
| ... | ... | |
| 277 | 277 |
|
| 278 | 278 |
|
| 279 | 279 |
## converted should be nearly the same |
| 280 |
my @different_record_values = qw( |
|
| 281 |
id employee_id itime mtime reqdate |
|
| 282 |
order_type ordnumber oreqnumber |
|
| 283 |
amount exchangerate netamount |
|
| 284 |
order_type record_type |
|
| 285 |
cp_id contact_id |
|
| 286 |
cusordnumber cv_record_number |
|
| 287 |
donumber record_number |
|
| 288 |
); |
|
| 289 |
my @different_record_item_values = qw( |
|
| 290 |
id delivery_order_id reclamation_id itime mtime |
|
| 291 |
cusordnumber marge_price_factor ordnumber transdate |
|
| 292 |
description reason_description_ext reason_description_int reason_id |
|
| 293 |
); |
|
| 294 |
|
|
| 280 | 295 |
# sales |
| 281 | 296 |
pairwise {
|
| 282 | 297 |
test_deeply($a->strip->as_tree, $b->strip->as_tree, |
| 283 | 298 |
"sales_delivery_order_items to sales_reclamation_items", |
| 284 |
qw( |
|
| 285 |
id delivery_order_id reclamation_id itime mtime |
|
| 286 |
cusordnumber marge_price_factor ordnumber transdate |
|
| 287 |
description reason_description_ext reason_description_int reason_id |
|
| 288 |
)); |
|
| 299 |
@different_record_item_values |
|
| 300 |
); |
|
| 289 | 301 |
} @sales_delivery_order_items, @converted_sales_reclamation_items; |
| 290 | 302 |
test_deeply($sales_delivery_order->strip->as_tree, $converted_sales_reclamation->strip->as_tree, |
| 291 | 303 |
"sales_delivery_order to sales_reclamation", |
| 292 |
qw( |
|
| 293 |
id employee_id itime mtime reqdate |
|
| 294 |
order_type ordnumber oreqnumber |
|
| 295 |
amount exchangerate netamount |
|
| 296 |
cp_id contact_id |
|
| 297 |
cusordnumber cv_record_number |
|
| 298 |
donumber record_number |
|
| 299 |
)); |
|
| 304 |
@different_record_values |
|
| 305 |
); |
|
| 300 | 306 |
|
| 301 | 307 |
pairwise {
|
| 302 | 308 |
test_deeply($a->strip->as_tree, $b->strip->as_tree, |
| 303 | 309 |
"sales_reclamation_items to sales_delivery_order_items", |
| 304 |
qw( |
|
| 305 |
id delivery_order_id reclamation_id itime mtime |
|
| 306 |
cusordnumber marge_price_factor ordnumber transdate |
|
| 307 |
description reason_description_ext reason_description_int reason_id |
|
| 308 |
)); |
|
| 310 |
@different_record_item_values |
|
| 311 |
); |
|
| 309 | 312 |
} @sales_reclamation_items, @converted_sales_delivery_order_items; |
| 310 | 313 |
test_deeply($sales_reclamation->strip->as_tree, $converted_sales_delivery_order->strip->as_tree, |
| 311 | 314 |
"sales_reclamation to sales_delivery_order", |
| 312 |
qw( |
|
| 313 |
id employee_id itime mtime delivered reqdate |
|
| 314 |
order_type ordnumber oreqnumber |
|
| 315 |
amount exchangerate netamount |
|
| 316 |
cp_id contact_id |
|
| 317 |
cusordnumber cv_record_number |
|
| 318 |
donumber record_number |
|
| 319 |
)); |
|
| 315 |
@different_record_values |
|
| 316 |
); |
|
| 320 | 317 |
|
| 321 | 318 |
|
| 322 | 319 |
# purchase |
| 323 | 320 |
pairwise {
|
| 324 | 321 |
test_deeply($a->strip->as_tree, $b->strip->as_tree, |
| 325 | 322 |
"purchase_delivery_order_items to purchase_reclamation_items", |
| 326 |
qw( |
|
| 327 |
id delivery_order_id reclamation_id itime mtime |
|
| 328 |
cusordnumber marge_price_factor ordnumber transdate |
|
| 329 |
description reason_description_ext reason_description_int reason_id |
|
| 330 |
)); |
|
| 323 |
@different_record_item_values |
|
| 324 |
); |
|
| 331 | 325 |
} @purchase_delivery_order_items, @converted_purchase_reclamation_items; |
| 332 | 326 |
test_deeply($purchase_delivery_order->strip->as_tree, $converted_purchase_reclamation->strip->as_tree, |
| 333 | 327 |
"purchase_delivery_order to purchase_reclamation", |
| 334 |
qw( |
|
| 335 |
id employee_id itime mtime reqdate |
|
| 336 |
order_type ordnumber oreqnumber |
|
| 337 |
amount exchangerate netamount |
|
| 338 |
cp_id contact_id |
|
| 339 |
cusordnumber cv_record_number |
|
| 340 |
donumber record_number |
|
| 341 |
)); |
|
| 328 |
@different_record_values |
|
| 329 |
); |
|
| 342 | 330 |
|
| 343 | 331 |
pairwise {
|
| 344 | 332 |
test_deeply($a->strip->as_tree, $b->strip->as_tree, |
| 345 | 333 |
"purchase_reclamation_items to purchase_delivery_order_items", |
| 346 |
qw( |
|
| 347 |
id delivery_order_id reclamation_id itime mtime |
|
| 348 |
cusordnumber marge_price_factor ordnumber transdate |
|
| 349 |
description reason_description_ext reason_description_int reason_id |
|
| 350 |
)); |
|
| 334 |
@different_record_item_values |
|
| 335 |
); |
|
| 351 | 336 |
} @purchase_reclamation_items, @converted_purchase_delivery_order_items; |
| 352 | 337 |
test_deeply($purchase_reclamation->strip->as_tree, $converted_purchase_delivery_order->strip->as_tree, |
| 353 | 338 |
"purchase_reclamation to purchase_delivery_order", |
| 354 |
qw( |
|
| 355 |
id employee_id itime mtime delivered reqdate |
|
| 356 |
order_type ordnumber oreqnumber |
|
| 357 |
amount exchangerate netamount |
|
| 358 |
cp_id contact_id |
|
| 359 |
cusordnumber cv_record_number |
|
| 360 |
donumber record_number |
|
| 361 |
)); |
|
| 339 |
@different_record_values |
|
| 340 |
); |
|
| 362 | 341 |
|
| 363 | 342 |
|
| 364 | 343 |
|
Auch abrufbar als: Unified diff
t/workflow: Tests für Record-Type angepasst