1#!/usr/bin/perl -w 2 3# vim: set ft=perl: 4 5use strict; 6use Test::More tests => 2; 7my (@res); 8 9use_ok("Net::Nslookup"); 10 11# Get A record 12@res = nslookup(host => "_jabber._tcp.gmail.com", type => "SRV"); 13 14ok(grep("xmpp-server.l.google.com", @res), "Jabber SRV record for gmail.com contains xmpp-server.l.google.com"); 15