view release on metacpan or  search on metacpan

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

              my ($sb,$id,$result)=@_;
	      ok($result,"Cleaning up bad team") or diag $result;
	    },$t->{id});
	  }
	}
	$self->run_lookup('que_createRoom',sub {
          my ($sb,$id,$result)=@_;
	  ok($result,'Should create the room without a problem') or diag $result;
	  my $room=$result->get_data;

	  diag Dumper($room);

	  $self->run_lookup('que_listRooms',sub {
            my ($sb,$id,$result)=@_;

	    ok($result,'should list rooms without problems') or die $result;

	    my $rooms=$result->get_data->{items};
	    diag("total Rooms with the name [$testRoom]: ".scalar(@{$rooms}));

	    foreach my $r (@{$rooms}) {
	      next unless $r->{title} eq $room->{title} and $r->{id} ne $room->{id};
	      diag Dumper $r;
	      $self->run_lookup('que_deleteRoom',sub {
                my ($sb,$id,$result)=@_;
		ok($result,'Should clean up bad room without error') or diag $result;
	      },$r->{id});
	    }

	    $self->run_lookup('que_createMessage',sub {
              my ($sb,$id,$result)=@_;
	      ok($result,'Should post a message to our room without eror');
	      $self->run_lookup('que_listMessages',sub {
                my ($sb,$id,$result,$request,$response)=@_;

		ok($result,'Should list our messages without a problem') or die $result;

		$self->run_lookup('que_deleteRoom',sub {
                  my ($sb,$id,$result,$request,$response)=@_;
		  ok($result,'Should delete our room without a problem');
		  $self->run_lookup('que_deleteTeam',sub {
                    my ($sb,$id,$result,$request,$response)=@_;
		    ok($result,'Should delete our team without a problem');
		    $final=0;
		    no warnings;
		    last SKIP;
		  },$team->{id});
		},$room->{id});
	      },{roomId=>$room->{id},mentionedPeople=>'me'});
	      
	    },{roomId=>$room->{id},text=>'this is a test'});
	  },{teamId=>$team->{id}});
	},{teamId=>$team->{id},title=>$testRoom});
      });

     
    },{name=>$teamName});

  });
  
  my $max=AnyEvent->timer(after=>300,cb=>sub { no warnings;last SKIP });
  AnyEvent::Loop::run;
}

ok(!$final,'should have cleared final');