X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=t%2Fbop_https.t;h=caecf4041cd968bff50c4c7ea334c1b51874b0e9;hb=a2a75e9852ea33b7c79bc33ee76be83f82caf637;hp=533e49667747a4a8727d0bd8590b0ae5d6fffce4;hpb=880dfb1acc5767ef66d62f07936c6a369b70742f;p=Business-OnlinePayment.git

diff --git a/t/bop_https.t b/t/bop_https.t
index 533e496..caecf40 100644
--- a/t/bop_https.t
+++ b/t/bop_https.t
@@ -1,9 +1,13 @@
-# test 1
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
+#!/usr/bin/perl
 
-use Business::OnlinePayment::HTTPS;
-$loaded = 1;
-print "ok 1\n";
+use strict;
+use warnings;
+use Test::More;
 
+my $package = "Business::OnlinePayment::HTTPS";
+eval "use $package;";
 
+# HTTPS support is optional
+plan( $@ ? ( skip_all => "$package: $@\n" ) : ( tests => 1 ) );
+
+can_ok( $package, qw(https_get https_post) );