use strict;

use Test::More;
use Webservice::InterMine;

my $do_live_tests = $ENV{RELEASE_TESTING};

unless ($do_live_tests) {
    plan( skip_all => "Acceptance tests for release testing only" );
} else {
    # Should redirect to www.flymine.org
    my $service = get_service('flymine.org/query');
    my $query = $service->select("Organism.name");

    while (my $row = <$query>) {
        note @$row;
        is(@$row, 1);
    }
    my $c = $query->count;
    note $c;
    done_testing($c);
}