#!perl
# test basic usage, no callbacks, in playback mode
BEGIN {
$ENV{ LWP_UA_MOCK } = 'playback';
$ENV{ LWP_UA_MOCK_FILE } = 'non-existant.mockdata';
}
use strict;
use warnings;
use LWP;
use Test::More;
eval {
require LWP::UserAgent::Mockable;
};
ok( defined $@, "script dies if in playback mode and specified file doesn't exist" );
done_testing();