From 2f351c71014a1ad229362ba503d1b556565d52a4 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 23 Mar 2008 21:02:08 +0000
Subject: [PATCH] add a script to dump in the 2008 California state tax table

---
 t/Shop/loadTaxes.pl | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 t/Shop/loadTaxes.pl

diff --git a/t/Shop/loadTaxes.pl b/t/Shop/loadTaxes.pl
new file mode 100644
index 000000000..1a893249e
--- /dev/null
+++ b/t/Shop/loadTaxes.pl
@@ -0,0 +1,41 @@
+# vim:syntax=perl
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2008 Plain Black Corporation.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#------------------------------------------------------------------
+
+# Write a little about what this script tests.
+# 
+#
+
+use FindBin;
+use strict;
+use lib "$FindBin::Bin/../lib";
+use Test::More qw(no_plan);
+use Test::Deep;
+use Exception::Class;
+use Data::Dumper;
+
+use WebGUI::Test; # Must use this before any other WebGUI modules
+use WebGUI::Session;
+use WebGUI::Text;
+use WebGUI::Shop::Cart;
+use WebGUI::Shop::AddressBook;
+
+#----------------------------------------------------------------------------
+# Init
+my $session         = WebGUI::Test->session;
+
+#----------------------------------------------------------------------------
+# put your tests here
+
+##Set up the tax information
+my $taxer = WebGUI::Shop::Tax->new($session);
+$taxer->importTaxData(
+    WebGUI::Test->getTestCollateralPath('taxTables/largeTaxTable.csv')
+);