$tx->test_transaction(1);
$tx->submit;
- is( $tx->is_success, $o{is_success}, $o{desc} . ": " . tx_info($tx) );
- is( $tx->result_code, $o{result_code}, "result_code(): RESULT" );
- like( $tx->order_number, qr/^\w{12}/, "order_number() / PNREF" );
+ is( $tx->is_success, $o{is_success}, "$o{desc}: " . tx_info($tx) );
+ is( $tx->result_code, $o{result_code}, "result_code(): RESULT" );
is( $tx->error_message, $o{error_message}, "error_message() / RESPMSG" );
is( $tx->authorization, $o{authorization}, "authorization() / AUTHCODE" );
is( $tx->avs_code, $o{avs_code}, "avs_code() / AVSADDR and AVSZIP" );
is( $tx->cvv2_code, $o{cvv2_code}, "cvv2_code() / CVV2MATCH" );
+
+ no warnings 'uninitialized';
+ like( $tx->order_number, qr/^\w{12}/, "order_number() / PNREF" );
}
sub tx_info {