# 05-exception.t
#
# Test suite for WWW::Velib
#
# copyright (C) 2007 David Landgren

use strict;

use Test::More;
eval qq{use Test::Exception};
if( $@ ) {
    plan skip_all => 'Test::Exception is not installed';
}
else {
    plan tests => 4;
}

use WWW::Velib::Map;

dies_ok( sub{WWW::Velib::Map->new(file => '/no/such/file')}, 'no such file' );
dies_ok( sub{WWW::Velib::Map->new(file => 'MANIFEST')},      'garbage file' );

my $m = WWW::Velib::Map->new(file => 'eg/data/map.cache.v1');
dies_ok( sub{$m->save}, 'save no file' );
dies_ok( sub{$m->save('/path/to/nothing/at/all')}, 'save failure' );