#!/usr/bin/perl -sw
#
# $Id: find_parent.t 765 2009-05-20 07:18:40Z calle $

require 5.008;
use warnings;
use strict;

use Test::More tests => 8;

use DNSCheck;

######################################################################

my $check = new DNSCheck;
my $dns   = $check->dns;

######################################################################

my $start = time();
ok(!$dns->find_parent("6f3899904701b0ce2835d82493c0212babf875c7", "IN"));
ok($dns->find_parent("se",           "IN") eq ".");
ok($dns->find_parent("iis.se",       "IN") eq "se");
ok($dns->find_parent("narnia.pp.se", "IN") eq "se");
ok($dns->find_parent("example.com",  "IN") eq "com");
ok($dns->find_parent("brixtal.se",   "IN") eq "se");
ok($dns->find_parent("tboerner.eu",  "IN") eq "eu");
my $diff = time() - $start;
ok($diff < 30, "Test ran in $diff seconds");