Mercurial > prosody-modules
annotate mod_lib_ldap/dev/t/TestConnection.pm @ 6083:ffd0184cd478
mod_compliance_latest: New module that depends on and therefore loads the latest compliance tester mod.
diff --git a/mod_compliance_latest/README.md b/mod_compliance_latest/README.md
new file mode 100644
--- /dev/null
+++ b/mod_compliance_latest/README.md
@@ -0,0 +1,25 @@
+---
+summary: XMPP Compliance Suites self-test
+labels:
+- Stage-Beta
+rockspec:
+ dependencies:
+ - mod_compliance_2023
+...
+
+# Introduction
+
+This module will always require and load to the lastest compliance tester we have in the community modules.
+Currently this is [mod_compliance_2023].
+
+# Configuration
+
+Just load this module as any other module and it will automatically install [mod_compliance_2023] if you use the Prosody plugin installer.
+See the linked module for further details.
+
+# Compatibility
+
+ Prosody-Version Status
+ --------------- ----------------------
+ trunk Works as of 2024-12-22
+ 0.12 Works
diff --git a/mod_compliance_latest/mod_compliance_latest.lua b/mod_compliance_latest/mod_compliance_latest.lua
new file mode 100644
--- /dev/null
+++ b/mod_compliance_latest/mod_compliance_latest.lua
@@ -0,0 +1,1 @@
+module:depends("compliance_2023");
| author | Menel <menel@snikket.de> |
|---|---|
| date | Sun, 22 Dec 2024 18:12:42 +0100 |
| parents | 07582b8aaf84 |
| children |
| rev | line source |
|---|---|
| 809 | 1 package TestConnection; |
| 2 | |
| 3 use strict; | |
| 4 use warnings; | |
| 5 use parent 'AnyEvent::XMPP::IM::Connection'; | |
| 6 | |
| 7 use 5.010; | |
| 8 | |
| 9 our $HOST = 'localhost'; | |
| 10 our $TIMEOUT = 5; | |
| 11 our %PASSWORD_FOR = ( | |
| 12 one => '12345', | |
| 13 two => '23451', | |
| 14 three => '34512', | |
| 15 four => '45123', | |
| 16 five => '51234', | |
| 866 | 17 six => '123456', |
| 875 | 18 seven => '1234567', |
| 809 | 19 ); |
| 20 | |
| 21 sub new { | |
| 22 my ( $class, $username, %options ) = @_; | |
| 23 | |
| 24 my $cond = AnyEvent->condvar; | |
| 25 my $timer = AnyEvent->timer( | |
| 26 after => $TIMEOUT, | |
| 27 cb => sub { | |
| 28 $cond->send('timeout'); | |
| 29 }, | |
| 30 ); | |
| 31 | |
| 32 my $self = $class->SUPER::new( | |
| 33 username => $username, | |
| 34 domain => $HOST, | |
| 35 password => $options{'password'} // $PASSWORD_FOR{$username}, | |
| 1465 | 36 resource => 'test bot', |
| 809 | 37 ); |
| 38 | |
| 39 $self->reg_cb(error => sub { | |
| 40 my ( undef, $error ) = @_; | |
| 41 | |
| 42 $cond->send($error->string); | |
| 43 }); | |
| 44 | |
| 45 bless $self, $class; | |
| 46 | |
| 47 $self->{'condvar'} = $cond; | |
| 48 $self->{'timeout_timer'} = $timer; | |
| 49 | |
| 50 $self->connect; | |
| 51 | |
| 52 return $self; | |
| 53 } | |
| 54 | |
| 55 sub cond { | |
| 56 my ( $self ) = @_; | |
| 57 | |
| 58 return $self->{'condvar'}; | |
| 59 } | |
| 60 | |
| 61 1; |
