- switch to using Test::More

[Business-OnlinePayment-PayflowPro.git] / t / load.t

diff --git a/t/load.t b/t/load.t
index d2a7f26..a5fed5e 100644 (file)
--- a/t/load.t
+++ b/t/load.t
@@ -1,5 +1,7 @@
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use Business::OnlinePayment::PayflowPro;
-$loaded = 1;
-print "ok 1\n";
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 1;
+
+use_ok("Business::OnlinePayment::PayflowPro");