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_USER] Not set',1 unless $ENV{SPARK_TOKEN} and $ENV{RUN_HTTP_TESTS} and $ENV{TEST_USER};
  my $result=$self->listPeople({displayName=>$ENV{TEST_USER}});
  ok($result,'displayName lookup') or diag(Dumper $result);
  sleep 1;
}

SKIP: {
  skip 'ENV Vars [SPARK_TOKEN, RUN_HTTP_TESTS,TEST_USER_WC] Not set',1 unless $ENV{SPARK_TOKEN} and $ENV{RUN_HTTP_TESTS} and $ENV{TEST_USER_WC};
  my $result=$self->listPeople({displayName=>$ENV{TEST_USER_WC},maxResults=>5});
  ok($result,'displayName begins with test') or diag(Dumper $result);
  #diag(Dumper $result->get_data);
  sleep 1;
}

SKIP: {
  skip 'ENV Vars [SPARK_TOKEN, RUN_HTTP_TESTS,TEST_PERSON_ID] Not set',1 unless $ENV{SPARK_TOKEN} and $ENV{RUN_HTTP_TESTS} and $ENV{TEST_PERSON_ID};
  my $result=$self->getPerson($ENV{TEST_PERSON_ID});
  ok($result,'Fetch person by id') or diag(Dumper $result);
  #diag(Dumper $result->get_data);
  sleep 1;
}


my $orgId;
SKIP: {
  skip 'ENV Vars [SPARK_TOKEN, RUN_HTTP_TESTS] Not set',1 unless $ENV{SPARK_TOKEN} and $ENV{RUN_HTTP_TESTS};
  my $result=$self->getMe;
  ok($result,'Should find myself');
  $orgId=$result->get_data->{orgId};
  #diag(Dumper $result->get_data);
  sleep 1;
}

SKIP: {
  skip 'ENV Vars [SPARK_TOKEN, RUN_HTTP_TESTS, TEST_TEAM] Not set',3 unless $ENV{SPARK_TOKEN} and $ENV{RUN_HTTP_TESTS} and $ENV{TEST_TEAM};

  my $result=$self->createTeam({name=>$ENV{TEST_TEAM}});
  ok($result,'Should create the team without an error') or diag("Failed to create team, error was: $result");
  sleep 1;
  SKIP: {
    skip "Failed to create team",1 unless $result;
    my $teamId=$result->get_data->{id};
    my $result=$self->listTeams;
    ok($result,'Should find a team') or die $result;
    sleep 3;
    my $teams=$result->get_data->{items};
    foreach my $team (@{$teams}) {
      next unless $team->{name} eq $ENV{TEST_TEAM};
      ok(1,"We have found our team");
    }

    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));
      }
    }
  }
}


done_testing;