X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fcustomfields%2Fipv6.t;fp=rt%2Ft%2Fcustomfields%2Fipv6.t;h=f97420ef68b34e128033335d099ed556c8ee9e96;hb=7588a4ac90a9b07c08a3107cd1107d773be1c991;hp=09c4d30d06965ad93ac3dc7561f9bdd4e4beca85;hpb=98d2b25256055abb0dfcb9f586b434474fa97afd;p=freeside.git

diff --git a/rt/t/customfields/ipv6.t b/rt/t/customfields/ipv6.t
index 09c4d30d0..f97420ef6 100644
--- a/rt/t/customfields/ipv6.t
+++ b/rt/t/customfields/ipv6.t
@@ -1,9 +1,9 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
 
-use RT::Test tests => 102;
+use RT::Test tests => undef;
+use Test::Warn;
 
 my ( $baseurl, $agent ) = RT::Test->started_ok;
 ok( $agent->login, 'log in' );
@@ -242,7 +242,9 @@ diag "create a ticket with an IP of abcd:23:: and search for doesn't match 'abcd
     ok( $id, "created first ticket $id" );
 
     my $tickets = RT::Tickets->new($RT::SystemUser);
-    $tickets->FromSQL("id=$id AND CF.{IP} NOT LIKE 'abcd:23'");
+    warning_like {
+        $tickets->FromSQL("id=$id AND CF.{IP} NOT LIKE 'abcd:23'");
+    } [qr/not a valid IPAddress/], "caught warning about IPAddress";
 
     SKIP: {
         skip "partical ip parse can causes ambiguity", 1;
@@ -250,3 +252,5 @@ diag "create a ticket with an IP of abcd:23:: and search for doesn't match 'abcd
     }
 }
 
+undef $agent;
+done_testing;