Make TBlAlignableTest a unit test with a mock element instead of usin…

…g linear layout

This removes an unneeded reference to Bloc-Layout package.

src/Bloc-Tests/BlMockAlignableElement.class.st

@@ -0,0 +1,38 @@
+"
+I'm a mock element for unit-testing `TBlAlignable`.
+"
+Class {
+	#name : #BlMockAlignableElement,
+	#superclass : #BlElement,
+	#traits : 'TBlAlignable',
+	#classTraits : 'TBlAlignable classTrait',
+	#instVars : [
+		'horizontalAlignment',
+		'verticalAlignment'
+	],
+	#category : #'Bloc-Tests-Layouts-Alignment'
+}
+
+{ #category : #accessing }
+BlMockAlignableElement >> horizontalAlignment [
+
+	^ horizontalAlignment
+]
+
+{ #category : #accessing }
+BlMockAlignableElement >> horizontalAlignment: aBlElementAlignment [
+
+	horizontalAlignment := aBlElementAlignment
+]
+
+{ #category : #accessing }
+BlMockAlignableElement >> verticalAlignment [
+
+	^ verticalAlignment
+]
+
+{ #category : #accessing }
+BlMockAlignableElement >> verticalAlignment: aBlElementAlignment [
+
+	verticalAlignment := aBlElementAlignment
+]

src/Bloc-Tests/TBlAlignableTest.class.st

@@ -12,85 +12,78 @@ Class {
 
 { #category : #running }
 TBlAlignableTest >> setUp [
-	super setUp.
-
-	element := BlElementAlignableTest new.
-	element layout: BlLinearLayout new.
-]
 
-{ #category : #running }
-TBlAlignableTest >> tearDown [
-	super tearDown.
+	super setUp.
 
-	element := nil
+	element := BlMockAlignableElement new
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignBottomCenter [
 
 	element alignBottomCenter.
-	self assert: element isAlignBottomCenter. 
+	self assert: element isAlignBottomCenter
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignBottomLeft [
 
 	element alignBottomLeft.
-	self assert: element isAlignBottomLeft.
+	self assert: element isAlignBottomLeft
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignBottomRight [
 
 	element alignBottomRight.
-	self assert: element isAlignBottomRight.
+	self assert: element isAlignBottomRight
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignCenter [
 
 	element alignCenter.
-	self assert: element isAlignCenter.
+	self assert: element isAlignCenter
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignCenterLeft [
 
 	element alignCenterLeft.
-	self assert: element isAlignCenterLeft.
+	self assert: element isAlignCenterLeft
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignCenterRight [
 
 	element alignCenterRight.
-	self assert: element isAlignCenterRight.
+	self assert: element isAlignCenterRight
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignNone [
 
 	element alignNone.
-	self assert: element isAlignNone.
+	self assert: element isAlignNone
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignTopCenter [
 
 	element alignTopCenter.
-	self assert: element isAlignTopCenter.
+	self assert: element isAlignTopCenter
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignTopLeft [
 
 	element alignTopLeft.
-	self assert: element isAlignTopLeft.
+	self assert: element isAlignTopLeft
 ]
 
 { #category : #test }
 TBlAlignableTest >> testAlignTopRight [
 
 	element alignTopRight.
-	self assert: element isAlignTopRight.
+	self assert: element isAlignTopRight
 ]