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