diff options
Diffstat (limited to 'dns/p5-pgeodns/files/patch-version.t')
| -rw-r--r-- | dns/p5-pgeodns/files/patch-version.t | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/dns/p5-pgeodns/files/patch-version.t b/dns/p5-pgeodns/files/patch-version.t new file mode 100644 index 000000000000..77d279b9184e --- /dev/null +++ b/dns/p5-pgeodns/files/patch-version.t @@ -0,0 +1,25 @@ +--- ./t/version.t.orig 2012-02-29 10:44:30.642824576 -0500 ++++ ./t/version.t 2012-02-29 10:45:12.047827564 -0500 +@@ -18,12 +18,12 @@ + like($ans[1]->[0]->rdatastr, qr!q: 1,!, 'one query now'); + + ok(@ans = $g->reply_handler("version.example.com", "IN", "TXT", "192.168.0.10"), "version request, txt"); +-like($ans[1]->[0]->rdatastr, qr!v$GeoDNS::VERSION/!, 'got the version back'); ++like($ans[1]->[0]->rdatastr, qr!v$GeoDNS::VERSION!, 'got the version back'); + + ok(sleep 1, 'sleep a second'); + + ok(@ans = $g->reply_handler("version.example.com", "IN", "ANY", "192.168.0.10"), "version request, any"); +-like($ans[1]->[0]->rdatastr, qr!v$GeoDNS::VERSION/!, 'got the version back'); ++like($ans[1]->[0]->rdatastr, qr!v$GeoDNS::VERSION!, 'got the version back'); + + ok(@ans = $g->reply_handler("status.example.com", "IN", "ANY", "192.168.0.10"), "status request, any"); + like($ans[1]->[0]->rdatastr, qr!q: 4,!, 'four queries now'); +@@ -38,6 +38,6 @@ + my $x = join "\n", $ans[1]->[0]->char_str_list; + #warn "[", ref $x, "] $x"; + ok(my $data = decode_json($x), "decode json"); +-like($data->{v}, qr!v$GeoDNS::VERSION/!, 'got the version back'); ++like($data->{v}, qr!v$GeoDNS::VERSION!, 'got the version back'); + + done_testing(); |