#!perl -T

use Test::More;

BEGIN {

    # Count who's installed
    my @order = qw(JSON::XS JSON JSON::DWIW JSON::Syck);
    my $count = scalar grep { eval "require $_"; not $@; } @order;

    unless ($count) {    # need at least one
        plan skip_all => "Can't find a JSON package.";
        exit;
    }

    # if we're here we have *something* that will work
    plan tests => 7;
    use_ok('JSON::Any');
}

diag("Testing JSON::Any $JSON::Any::VERSION, Perl $], $^X");
can_ok( JSON::Any, qw(new) );
can_ok( JSON::Any, qw(objToJson jsonToObj) );
can_ok( JSON::Any, qw(to_json from_json ) );
can_ok( JSON::Any, qw(Dump Load ) );
can_ok( JSON::Any, qw(encode decode ) );

is( JSON::Any->objToJson( { foo => 'bar' } ), q[{"foo":"bar"}] );