projects
/
Business-OnlinePayment.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d5e830c
)
- skip all tests if 'use Business::OnlinePayment::HTTPS' fails
author
plobbes
<plobbes>
Sat, 13 Jan 2007 17:19:35 +0000
(17:19 +0000)
committer
plobbes
<plobbes>
Sat, 13 Jan 2007 17:19:35 +0000
(17:19 +0000)
t/bop_https.t
patch
|
blob
|
history
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;
+}