From 04601a3b4d4a3a6412a7153e8e6e1e61000d7265 Mon Sep 17 00:00:00 2001
From: Chris Nighswonger <cnighswonger@foundations.edu>
Date: Wed, 6 Oct 2010 13:28:18 -0400
Subject: [PATCH] Bug 5284 - Generic report covering various problems with the
 labels/patron card tests

This patch fixes the C4::Labels::Profile tests
---
 C4/Creators/Profile.pm            | 1 +
 t/db_dependent/Labels/t_Profile.t | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/C4/Creators/Profile.pm b/C4/Creators/Profile.pm
index aab0e27274..6b6e192a57 100644
--- a/C4/Creators/Profile.pm
+++ b/C4/Creators/Profile.pm
@@ -122,6 +122,7 @@ sub delete {
         warn sprintf('Database returned the following error on attempted DELETE: %s', $sth->errstr);
         return -1;
     }
+    return 0;
 }
 
 sub save {
diff --git a/t/db_dependent/Labels/t_Profile.t b/t/db_dependent/Labels/t_Profile.t
index 368f3587a3..e46c901c31 100644
--- a/t/db_dependent/Labels/t_Profile.t
+++ b/t/db_dependent/Labels/t_Profile.t
@@ -20,7 +20,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 25;
+use Test::More tests => 27;
 use C4::Context;
 use Data::Dumper;
 
@@ -29,6 +29,7 @@ BEGIN {
 }
 
 my $expected_profile = {
+        creator         => 'Labels',
         printer_name    => 'Circulation Desk',
         template_id     => '',
         paper_bin       => 'bypass',
@@ -60,6 +61,7 @@ my $new_attr = {
     creep_horz      => 0.156,
     creep_vert      => 0.67,
     units           => 'INCH',
+    creator         => 'Labels',
 };
 
 foreach my $key (keys %{$new_attr}) {
-- 
2.39.5