From 5729a40ab2d752d9efd7840907533c34642a3672 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 13 Apr 2009 16:36:37 +0000
Subject: [PATCH] Add tests that _really_ check for duplicated storage
 locations.

---
 t/Asset/Story.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/Asset/Story.t b/t/Asset/Story.t
index 346ce751b..069191869 100644
--- a/t/Asset/Story.t
+++ b/t/Asset/Story.t
@@ -20,7 +20,7 @@ use Test::More; # increment this value for each test you create
 use Test::Deep;
 use Data::Dumper;
 
-my $tests = 38;
+my $tests = 40;
 plan tests => 1
             + $tests
             ;
@@ -356,6 +356,9 @@ cmp_deeply(
     'duplicatePhotoData: checking JSON data minus storage locations'
 );
 
+isnt($newPhotoData->[0]->{storageId}, $photoData->[0]->{storageId}, '... and storage 0 is duplicated');
+isnt($newPhotoData->[1]->{storageId}, $photoData->[1]->{storageId}, '... and storage 1 is duplicated');
+
 WebGUI::Storage->get($session, $newPhotoData->[0]->{storageId})->delete;
 WebGUI::Storage->get($session, $newPhotoData->[1]->{storageId})->delete;