X-Git-Url: https://pd.if.org/git/?p=newsd;a=blobdiff_plain;f=t%2F03_responses.t;h=0e3fd4ffc70efbcc56fef969d9d7a7f2b3329f46;hp=0ff39d2ceda135f050171bd058c7cf18f498cc7d;hb=9278623fca117acfa850d87b6d19d734437c308a;hpb=e2004ad6e8313ba8e8eca3ff506cec486085a537

diff --git a/t/03_responses.t b/t/03_responses.t
index 0ff39d2..0e3fd4f 100644
--- a/t/03_responses.t
+++ b/t/03_responses.t
@@ -26,6 +26,17 @@ sub Net::NNTP::try {
 	return $c->code;
 }
 
+sub Net::NNTP::must {
+	my ($c, $cmd, $test, @valid) = @_;
+	$c->command($cmd);
+	$c->response();
+	ok(scalar (grep {$c->code == $_} @valid) , "$test ".$c->code." in (@valid)");
+	if (scalar (grep {$c->code == $_} @valid)) {
+		return $c->code;
+	}
+	die $c->code;
+}
+
 # 3977:5.1.1 initial greeting must be 200 201 400 502
 my @valid = (200, 201, 400, 502);
 my $greeting = $c->code;
@@ -39,8 +50,14 @@ unless ($greeting == 200 or $greeting = 201) {
 # 4 tests done to here
 
 $c->try('STAT','stat with no newsgroup',412);
-$c->try('GROUP de.test','group selection',211);
-$c->try('STAT','stat with newsgroup',223,420);
+
+eval {
+	$c->must('GROUP de.test','group selection',211);
+};
+SKIP: {
+	skip "group failed, can't stat", 1 if $@;
+	$c->try('STAT','stat with newsgroup',223,420);
+}
 
 goto quit;