Net-Amazon-MechanicalTurk-1.02/t/01-ListOperations.t

#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
BEGIN { push(@INC, "lib", "t"); }
use TestHelper;

my $mturk = TestHelper->new;

plan tests => 2;
ok( $mturk, "Created client");

my @operations = $mturk->listOperations();
ok( @operations, "ListOperations");