1#!/usr/bin/perl -w
2
3# vim: set ft=perl:
4
5use strict;
6use Test::More tests => 2;
7my ($res, @res);
8
9use_ok("Net::Nslookup");
10
11# Get CNAME record
12$res = nslookup(host => "ctest.boston.com", type => "CNAME");
13is($res, "www.boston.com", "nslookup(host => 'ctest.boston.com', type => CNAME) -> www.boston.com");
14
15