diff --git a/test/integration/tests/scripting.cpp b/test/integration/tests/scripting.cpp index 213d15a4..304b88f9 100644 --- a/test/integration/tests/scripting.cpp +++ b/test/integration/tests/scripting.cpp @@ -104,45 +104,45 @@ TEST_F(ZNCTest, ModperlSocket) { "DISABLED_ZNC_PERL_PYTHON_TEST") == "1") { return; } - auto znc = Run(); - znc->CanLeak(); + auto znc = Run(); + znc->CanLeak(); - InstallModule("socktest.pm", R"( - package socktest::acc; - use base 'ZNC::Socket'; - sub OnReadData { - my ($self, $data, $len) = @_; - $self->GetModule->PutModule("received $len bytes"); - $self->Close; - } + InstallModule("socktest.pm", R"( + package socktest::acc; + use base 'ZNC::Socket'; + sub OnReadData { + my ($self, $data, $len) = @_; + $self->GetModule->PutModule("received $len bytes"); + $self->Close; + } - package socktest::lis; - use base 'ZNC::Socket'; - sub OnAccepted { - my $self = shift; - return $self->GetModule->CreateSocket('socktest::acc'); - } + package socktest::lis; + use base 'ZNC::Socket'; + sub OnAccepted { + my $self = shift; + return $self->GetModule->CreateSocket('socktest::acc'); + } - package socktest::conn; - use base 'ZNC::Socket'; + package socktest::conn; + use base 'ZNC::Socket'; - package socktest; - use base 'ZNC::Module'; - sub OnLoad { - my $self = shift; - my $listen = $self->CreateSocket('socktest::lis'); - $self->{port} = $listen->Listen; - return 1; - } - sub OnModCommand { - my ($self, $cmd) = @_; - my $sock = $self->CreateSocket('socktest::conn'); - $sock->Connect('127.0.0.1', $self->{port}); - $sock->Write('blah'); - } + package socktest; + use base 'ZNC::Module'; + sub OnLoad { + my $self = shift; + my $listen = $self->CreateSocket('socktest::lis'); + $self->{port} = $listen->Listen; + return 1; + } + sub OnModCommand { + my ($self, $cmd) = @_; + my $sock = $self->CreateSocket('socktest::conn'); + $sock->Connect('127.0.0.1', $self->{port}); + $sock->Write('blah'); + } - 1; - )"); + 1; + )"); auto ircd = ConnectIRCd(); auto client = LoginClient();