From b526887fd57cb8da5d3d666a25d6517357d40188 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Mon, 2 Mar 2009 23:50:16 +0000
Subject:

---
 t/Dummy.t | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 t/Dummy.t

(limited to 't')

diff --git a/t/Dummy.t b/t/Dummy.t
new file mode 100644
index 0000000..ede60df
--- /dev/null
+++ b/t/Dummy.t
@@ -0,0 +1,28 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl eWay.t'
+
+use Test;
+BEGIN { plan tests => 6 };
+use Business::OnlineThirdPartyPayment::Dummy;
+
+# a test transaction
+my ($tx, $txnum, $res);
+ok($tx = new Business::OnlineThirdPartyPayment("Dummy"));
+ok(
+    $tx->content(
+        type           => 'CC',
+        login          => '87654321',
+        action         => 'Authorization Only',
+        description    => 'Business::OnlineThirdPartyPayment test',
+        amount         => '49.95',
+        invoice_number => '100100',
+        name           => 'Tofu Beast',
+        card_number    => '4646464646464646',
+        expiration     => '11/08',
+    )
+);
+ok($tx->test_transaction(1));
+ok($tx->submit());
+ok($tx->is_success());
+ok($tx->authorization(), 'Authorized');
+
-- 
cgit v1.2.1