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