1#!/usr/bin/perl -w 2 3# vim: set ft=perl: 4 5use strict; 6use Test::More tests => 5; 7my ($res, @res); 8 9use_ok("Net::Nslookup"); 10 11@res = nslookup(domain => "boston.com", type => "MX"); 12@res = sort @res; 13is($res[0], "bghqmail.globe.com", "nslookup(domain => 'boston.com', type => MX) -> bghqmail.globe.com"); 14is($res[1], "inapmail.boston.com", "nslookup(domain => 'boston.com', type => MX) -> inapmail.boston.com"); 15 16@res = nslookup(domain => "boston.com", type => "MX", recurse => 1); 17@res = sort @res; 18is($res[0], "50.203.72.25", "nslookup(domain => 'boston.com', type => MX, recurse => 1) -> 50.203.72.25"); 19is($res[1], "66.151.183.181", "nslookup(domain => 'boston.com', type => MX, recurse => 1) -> 66.151.183.181"); 20