From 85846835a1b6b7e23f07ad111ac3fb3ad5626132 Mon Sep 17 00:00:00 2001
From: Esteban Lorenzano <estebanlm@netc.eu>
Date: Wed, 29 Nov 2023 12:47:11 +0100
Subject: [PATCH] moved tests too

---
 .../SpEasyListViewPresenterTest.class.st      | 21 ++++++++++---------
 .../SpListViewPresenterTest.class.st          | 13 ++++++------
 src/Spec2-ListView-Tests/package.st           |  1 +
 src/Spec2-Tests/SpActionModifierTest.class.st | 10 +++++----
 4 files changed, 25 insertions(+), 20 deletions(-)
 rename src/{Spec2-Tests => Spec2-ListView-Tests}/SpEasyListViewPresenterTest.class.st (76%)
 rename src/{Spec2-Tests => Spec2-ListView-Tests}/SpListViewPresenterTest.class.st (59%)
 create mode 100644 src/Spec2-ListView-Tests/package.st

diff --git a/src/Spec2-Tests/SpEasyListViewPresenterTest.class.st b/src/Spec2-ListView-Tests/SpEasyListViewPresenterTest.class.st
similarity index 76%
rename from src/Spec2-Tests/SpEasyListViewPresenterTest.class.st
rename to src/Spec2-ListView-Tests/SpEasyListViewPresenterTest.class.st
index 39d627a0b..e15a99817 100644
--- a/src/Spec2-Tests/SpEasyListViewPresenterTest.class.st
+++ b/src/Spec2-ListView-Tests/SpEasyListViewPresenterTest.class.st
@@ -1,20 +1,21 @@
 Class {
-	#name : #SpEasyListViewPresenterTest,
-	#superclass : #SpListViewPresenterTest,
-	#category : #'Spec2-Tests-Core-Widgets'
+	#name : 'SpEasyListViewPresenterTest',
+	#superclass : 'SpListViewPresenterTest',
+	#category : 'Spec2-ListView-Tests',
+	#package : 'Spec2-ListView-Tests'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpEasyListViewPresenterTest >> classToTest [
 	
 	^ SpEasyListViewPresenter
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 SpEasyListViewPresenterTest >> initializeTestedInstance [
 ]
 
-{ #category : #'tests - header' }
+{ #category : 'tests - header' }
 SpEasyListViewPresenterTest >> testHideHeaderTitleUnsetsTitle [
 
 	presenter
@@ -24,7 +25,7 @@ SpEasyListViewPresenterTest >> testHideHeaderTitleUnsetsTitle [
 	self deny: presenter hasHeaderTitle
 ]
 
-{ #category : #'tests - header' }
+{ #category : 'tests - header' }
 SpEasyListViewPresenterTest >> testIconFor [
 	presenter
 		items: #(#add #back #catalog);
@@ -32,7 +33,7 @@ SpEasyListViewPresenterTest >> testIconFor [
 	self assert: (presenter iconFor: #add) equals: (Smalltalk ui icons iconNamed: #add)
 ]
 
-{ #category : #'tests - header' }
+{ #category : 'tests - header' }
 SpEasyListViewPresenterTest >> testSetHeaderTitleHasTitle [
 
 	presenter headerTitle: 'title'.
@@ -40,7 +41,7 @@ SpEasyListViewPresenterTest >> testSetHeaderTitleHasTitle [
 	self assert: presenter hasHeaderTitle
 ]
 
-{ #category : #'tests - header' }
+{ #category : 'tests - header' }
 SpEasyListViewPresenterTest >> testSetHeaderTitleSetsTitle [
 
 	presenter headerTitle: 'title'.
@@ -48,7 +49,7 @@ SpEasyListViewPresenterTest >> testSetHeaderTitleSetsTitle [
 	self assert: presenter headerTitle equals: 'title'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpEasyListViewPresenterTest >> testWhenIconsChangedDo [
 	| icon counter |
 
diff --git a/src/Spec2-Tests/SpListViewPresenterTest.class.st b/src/Spec2-ListView-Tests/SpListViewPresenterTest.class.st
similarity index 59%
rename from src/Spec2-Tests/SpListViewPresenterTest.class.st
rename to src/Spec2-ListView-Tests/SpListViewPresenterTest.class.st
index 2fb340338..f8817a952 100644
--- a/src/Spec2-Tests/SpListViewPresenterTest.class.st
+++ b/src/Spec2-ListView-Tests/SpListViewPresenterTest.class.st
@@ -1,16 +1,17 @@
 Class {
-	#name : #SpListViewPresenterTest,
-	#superclass : #SpAbstractListPresenterTest,
-	#category : #'Spec2-Tests-Core-Widgets'
+	#name : 'SpListViewPresenterTest',
+	#superclass : 'SpAbstractListPresenterTest',
+	#category : 'Spec2-ListView-Tests',
+	#package : 'Spec2-ListView-Tests'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpListViewPresenterTest >> classToTest [
 	
 	^ SpListViewPresenter
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 SpListViewPresenterTest >> initializeTestedInstance [
 
 	presenter
@@ -18,7 +19,7 @@ SpListViewPresenterTest >> initializeTestedInstance [
 		bind: [ :aPresenter :anObject | aPresenter label: anObject asString ]
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 SpListViewPresenterTest >> tearDown [
 
 	presenter withWindowDo: [ :w | w close ]
diff --git a/src/Spec2-ListView-Tests/package.st b/src/Spec2-ListView-Tests/package.st
new file mode 100644
index 000000000..8b580782f
--- /dev/null
+++ b/src/Spec2-ListView-Tests/package.st
@@ -0,0 +1 @@
+Package { #name : 'Spec2-ListView-Tests' }
diff --git a/src/Spec2-Tests/SpActionModifierTest.class.st b/src/Spec2-Tests/SpActionModifierTest.class.st
index 3faa5ba64..020f9690a 100644
--- a/src/Spec2-Tests/SpActionModifierTest.class.st
+++ b/src/Spec2-Tests/SpActionModifierTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #SpActionModifierTest,
-	#superclass : #TestCase,
-	#category : #'Spec2-Tests-Core'
+	#name : 'SpActionModifierTest',
+	#superclass : 'TestCase',
+	#category : 'Spec2-Tests-Core',
+	#package : 'Spec2-Tests',
+	#tag : 'Core'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpActionModifierTest >> testActionModifier [
 
 	self