diff options
| author | plobbes <plobbes> | 2007-03-10 20:59:08 +0000 |
|---|---|---|
| committer | plobbes <plobbes> | 2007-03-10 20:59:08 +0000 |
| commit | 719620af5cb7e12b2a790b2e4efb8378d65191b7 (patch) | |
| tree | 9f03ef80a87ca31c7c854d95ad92c04111090415 /t/credit_card.t | |
| parent | 128c95d4ce58f088e0ecab3ef6d0900aca10b816 (diff) | |
- avoid warnings for uninitialized values when using like()
Diffstat (limited to 't/credit_card.t')
| -rw-r--r-- | t/credit_card.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/credit_card.t b/t/credit_card.t index 108f859..75e298f 100644 --- a/t/credit_card.t +++ b/t/credit_card.t @@ -167,13 +167,15 @@ sub tx_check { $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 { |