1#!/usr/bin/perl 2use strict; 3use warnings; 4use Test::More; 5BEGIN { push(@INC, "lib", "t"); } 6use TestHelper; 7 8my $mturk = TestHelper->new; 9 10plan tests => 4; 11ok( $mturk, "Created client"); 12 13my $reviewable = $mturk->GetReviewableHITs(); 14ok( $reviewable, "Got Reviewable HITs"); 15ok( (@{$reviewable->{HIT}}), "Actual reviewable hits" ); 16 17my @hits; 18foreach my $hit (@{$reviewable->{HIT}}) { 19 push(@hits, { HITId => $hit->{HITId}[0] }); 20} 21 22my @output; 23 24$mturk->retrieveResults( 25 input => \@hits, 26 output => sub { 27 my ($row) = @_; 28 push(@output, $row); 29 }, 30 progress => \*STDOUT 31); 32 33printf "RetrieveResults returned %d results.\n", scalar @output; 34 35ok( 1, "RetrieveResults"); 36