add introspection info used in Business::OnlinePayment 3.01+

[Business-OnlinePayment-IPPay.git] / t / introspection.t

diff --git a/t/introspection.t b/t/introspection.t
new file mode 100644 (file)
index 0000000..38a76f1
--- /dev/null
+++ b/t/introspection.t
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+use Test::More;
+
+eval 'use Business::OnlinePayment 3.01;';
+if ( $@ ) {
+  plan skip_all => 'Business::OnlinePayment 3.01+ not available';
+} else {
+  plan tests => 1;
+}
+
+my($login, $password, @opts) = ('TESTMERCHANT', '',
+                                'default_Origin' => 'RECURRING' );
+
+my $tx = Business::OnlinePayment->new("IPPay", @opts);
+
+ok( $tx->info('CC_void_requires_card') == 1, 'CC_void_requires_card introspection' );