# Testing Net::DNS::Resolver::Programmable 0.009, Perl 5.026002, /usr/bin/perl t/01-basic.t .. 1..17 ok 1 - Got a Net::DNS::Packet back for example.com ok 2 - Got a Net::DNS::RR::A object ok 3 - Correct answer for example.com as mocked ok 4 - Got a Net::DNS::Packet back for ns1.example.com ok 5 - Got a Net::DNS::RR::A object for ns1.example.com ok 6 - Correct answer as mocked for ns1.example.com ok 7 - Got a Net::DNS::Packet back for NS example.com ok 8 - Got a Net::DNS::RR::NS object for NS example.com ok 9 - Correct NS answer as mocked for example.com ok 10 - got a Packet object back from send($packet) ok 11 - Got an answer in that packet ok 12 - Got a Net::DNS::RR::A object for example.com from send($packet) ok 13 - ... and it contains the expected answer ok 14 - No reply for a query() on unmocked name www.google.com ok 15 - Got a Net::DNS::Packet back from send() on unmocked name www.google.com ok 16 - Expected NOERROR rcode for lookup that doesn't match mocks ok 17 - No answer for lookup that doesn't match mocks ok All tests successful. Files=1, Tests=17, 0 wallclock secs ( 0.01 usr 0.01 sys + 0.06 cusr 0.02 csys = 0.10 CPU) Result: PASS