#!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
{
use Labyrinth;
my $labyrinth = Labyrinth->new();
isa_ok($labyrinth, 'Labyrinth');
eval { $labyrinth->run() };
like($@,qr/Cannot read settings file/);
eval { $labyrinth->run('bogus.file') };
like($@,qr/Cannot read settings file/);
}