[Rt-commit] r6079 - in RT-Extension-TicketAging: . t

[schwern at bestpractical.com]

Author: schwern
Date: Thu Sep 28 00:19:15 2006
New Revision: 6079

Added:
   RT-Extension-TicketAging/t/06.ticket-aging-map.t
Modified:
   RT-Extension-TicketAging/   (props changed)
   RT-Extension-TicketAging/lib/RT/Extension/TicketAging.pm

Log:
 r19401 at Master-Windhund-IV:  schwern | 2006-09-27 21:19:06 -0700
 TicketAgingMap merging was broken.  It was calling _MergeMaps but the method
 was named MergeMaps.


Modified: RT-Extension-TicketAging/lib/RT/Extension/TicketAging.pm
==============================================================================
--- RT-Extension-TicketAging/lib/RT/Extension/TicketAging.pm	(original)
+++ RT-Extension-TicketAging/lib/RT/Extension/TicketAging.pm	Thu Sep 28 00:19:15 2006
@@ -344,7 +344,7 @@
     return (\%res);
 }
 
-sub MergeMaps {
+sub _MergeMaps {
     my ($self, $dst, $src) = @_;
     my %age = map { $_ => 1 } $self->Ages;
     foreach my $age ( keys %src ) {

Added: RT-Extension-TicketAging/t/06.ticket-aging-map.t
==============================================================================
--- (empty file)
+++ RT-Extension-TicketAging/t/06.ticket-aging-map.t	Thu Sep 28 00:19:15 2006
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+# Test user specified $TicketAgingMap
+
+use strict;
+use warnings;
+
+use Test::More 'no_plan';
+
+BEGIN { require 't/utils.pl' }
+RT::Init();
+
+use RT::Extension::TicketAging;
+my $CLASS = 'RT::Extension::TicketAging';
+
+RT->Config->Set('TicketAgingMap' => undef);
+my $Default_Map = $CLASS->PrepareMap;
+
+verbose("Empty TicketAgingMap");
+{
+    RT->Config->Set('TicketAgingMap' => {});
+    is_deeply( $CLASS->PrepareMap, $Default_Map );
+}