view release on metacpan or  search on metacpan

t/AnyEvent-HTTP-Spark.t  view on Meta::CPAN

    }

    SKIP: {
      skip 'ENV Vars [SPARK_TOKEN, RUN_HTTP_TESTS, TEST_TEAM $teamId] Not set',1 unless $ENV{TEST_TEAM} and $ENV{SPARK_TOKEN} and $ENV{RUN_HTTP_TESTS} and $teamId;
      my $room_args={teamId=>$teamId,title=>$ENV{TEST_TEAM}};
      my $result=$self->createRoom($room_args);
      sleep 1;
      ok($result,'Should have created the room') or die "$result";
      {
        my $result=$self->updateTeam($teamId,{name=>$ENV{TEST_TEAM}."Renamed"});
	ok($result,"Should have updated the test team wthout an error") or diag($result);
        sleep 1;
      }
      {
        my $result=$self->deleteTeam($teamId);
        ok($result,"Cleaning up team $ENV{TEST_TEAM}, ID: $teamId") or diag($result);
	diag(Dumper($result->get_data));
      }
    }
  }
}