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