diff options
Diffstat (limited to 'rt/t/customfields/ipv6.t')
| -rw-r--r-- | rt/t/customfields/ipv6.t | 10 |
1 files changed, 7 insertions, 3 deletions
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; |