From 649d34f1a774a861ec42129607bc3ecf1f665118 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 15 Feb 2008 23:02:59 +0000
Subject: [PATCH] started cart tests, realizing need to build sku first

---
 docs/upgrades/upgrade_7.5.2-7.5.3.pl | 30 ++++++++++----
 t/Shop/Cart.t                        |  7 +++-
 t/Shop/CartItem.t                    | 60 ++++++++++++++++++++++++++++
 3 files changed, 88 insertions(+), 9 deletions(-)
 create mode 100644 t/Shop/CartItem.t

diff --git a/docs/upgrades/upgrade_7.5.2-7.5.3.pl b/docs/upgrades/upgrade_7.5.2-7.5.3.pl
index bbdca04e0..c1077bcf7 100644
--- a/docs/upgrades/upgrade_7.5.2-7.5.3.pl
+++ b/docs/upgrades/upgrade_7.5.2-7.5.3.pl
@@ -25,16 +25,32 @@ my $session = start(); # this line required
 # upgrade functions go here
 
 insertCommerceTaxTable($session);
+migrateToNewCart($session);
 
 finish($session); # this line required
 
 
-##-------------------------------------------------
-#sub exampleFunction {
-#	my $session = shift;
-#	print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet);
-#	# and here's our code
-#}
+#-------------------------------------------------
+sub migrateToNewCart {
+	my $session = shift;
+	print "\tInstall new shopping cart.\n" unless ($quiet);
+    $session->db->write("create table cart (
+        cartId varchar(22) binary not null primary key,
+        sessionId varchar(22) binary not null,
+        shippingAddressId varchar(22) binary,
+        couponId varchar(22) binary,
+        index sessionId (sessionId)
+    )");
+    $session->db->write("create table cartItems (
+        cartId varchar(22) binary not null,
+        assetId varchar(22) binary not null,
+        options mediumtext,
+        shippingAddressId varchar(22) binary,
+        quantity integer not null default 1,
+        index cartId_assetId (cartId,assetId)
+    )");
+    $session->db->write("drop table shoppingCart");
+}
 
 #-------------------------------------------------
 sub insertCommerceTaxTable {
@@ -44,7 +60,7 @@ sub insertCommerceTaxTable {
     $session->db->write(<<EOSQL);
 
 CREATE TABLE tax (
-    taxId    VARCHAR(22)  NOT NULL,
+    taxId    VARCHAR(22)  binary NOT NULL,
     field    VARCHAR(100) NOT NULL,
     value    VARCHAR(100) DEFAULT 0.0,
     taxRate  FLOAT        NOT NULL,
diff --git a/t/Shop/Cart.t b/t/Shop/Cart.t
index 77a19c8fd..1c4b3085c 100644
--- a/t/Shop/Cart.t
+++ b/t/Shop/Cart.t
@@ -19,6 +19,7 @@ use lib "$FindBin::Bin/../lib";
 use Test::More;
 use WebGUI::Test; # Must use this before any other WebGUI modules
 use WebGUI::Session;
+use WebGUI::Asset;
 use WebGUI::Shop::Cart;
 
 #----------------------------------------------------------------------------
@@ -55,11 +56,13 @@ is($cart->get("sessionId"), $session->getId, "Can retrieve a value from the cart
 $cart->set({shippingAddressId => "XXXX"});
 is($cart->get("shippingAddressId"), "XXXX", "Can set values to the cart properties.");
 
-my $id = $cart->getId;
+$cart->empty;
+is($session->db->quickScalar("select count(*) from cartItems where cartId=?",[$cart->getId]), 0, "Items are removed from cart.");
+
 $cart->delete;
 is($cart, undef, "Can destroy cart.");
-is($session->db->quickScalar("select count(*) from cartItems where cartId=?",[$id]), 0, "Items are also removed from cart.");
 
+$product->purge;
 
 #----------------------------------------------------------------------------
 # Cleanup
diff --git a/t/Shop/CartItem.t b/t/Shop/CartItem.t
new file mode 100644
index 000000000..b26e329e9
--- /dev/null
+++ b/t/Shop/CartItem.t
@@ -0,0 +1,60 @@
+# 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;
+use WebGUI::Test; # Must use this before any other WebGUI modules
+use WebGUI::Session;
+use WebGUI::Asset;
+use WebGUI::Shop::CartItem;
+
+#----------------------------------------------------------------------------
+# Init
+my $session         = WebGUI::Test->session;
+
+
+#----------------------------------------------------------------------------
+# Tests
+
+plan tests => 5;        # Increment this number for each test you create
+
+#----------------------------------------------------------------------------
+# put your tests here
+
+my $root = WebGUI::Asset->getRoot($session);
+my $product = $root->addChild($session, {
+    className=>"WebGUI::Asset::Sku::Product",
+    title=>"Test Product",
+    price=>4.99
+    });
+
+my $item = WebGUI::Shop::CartItem->create($session, "XXX", $product, 2);
+isa_ok($item, "WebGUI::Shop::CartItem");
+isa_ok($item->session, "WebGUI::Session", "did we get a session");
+
+is(ref($item->get), "HASH", "Do we have a hash of properties?");
+is($item->get("quantity"), 2, "Should have 2 of these in the cart.");
+is($item->delete, undef, "actually deletes the item");
+
+
+$product->purge;
+
+#----------------------------------------------------------------------------
+# Cleanup
+END {
+
+}