Poc of rowan support for GS64

rowan/components/Deployment.ston

@@ -0,0 +1,17 @@
+RwSimpleProjectLoadComponentV2 {
+	#name : 'Deployment',
+	#condition : 'common',
+	#projectNames : [ ],
+	#componentNames : [ ],
+	#packageNames : [
+		'Buoy-Assertions',
+		'Buoy-Collections',
+		'Buoy-Comparison',
+		'Buoy-Conditions',
+		'Buoy-Dynamic-Binding',
+		'Buoy-Exception-Handling',
+		'Buoy-Math',
+		'Buoy-Metaprogramming'
+	],
+	#comment : ''
+}

rowan/components/Development.ston

@@ -0,0 +1,10 @@
+RwSimpleProjectLoadComponentV2 {
+	#name : 'Development',
+	#condition : 'common',
+	#projectNames : [ ],
+	#componentNames : [
+		'Tests'
+	],
+	#packageNames : [ ],
+	#comment : ''
+}

rowan/components/SUnit-Dependent-Extensions.ston

@@ -0,0 +1,10 @@
+RwSimpleProjectLoadComponentV2 {
+	#name : 'SUnit-Dependent-Extensions',
+	#condition : 'common',
+	#projectNames : [ ],
+	#componentNames : [ ],
+	#packageNames : [
+		'Buoy-SUnit-Model'
+	],
+	#comment : ''
+}

rowan/components/Tests.ston

@@ -0,0 +1,21 @@
+RwSimpleProjectLoadComponentV2 {
+	#name : 'Tests',
+	#condition : 'common',
+	#projectNames : [ ],
+	#componentNames : [
+		'Deployment',
+		'SUnit-Dependent-Extensions'
+	],
+	#packageNames : [
+		'Buoy-Assertions-Tests',
+		'Buoy-Collections-Tests',
+		'Buoy-Comparison-Tests',
+		'Buoy-Conditions-Tests',
+		'Buoy-Dynamic-Binding-Tests',
+		'Buoy-Exception-Handling-Tests',
+		'Buoy-Math-Tests',
+		'Buoy-Metaprogramming-Tests',
+		'Buoy-SUnit-Tests'
+	],
+	#comment : ''
+}

rowan/project.ston

@@ -0,0 +1,11 @@
+RwProjectSpecificationV2 {
+	#specName : 'project',
+	#projectSpecPath : 'rowan',
+	#componentsPath : 'rowan/components',
+	#packagesPath : 'source',
+	#projectsPath : 'rowan/projects',
+	#specsPath : 'rowan/specs',
+	#packageFormat : 'tonel',
+	#packageConvention : 'Rowan',
+	#comment : 'This project aims to complement Pharo adding useful extensions.'
+}

rowan/specs/Buoy-CI.ston

@@ -0,0 +1,17 @@
+RwLoadSpecificationV2 {
+  #specName: 'Buoy-CI',
+	#projectName : 'Buoy',
+  #diskUrl : '/opt/gemstone/data/Buoy',
+	#projectSpecFile : 'rowan/project.ston',
+	#componentNames : [
+		'Tests'
+	],
+	#platformProperties : {
+		'gemstone' : {
+			'allusers' : {
+				#defaultSymbolDictName : 'Buoy'
+			}
+		}
+	},
+	#comment : 'Loading spec for the continuous integration setup'
+}

source/.properties

@@ -1,3 +1,4 @@
 {
-	#format : #tonel
+	#format : #tonel,
+  #convention : 'Rowan'
 }

source/Buoy-Assertions/NotFound.class.st

@@ -0,0 +1,8 @@
+"
+I'm an exception expecting to be raised when someone tries to access an object and cannot be found
+"
+Class {
+	#name : #NotFound,
+	#superclass : #Error,
+	#category : #'Buoy-Assertions'
+}

source/Buoy-Assertions/SubscriptOutOfBounds.class.st

@@ -0,0 +1,8 @@
+"
+I'm an exception expecting to be raised when someone tries to access an object and cannot be found
+"
+Class {
+	#name : #SubscriptOutOfBounds,
+	#superclass : #Error,
+	#category : #'Buoy-Assertions'
+}

source/Buoy-Math/ArithmeticError.class.st

@@ -0,0 +1,8 @@
+"
+I'm an exception expecting to be raised when someone tries to access an object and cannot be found
+"
+Class {
+	#name : #ArithmeticError,
+	#superclass : #Error,
+	#category : #'Buoy-Math'
+}

source/Buoy-Metaprogramming/Object.extension.st

@@ -11,3 +11,9 @@ Object >> isAn: aClass [
 
 	^self isA: aClass
 ]
+
+{ #category : #'*Buoy-Metaprogramming' }
+Object class >> new [
+
+	^super new initialize
+]

source/Buoy-SUnit-Model/TestAsserter.extension.st

@@ -33,6 +33,24 @@ TestAsserter >> should: aBlock raise: anException withMessageText: aString [
 		withExceptionDo: [ :error | self assert: error messageText equals: aString ]
 ]
 
+
+{ #category : #'*Buoy-SUnit-Model' }
+TestAsserter >> should: aBlock raise: anException withExceptionDo: anotherBlock [
+
+	| exceptionWasRaised |
+
+	exceptionWasRaised :=
+		[
+			aBlock value.
+			false]
+				sunitOn: anException
+				do: [:aSignal |
+					anotherBlock value: aSignal.
+					aSignal sunitExitWith: true].
+
+	^self assert: exceptionWasRaised
+]
+
 { #category : #'*Buoy-SUnit-Model' }
 TestAsserter >> withTheOnlyOneIn: aCollection do: aBlock [