1#!/usr/bin/perl -sw
2#
3# $Id: main_object.t 775 2009-05-27 08:09:42Z calle $
4
5require 5.008;
6use warnings;
7use strict;
8
9use Test::More tests => 8;
10
11use DNSCheck;
12use Sys::Hostname;
13
14######################################################################
15
16my $dc;
17
18eval { $dc = new DNSCheck({ configfile => './config.yaml' }); };
19
20ok(!$@, $@);
21
22SKIP: {
23    skip "Failed to get an object to test", 4 unless defined($dc);
24    ok(ref($dc)                          eq "DNSCheck");
25    ok(ref($dc->config->get("net"))      eq "HASH");
26    ok($dc->config->get("net")->{"smtp"} eq 1);
27    ok($dc->config->get("hostname")      eq hostname);
28    ok(ref($dc->dns)                     eq 'DNSCheck::Lookup::DNS');
29    ok(ref($dc->logger)                  eq 'DNSCheck::Logger');
30    ok($dc->dns->parent                  eq $dc);
31}
32