iarv/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-05-14 21:35:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

Make modperl support AddServerDependentCapability

Browse Source
This commit is contained in:
Alexey Sokolov
2024-01-14 12:02:07 +00:00
parent efd136c01c
commit 2b3b224bca
5 changed files with 75 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/integration/tests/core.cpp
+19 -1
View File
@@ -556,7 +556,7 @@ TEST_F(ZNCTest, CAP302LSValue) {
class AllLanguages : public ZNCTest, public testing::WithParamInterface<int> {};
INSTANTIATE_TEST_CASE_P(LanguagesTests, AllLanguages, testing::Values(1, 2));
INSTANTIATE_TEST_CASE_P(LanguagesTests, AllLanguages, testing::Values(1, 2, 3));
TEST_P(AllLanguages, ServerDependentCapInModule) {
auto znc = Run();
@@ -607,6 +607,24 @@ TEST_P(AllLanguages, ServerDependentCapInModule) {
"DISABLED_ZNC_PERL_PYTHON_TEST") == "1") {
return;
}
znc->CanLeak();
InstallModule("testmod.pm", R"(
package testmod;
use base 'ZNC::Module';
sub OnLoad {
my $self = shift;
my $listen = $self->AddServerDependentCapability('testcap', sub {
my ($net, $state) = @_;
$self->PutModule('Server changed support: ' . ($state ? 'true' : 'false'));
}, sub {
my ($client, $state) = @_;
$self->PutModule('Client changed support: ' . ($state ? 'true' : 'false'));
});
return 1;
}
1;
)");
client.Write("znc loadmod modperl");
break;
}
client.Write("znc loadmod testmod");