From 8bb144980f6adc14d0e0b8235b1ee5d56e79fe76 Mon Sep 17 00:00:00 2001
From: plobbes <plobbes>
Date: Sat, 13 Jan 2007 17:19:35 +0000
Subject: [PATCH] - skip all tests if 'use Business::OnlinePayment::HTTPS'
 fails

---
 t/bop_https.t | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

diff --git a/t/bop_https.t b/t/bop_https.t
index 533e496..a67f695 100644
--- 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;
+}
-- 
2.11.0