-
- # fraud detection failure modes
- my $obj = $package->new("MOCK3");
- my $bogus = "__BOGUS_PROCESSOR";
- my $valid = "preCharge";
-
- is( $obj->fraud_detect($bogus), $bogus, "fraud_detect set to '$bogus'" );
- eval { $obj->submit; };
- like( $@, qr/^Unable to locate fraud_detection /,
- "fraud_detect with unknown processor croaks" );
-
- is( $obj->fraud_detect($valid), $valid, "fraud_detect set to '$valid'" );
- eval { $obj->submit; };
- like( $@, qr/^missing required /, "fraud_detect($valid) missing fields" );
-
- # XXX: more test cases for preCharge needed