1#!/usr/bin/perl -sw
2#
3# $Id: find_parent.t 765 2009-05-20 07:18:40Z calle $
4
5require 5.008;
6use warnings;
7use strict;
8
9use Test::More tests => 8;
10
11use DNSCheck;
12
13######################################################################
14
15my $check = new DNSCheck;
16my $dns   = $check->dns;
17
18######################################################################
19
20my $start = time();
21ok(!$dns->find_parent("6f3899904701b0ce2835d82493c0212babf875c7", "IN"));
22ok($dns->find_parent("se",           "IN") eq ".");
23ok($dns->find_parent("iis.se",       "IN") eq "se");
24ok($dns->find_parent("narnia.pp.se", "IN") eq "se");
25ok($dns->find_parent("example.com",  "IN") eq "com");
26ok($dns->find_parent("brixtal.se",   "IN") eq "se");
27ok($dns->find_parent("tboerner.eu",  "IN") eq "eu");
28my $diff = time() - $start;
29ok($diff < 30, "Test ran in $diff seconds");
30