From 7588a4ac90a9b07c08a3107cd1107d773be1c991 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 4 Jun 2013 00:16:28 -0700
Subject: RT 4.0.13

---
 rt/t/customfields/external.t | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'rt/t/customfields/external.t')

diff --git a/rt/t/customfields/external.t b/rt/t/customfields/external.t
index 0abf6eca1..73549166a 100644
--- a/rt/t/customfields/external.t
+++ b/rt/t/customfields/external.t
@@ -1,10 +1,9 @@
-#!/usr/bin/perl
 
 use warnings;
 use strict;
 
 use RT;
-use RT::Test nodata => 1, tests => 11;
+use RT::Test nodata => 1, tests => 13;
 
 sub new (*) {
     my $class = shift;
@@ -54,3 +53,9 @@ isa_ok( $cf, 'RT::CustomField' );
     is( $values->Count, $count, "count is correct" );
 }
 
+{
+    my ($ret, $msg) = $cf->SetValuesClass('RT::CustomFieldValues');
+    ok $ret, 'Reverting this CF as internal source values based' or diag "error: $msg";
+    ($ret, $msg) = $cf->SetValuesClass('RT::CustomFieldValues::Groups');
+    ok $ret, 'Reverting this CF as external source values based' or diag "error: $msg";
+}
-- 
cgit v1.2.1