1use Test::More tests => 3; 2use Test::Exception; 3use lib 't/lib'; 4 5use_ok('Search::Elasticsearch::Error'); 6 7eval 'use JSON::PP;'; 8SKIP: { 9 skip 'JSON::PP module not installed', 2 if $@; 10 ok( my $es_error = Search::Elasticsearch::Error->new( 11 'Missing', 12 "Foo missing", 13 { code => 404 } 14 ), 15 'Create test error' 16 ); 17 like( 18 JSON::PP->new->convert_blessed(1)->encode( { eserr => $es_error } ), 19 qr/Foo missing/, 20 'encode_json', 21 ); 22} 23