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