#!/usr/bin/perl
use
strict;
use
warnings;
use
Test::More;
BEGIN {
push
(
@INC
,
"lib"
,
"t"
); }
use
TestHelper;
my
$mturk
= TestHelper->new;
if
(!
$ENV
{MTURK_TEST_WRITABLE}) {
plan
skip_all
=>
"Set environment variable MTURK_TEST_WRITABLE=1 to enable tests which have side-effects."
;
}
else
{
plan
tests
=> 3;
}
my
$hit
=
$mturk
->newHIT();
ok(
$hit
,
"CreateHIT"
);
$mturk
->ForceExpireHIT(
HITId
=>
$hit
->{HITId}[0] );
ok(1,
"ForceExpireHIT"
);
$mturk
->destroyHIT(
$hit
);
ok(1,
"Destroyed HIT"
);