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