X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=t%2Fintrospection.t;fp=t%2Fintrospection.t;h=38a76f1f49f1d7def045ec59b23c4c17a776bae2;hb=5c008be3b9bb7eb5c7423cf174399c57a19ee707;hp=0000000000000000000000000000000000000000;hpb=5b03d96b42ff9aa46bda1ad21dd674c2713ace83;p=Business-OnlinePayment-IPPay.git

diff --git a/t/introspection.t b/t/introspection.t
new file mode 100644
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' );