From fdffd2a5e37bcc47005f63c81174ad72df92d8bb Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 20 Nov 2006 17:17:47 +0000
Subject: [PATCH] more diagnostics for remotely failing test

---
 t/Asset/Wobject/Article.t | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/t/Asset/Wobject/Article.t b/t/Asset/Wobject/Article.t
index e1d80b141..a47d5d4f0 100644
--- a/t/Asset/Wobject/Article.t
+++ b/t/Asset/Wobject/Article.t
@@ -70,6 +70,9 @@ my $filename = "page_title.jpg";
 my $storage = WebGUI::Storage::Image->create($session);
 my $storedFilename = $storage->addFileFromFilesystem("../../supporting_collateral/".$filename);
 my $filenameOK = is ($storedFilename, $filename, 'storage created correctly');
+
+diag(join("\n", @{ $storage->getErrors })) unless $filenameOK;
+
 $article->update({storageId=>$storage->getId});
 my $storageOK = is($article->get('storageId'), $storage->getId, 'correct storage id stored');