-
- # 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; };
- is( $@, "", "fraud_detect ignores non-existant processors" );
-
- 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