From ea41d53782302b46bed1371dfc3ec29a7ecaea14 Mon Sep 17 00:00:00 2001
From: Gabriel Omar Cotelli <g.cotelli@gmail.com>
Date: Mon, 22 Apr 2024 09:43:51 -0300
Subject: [PATCH] Use Launchpad testing affordances

---
 .../BaselineOfSuperluminal.class.st           |  5 +-
 ...rviceDiscoveryExampleLauncherTest.class.st | 46 +++++++++----------
 .../package.st                                |  2 +-
 3 files changed, 26 insertions(+), 27 deletions(-)

diff --git a/source/BaselineOfSuperluminal/BaselineOfSuperluminal.class.st b/source/BaselineOfSuperluminal/BaselineOfSuperluminal.class.st
index 9cbdf53..8fcc182 100644
--- a/source/BaselineOfSuperluminal/BaselineOfSuperluminal.class.st
+++ b/source/BaselineOfSuperluminal/BaselineOfSuperluminal.class.st
@@ -43,7 +43,8 @@ BaselineOfSuperluminal >> setUpDependencies: spec [
 
 	spec
 		baseline: 'Launchpad' with: [ spec repository: 'github://ba-st/Launchpad:v5' ];
-		project: 'Launchpad-Deployment' copyFrom: 'Launchpad' with: [ spec loads: 'Deployment' ].
+		project: 'Launchpad-Deployment' copyFrom: 'Launchpad' with: [ spec loads: 'Deployment' ];
+		project: 'Launchpad-SUnit' copyFrom: 'Launchpad' with: [ spec loads: 'Dependent-SUnit-Extensions' ].
 
 	spec
 		baseline: 'NeoJSON' with: [ spec repository: 'github://svenvc/NeoJSON:master' ];
@@ -128,6 +129,6 @@ BaselineOfSuperluminal >> setUpTestPackages: spec [
 		group: 'Tests' with: 'Superluminal-Service-Discovery-Tests'.
 	spec
 		package: 'Superluminal-Service-Discovery-Examples-Tests'
-			with: [ spec requires: 'Superluminal-Service-Discovery-Examples' ];
+			with: [ spec requires: #('Superluminal-Service-Discovery-Examples' 'Launchpad-SUnit')];
 		group: 'Tests' with: 'Superluminal-Service-Discovery-Examples-Tests'
 ]
diff --git a/source/Superluminal-Service-Discovery-Examples-Tests/SuperluminalServiceDiscoveryExampleLauncherTest.class.st b/source/Superluminal-Service-Discovery-Examples-Tests/SuperluminalServiceDiscoveryExampleLauncherTest.class.st
index 45a093c..3a3bbfc 100644
--- a/source/Superluminal-Service-Discovery-Examples-Tests/SuperluminalServiceDiscoveryExampleLauncherTest.class.st
+++ b/source/Superluminal-Service-Discovery-Examples-Tests/SuperluminalServiceDiscoveryExampleLauncherTest.class.st
@@ -2,54 +2,52 @@
 A SuperluminalServiceDiscoveryExampleLauncherTest is a test class for testing the behavior of SuperluminalServiceDiscoveryExampleLauncher
 "
 Class {
-	#name : #SuperluminalServiceDiscoveryExampleLauncherTest,
-	#superclass : #TestCase,
-	#category : #'Superluminal-Service-Discovery-Examples-Tests'
+	#name : 'SuperluminalServiceDiscoveryExampleLauncherTest',
+	#superclass : 'TestCase',
+	#category : 'Superluminal-Service-Discovery-Examples-Tests',
+	#package : 'Superluminal-Service-Discovery-Examples-Tests'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 SuperluminalServiceDiscoveryExampleLauncherTest >> testActivate [
 
-	| commandLine |
-
-	commandLine := CommandLineArguments withArguments:
-		               #( 'launchpad' 'start' '--debug-mode' 'superluminal-service-discovery'
-		                  '--consul-agent-location=http://consul:8500'
-		                  '--message=Hello' '--retry-delay-in-ms=1' ).
-
-	self should: [ LaunchpadCommandLineHandler activateWith: commandLine ] raise: HTTPError
+	self
+		should: [
+			LaunchpadCommandLineHandler activateWithArguments:
+				#( 'launchpad' 'start' '--debug-mode' 'superluminal-service-discovery'
+				   '--consul-agent-location=http://consul:8500' '--message=Hello' '--retry-delay-in-ms=1' )
+			]
+		raise: HTTPError
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SuperluminalServiceDiscoveryExampleLauncherTest >> testActivateInReleaseMode [
 
-	| commandLine |
-
-	commandLine := CommandLineArguments withArguments:
-		               #( 'launchpad' 'start' 'superluminal-service-discovery'
-		                  '--consul-agent-location=http://consul:8500'
-		                  '--message=Hello' '--retry-delay-in-ms=1' ).
-
-	self should: [ LaunchpadCommandLineHandler activateWith: commandLine ]
+	self
+		should: [
+			LaunchpadCommandLineHandler activateWithArguments:
+				#( 'launchpad' 'start' 'superluminal-service-discovery' '--consul-agent-location=http://consul:8500'
+				   '--message=Hello' '--retry-delay-in-ms=1' )
+			]
 		raise: Exit
 		withExceptionDo: [ :exit | self deny: exit isSuccess ]
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SuperluminalServiceDiscoveryExampleLauncherTest >> testCommandName [
 
 	self assert: SuperluminalServiceDiscoveryExample commandName
 		equals: 'superluminal-service-discovery'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SuperluminalServiceDiscoveryExampleLauncherTest >> testDescription [
 
 	self assert: SuperluminalServiceDiscoveryExample description
 		equals: 'I''m a command line example using as dependency an echo API'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SuperluminalServiceDiscoveryExampleLauncherTest >> testHelp [
 
 	self assert:
diff --git a/source/Superluminal-Service-Discovery-Examples-Tests/package.st b/source/Superluminal-Service-Discovery-Examples-Tests/package.st
index 7a9cbec..5112c82 100644
--- a/source/Superluminal-Service-Discovery-Examples-Tests/package.st
+++ b/source/Superluminal-Service-Discovery-Examples-Tests/package.st
@@ -1 +1 @@
-Package { #name : #'Superluminal-Service-Discovery-Examples-Tests' }
+Package { #name : 'Superluminal-Service-Discovery-Examples-Tests' }