projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rt 4.0.23
[freeside.git]
/
rt
/
t
/
customfields
/
ipv6.t
diff --git
a/rt/t/customfields/ipv6.t
b/rt/t/customfields/ipv6.t
index
09c4d30
..
3b02ef9
100644
(file)
--- a/
rt/t/customfields/ipv6.t
+++ b/
rt/t/customfields/ipv6.t
@@
-1,9
+1,9
@@
-#!/usr/bin/perl
use strict;
use warnings;
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' );
my ( $baseurl, $agent ) = RT::Test->started_ok;
ok( $agent->login, 'log in' );
@@
-150,7
+150,7
@@
diag "check that we parse correct IPs only" if $ENV{'TEST_VERBOSE'};
}
);
}
);
- $agent->content_contains( '
can not be parsed as an
IP address',
+ $agent->content_contains( '
is not a valid
IP address',
'ticket fails to create' );
}
}
'ticket fails to create' );
}
}
@@
-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);
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;
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;