diff --git a/t/api-rest/api-all-links.t b/t/api-rest/api-all-links.t index edbfc3f4a4..ef644313e8 100644 --- a/t/api-rest/api-all-links.t +++ b/t/api-rest/api-all-links.t @@ -28,7 +28,7 @@ $ua = Test::Collection->new()->ua(); my @hopts = split /\s*,\s*/, $res->header('Allow'); my @links = $res->header('Link'); - my $rex = qr!^; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s|topupcash)"$!; + my $rex = qr!^; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s|topupcash|managersecretary)"$!; foreach my $link(@links) { (my ($relname)) = ($link =~ $rex); # now get this rel diff --git a/t/api-rest/api-root.t b/t/api-rest/api-root.t index 65f38bdd76..b832b4bf87 100644 --- a/t/api-rest/api-root.t +++ b/t/api-rest/api-root.t @@ -147,7 +147,7 @@ $ua = Test::Collection->new()->ua(); vouchers => 1, }; foreach my $link(@links) { - my $rex = qr!^; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s|topupcash)"$!; + my $rex = qr!^; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s|topupcash|managersecretary)"$!; like($link, $rex, "check for valid link syntax"); my ($relname) = ($link =~ $rex); ok(exists $rels->{$relname}, "check for '$relname' collection in Link");