#!/usr/bin/perl -w
use strict;
use lib 't';
use vars qw( $class );
use Test::More tests => 7;
# ------------------------------------------------------------------------
$class = 'Data::Phrasebook::Loader::JSON';
use_ok($class);
my $file = 't/data/01phrases.json';
my $file2 = 't/data/01phrases2.json';
# ------------------------------------------------------------------------
{
my $obj = $class->new();
isa_ok( $obj => $class, "Bare new" );
my $phrase = $obj->get();
is($phrase,undef);
$phrase = $obj->get('foo');
is($phrase,undef);
eval { $obj->load(); };
ok($@);
$obj->load( $file );
$phrase = $obj->get('foo');
like( $phrase, qr/Welcome to/);
}
{
my $obj = $class->new();
eval { $obj->load( $file2 ); };
like( $@, qr/No data in given JSON file/);
}