# Testing Net::DNS::Resolver::Programmable 0.009, Perl 5.038002, /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.00 sys +  0.06 cusr  0.03 csys =  0.10 CPU)
Result: PASS