Add Reconnection Logic

.github/workflows/loading-groups.yml

@@ -8,7 +8,7 @@ jobs:
     strategy:
       fail-fast: false
       matrix:
-        smalltalk: [ Pharo64-11, Pharo64-10, Pharo64-9.0, Pharo64-8.0 ]
+        smalltalk: [ Pharo64-12, Pharo64-11, Pharo64-10, Pharo64-9.0, Pharo64-8.0 ]
         load-spec: [ deployment, tests, development, tools ]
     name: ${{ matrix.smalltalk }} + ${{ matrix.load-spec }}
     services:
@@ -18,7 +18,7 @@ jobs:
           - 5672:5672
         options: --health-cmd "rabbitmqctl node_health_check" --health-interval 10s --health-timeout 5s --health-retries 5
     steps:
-      - uses: actions/checkout@v3
+      - uses: actions/checkout@v4
       - uses: hpi-swa/setup-smalltalkCI@v1
         with:
           smalltalk-image: ${{ matrix.smalltalk }}

.github/workflows/markdown-lint.yml

@@ -5,7 +5,7 @@ jobs:
     name: runner / markdownlint
     runs-on: ubuntu-latest
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
       - name: markdownlint
         uses: reviewdog/action-markdownlint@v0
         with:

.github/workflows/unit-tests.yml

@@ -9,7 +9,7 @@ jobs:
     strategy:
       fail-fast: false
       matrix:
-        smalltalk: [ Pharo64-11, Pharo64-10, Pharo64-9.0, Pharo64-8.0 ]
+        smalltalk: [ Pharo64-12, Pharo64-11, Pharo64-10, Pharo64-9.0, Pharo64-8.0 ]
     name: ${{ matrix.smalltalk }}
     services:
       rabbitmq:
@@ -18,7 +18,7 @@ jobs:
           - 5672:5672
         options: --health-cmd "rabbitmqctl node_health_check" --health-interval 10s --health-timeout 5s --health-retries 5
     steps:
-      - uses: actions/checkout@v3
+      - uses: actions/checkout@v4
       - uses: hpi-swa/setup-smalltalkCI@v1
         with:
           smalltalk-image: ${{ matrix.smalltalk }}

README.md

@@ -14,7 +14,8 @@ Ansible is a AMQP client library for Smalltalk supporting 0-8 and 0-9-1
 [![Pharo 8.0](https://img.shields.io/badge/Pharo-8.0-informational)](https://pharo.org)
 [![Pharo 9.0](https://img.shields.io/badge/Pharo-9.0-informational)](https://pharo.org)
 [![Pharo 10](https://img.shields.io/badge/Pharo-10-informational)](https://pharo.org)
-[![Pharo 11](https://img.shields.io/badge/Pharo-10-informational)](https://pharo.org)
+[![Pharo 11](https://img.shields.io/badge/Pharo-11-informational)](https://pharo.org)
+[![Pharo 12](https://img.shields.io/badge/Pharo-12-informational)](https://pharo.org)
 
 An [Ansible](https://en.wikipedia.org/wiki/Ansible) is a fictional device
 capable of near-instantaneous communication. It can send and receive message

docs/MigrationGuide.md

@@ -0,0 +1,70 @@
+# Migration Guide
+
+## Migration from v2 to v3
+
+* Manually load the package `Ansible-Deprecated-V3` that has transformation of
+deprecated messages.
+
+* `RabbitMQWorker` has been refactored to be used by composition instead of
+inheritance: The classes that subclassified it implemented the subclass
+responsibility `#configureConnection:` and `#process: payload` should be
+changed to instantiate `RabbitMQWorker` as to pass that process logic to the
+`processingPayloadWith:` collaborator.
+
+For instance,
+
+```smalltalk
+Class {
+    #name : 'RabbitMQTextReverser',
+    #superclass : 'RabbitMQWorker',
+    #instVars : [
+        'testCase',
+    ]
+}
+
+{ #category : 'initialization' }
+RabbitMQTextReverser >> initializeWorkingWith: aTestCase
+
+    testCase := aTestCase
+
+{ #category : 'private' }
+RabbitMQTextReverser >> #configureConnection: builder
+
+    builder hostname: 'localhost'.
+    builder portNumber: 5672.
+    builder username: 'guest'.
+    builder password: 'guest'.
+
+{ #category : 'private' }
+RabbitMQTextReverser >> process: payload
+
+    testCase storeText: payload utf8Decoded reversed
+```
+
+Should be refactored to
+
+```smalltalk
+Class {
+    #name : 'RabbitMQTextReverser',
+    #superclass : 'Object',
+    #instVars : [
+        'worker'
+    ]
+}
+
+RabbitMQTextReverser >> initializeWorkingWith: aTestCase
+
+    worker := RabbitMQWorker
+        configuredBy: [ :options |
+            options
+                at: #hostname 'localhost';.
+                at: #port 5672;.
+                at: #username 'guest';.
+                at: #password 'guest'
+            ]
+        processingMessagesWith: [ :payload |
+            aTestCase storeText: payload utf8Decoded reversed
+        ].
+
+    worker start
+```

docs/README.md

@@ -44,6 +44,14 @@ They are not a rewrite but rather my interpretation.
  reading it to get a complete understanding. They also provide this [great tool](http://tryrabbitmq.com)
  to help you explore different messaging patterns.
 
+## Use RabbitMQ clients reifications
+
+We provide two objects to simplify the instantiations of a publisher and a
+consumer:
+
+1. [RabbitMQPublisher](tutorials/RabbitMQPublisher.md)
+2. [RabbitMQWorker](tutorials/RabbitMQWorker.md)
+
  ---
 
 To use the project as a dependency of your project, take a look at:

docs/tutorials/PublishSubscribe.md

@@ -70,7 +70,7 @@ logger name: 'Transcript logger'.
 logger resume
 ```
 
-## Receiveing notifications
+## Receiving notifications
 
 Here's the script to spawn a process that will pop up a toast notification on
  every log message received

docs/tutorials/RabbitMQPublisher.md

@@ -0,0 +1,19 @@
+# RabbitMQPublisher
+
+This object will connect to an AMQP channel and knows how to publish messages
+to the specified queue for further processing.
+
+Accepts the following options:
+
+<!-- markdownlint-disable MD013 -->
+| Attribute name | Description | Optional/Mandatory | Default value |
+| ---------------|-------------|--------------------|---------------|
+| #hostname | Hostname of the rabbitmq broker | Optional | localhost |
+| #port | Port numbre of the rabbitmq broker | Optional | 5672 |
+| #username | Username of the rabbitmq broker | Optional | guest |
+| #password | Username of the rabbitmq broker | Optional | guest |
+| #maximumConnectionAttemps | Amount of retries when connecting to the broker fails | Optional | 3 |
+| #timeSlotBetweenConnectionRetriesInMs | Time duration between retry attempts determined by using the exponential backoff algorithm | Optional | 3000 |
+| #enableDebuggingLogs | A boolean indicating whether to log debugging events | Optional | false |
+| #extraClientProperties | A dictionary with keys and values to set the [client properties](https://www.rabbitmq.com/docs/connections#capabilities) |Optional | Empty |
+| #retry | A block that can configure the internal `Retry` instance | Optional | `[]` |

docs/tutorials/RabbitMQWorker.md

@@ -0,0 +1,21 @@
+# RabbitMQWorker
+
+This object will connect to an AMQP channel and knows how to consume messages
+from a specified queue for processing.
+
+Accepts the following options:
+
+<!-- markdownlint-disable MD013 -->
+| Attribute name | Description | Optional/Mandatory | Default value |
+| ---------------|-------------|--------------------|---------------|
+| #hostname | Hostname of the rabbitmq broker | Optional | localhost |
+| #port | Port numbre of the rabbitmq broker | Optional | 5672 |
+| #username | Username of the rabbitmq broker | Optional | guest |
+| #password | Username of the rabbitmq broker | Optional | guest |
+| #maximumConnectionAttemps | Amount of retries when connecting to the broker fails | Optional | 3 |
+| #timeSlotBetweenConnectionRetriesInMs | Time duration between retry attempts determined by using the exponential backoff algorithm | Optional | 3000 |
+| #enableDebuggingLogs | A boolean indicating whether to log debugging events | Optional | false |
+| #extraClientProperties | A dictionary with keys and values to set the [client properties](https://www.rabbitmq.com/docs/connections#capabilities)| Optional | Empty |
+| #retry | A block that can configure the internal `Retry` instance | Optional | `[]` |
+| #queueName | Queue name where to consume from | Mandatory | |
+| #queueDurable | When false sets the [queue durability](https://www.rabbitmq.com/docs/queues#durability) to transient, otherwise will be durable | Optional | true |

source/Ansible-Deprecated-v3/AmqpChannel.extension.st

@@ -0,0 +1,110 @@
+Extension { #name : 'AmqpChannel' }
+
+{ #category : '*Ansible-Deprecated-v3' }
+AmqpChannel >> confirmMessagesPublicationWith: anAckBlock andThoseNotProcessedWith: aNackBlock [
+
+  self
+    deprecated: 'Use confirmPublicationWith:otherwise:'
+    transformWith:
+      '`@receiver confirmMessagesPublicationWith: `@anAckBlock andThoseNotProcessedWith:  `@aNackBlock'
+      -> '`@receiver onPublicationConfirmationDo: `@anAckBlock onRejectionDo: `@aNackBlock'.
+
+  self onPublicationConfirmationDo: anAckBlock onRejectionDo: aNackBlock
+]
+
+{ #category : '*Ansible-Deprecated-v3' }
+AmqpChannel >> exchangeDeclare: exchangeName type: typeString [
+
+  self deprecated: 'Use #declareExchangeNamed:of:applying: directly'.
+
+  ^ self
+      exchangeDeclare: exchangeName
+      type: typeString
+      durable: false
+      autoDelete: false
+      passive: false
+      arguments: nil
+]
+
+{ #category : '*Ansible-Deprecated-v3' }
+AmqpChannel >> exchangeDeclare: exchangeName type: typeString durable: durable [
+
+  self deprecated: 'Use #declareExchangeNamed:of:applying: directly'.
+
+  ^ self
+      exchangeDeclare: exchangeName
+      type: typeString
+      durable: durable
+      autoDelete: false
+      passive: false
+      arguments: nil
+]
+
+{ #category : '*Ansible-Deprecated-v3' }
+AmqpChannel >> exchangeDeclare: exchangeName type: typeString durable: durable autoDelete: autoDelete passive: passive [
+
+  self deprecated: 'Use #declareExchangeNamed:of:applying: directly'.
+
+  ^ self
+      exchangeDeclare: exchangeName
+      type: typeString
+      durable: durable
+      autoDelete: autoDelete
+      passive: passive
+      arguments: nil
+]
+
+{ #category : '*Ansible-Deprecated-v3' }
+AmqpChannel >> exchangeDeclare: exchangeName type: typeString durable: durable autoDelete: autoDelete passive: passive arguments: aDictionary [
+
+  self deprecated: 'Use #declareExchangeNamed:of:applying: directly'.
+
+  ^ self declareExchangeNamed: exchangeName of: typeString applying: [ :builder |
+        passive then: [ builder bePassive ].
+        durable then: [ builder beDurable ].
+        autoDelete then: [ builder autoDelete ].
+        builder useAsArguments: aDictionary
+      ]
+]
+
+{ #category : '*Ansible-Deprecated-v3' }
+AmqpChannel >> queueDeclare: queueName [
+
+  self deprecated: 'Use #declareQueueApplying: directly'.
+  ^ self
+      queueDeclare: queueName
+      durable: false
+      exclusive: false
+      autoDelete: false
+      passive: false
+      arguments: nil
+]
+
+{ #category : '*Ansible-Deprecated-v3' }
+AmqpChannel >> queueDeclare: queueName durable: durable [
+
+  self deprecated: 'Use #declareQueueApplying: directly'.
+  ^ self
+      queueDeclare: queueName
+      durable: durable
+      exclusive: false
+      autoDelete: false
+      passive: false
+      arguments: nil
+]
+
+{ #category : '*Ansible-Deprecated-v3' }
+AmqpChannel >> queueDeclare: queueName durable: durable exclusive: exclusive autoDelete: autoDelete passive: passive arguments: aDictionary [
+
+  self deprecated: 'Use #declareQueueApplying: directly'.
+
+  ^ self declareQueueApplying: [ :builder |
+        builder
+          name: queueName;
+          useAsArguments: aDictionary.
+        passive then: [ builder bePassive ].
+        durable then: [ builder beDurable ].
+        exclusive then: [ builder beExclusive ].
+        autoDelete then: [ builder autoDelete ]
+      ]
+]

source/Ansible-Deprecated-v3/package.st

@@ -0,0 +1 @@
+Package { #name : 'Ansible-Deprecated-v3' }

source/Ansible-Pharo-Pending-Patches/Semaphore.extension.st

@@ -0,0 +1,10 @@
+Extension { #name : 'Semaphore' }
+
+{ #category : '*Ansible-Pharo-Pending-Patches' }
+Semaphore >> waitTimeoutMilliseconds: anInteger [
+	"Wait on this semaphore for up to the given number of milliseconds, then timeout.
+	Return true if the deadline expired, false otherwise."
+	| d |
+	d := DelayWaitTimeout new setDelay: (anInteger max: 0) forSemaphore: self.
+	^d wait
+]