#!/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/);
}