diff options
author | Calle Dybedahl <calle@init.se> | 2015-03-30 17:22:29 +0200 |
---|---|---|
committer | Calle Dybedahl <calle@init.se> | 2015-03-30 17:22:29 +0200 |
commit | 3cbfa2ebf2caaf476019d2b2e57642512a91255f (patch) | |
tree | 5a8f4f22a6ead70d8f4431cfffa008fd9a494085 /t | |
parent | 7011e7733c4dd0df788bf8391570df092cb5c2c6 (diff) |
Add method to get/set source IP address on resolvers. Bump version number to 0.75.
Diffstat (limited to 't')
-rw-r--r-- | t/resolver.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/resolver.t b/t/resolver.t index 29f41d6..c098402 100644 --- a/t/resolver.t +++ b/t/resolver.t @@ -49,6 +49,10 @@ is($r->timeout, 5, 'Expected default timeout'); $r->timeout(3.33); ok(($r->timeout - 3.33) < 0.01, 'Expected set timeout'); +my $addr = '192.0.2.1'; # Reserved RFC5737 +ok($r->source($addr), "Source set."); +is($r->source, $addr, 'Source got.'); + subtest 'recursion' => sub { my $r = Net::LDNS->new( '8.8.4.4' ); my $p1 = $r->query( 'www.iis.se' ); |