1#!/usr/bin/perl -sw 2# 3# $Id: bugs.t 775 2009-05-27 08:09:42Z calle $ 4 5require 5.008; 6use warnings; 7use strict; 8 9use Test::More tests => 4; 10 11use DNSCheck; 12 13###################################################################### 14 15my $check = new DNSCheck; 16ok(defined($check)); 17eval { # Test for the bug fixed in r769 18 $check->add_fake_glue('*.foo.test', 'ns.foo.test', '10.11.12.13'); 19 $check->zone->test('*.foo.test'); 20}; 21ok(!$@, "$@"); 22 23$check = DNSCheck->new; 24ok(defined($check)); 25eval { # Test for the bug fixed in r739 26 $check->add_fake_glue('iis.se', 'ns.nic.se', 'gurkmos'); 27 $check->zone->test('iis.se'); 28}; 29ok(!$@, "$@"); 30