- skip all tests if 'use Business::OnlinePayment::HTTPS' fails

diff --git a/t/bop_https.t b/t/bop_https.t
index 533e496..a67f695 100644 (file)
--- a/t/bop_https.t
+++ b/t/bop_https.t
@@ -1,9 +1,21 @@
-# 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
+if ($@) {
+    plan( skip_all => "$package: $@\n" );
+}
+else {
+    plan( tests => 1 );
+}
+
+{
+    can_ok( $package, qw(https_get https_post) );
+    my $obj;
+}