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