issue #953: preparing to add RwTestProjectLibraryGeneratorV4 which will test support for unicode codePoint method sort order

Author: dalehenrich

rowan/src/Rowan-Core/RwDefinedProject.class.st

@@ -31,6 +31,16 @@ RwDefinedProject class >> newV2Named: aName [
 		yourself
 ]
 
+{ #category : 'instance creation' }
+RwDefinedProject class >> newV3Named: aName [
+	"Create a new project that uses project spec and component classes that are compatible with Rowan v3"
+
+	^ self new
+		initializeForName: aName;
+		_concreteProjectV3;
+		yourself
+]
+
 { #category : 'private' }
 RwDefinedProject >> _concreteProject [
 	"Create a new project that uses Rowan v3 project spec and component classes"
@@ -53,6 +63,28 @@ RwDefinedProject >> _concreteProjectV2 [
 				yourself ]
 ]
 
+{ #category : 'private' }
+RwDefinedProject >> _concreteProjectV3 [
+	"Create a new project that uses project spec and component classes that are compatible with Rowan v2"
+
+	^ concreteProject
+		ifNil: [ 
+			concreteProject := RwResolvedProjectV2 newV3
+				projectName: self name;
+				yourself ]
+]
+
+{ #category : 'private' }
+RwDefinedProject >> _concreteProjectV4 [
+	"Create a new project that uses project spec and component classes that are compatible with Rowan v4"
+
+	^ concreteProject
+		ifNil: [ 
+			concreteProject := RwResolvedProjectV2 newV4
+				projectName: self name;
+				yourself ]
+]
+
 { #category : 'private' }
 RwDefinedProject >> _gemstoneAllUsersName [
 	^ self _concreteProject _gemstoneAllUsersName

rowan/src/Rowan-Definitions-Common/RwAbstractResolvedObjectV2.class.st

@@ -18,11 +18,25 @@ RwAbstractResolvedObjectV2 class >> new [
 
 { #category : 'instance creation' }
 RwAbstractResolvedObjectV2 class >> newV2 [
-	"Create a new project that uses project spec and component classes that are compatible with Rowan v2"
+	"Create a new project that uses project spec and component classes that are default  for Rowan v2; read and written by Rowan v3"
 
 	^ self basicNew initializeV2
 ]
 
+{ #category : 'instance creation' }
+RwAbstractResolvedObjectV2 class >> newV3 [
+	"Create a new project that uses project spec and component classes that default for  Rowan v3; read and written by Rowan v4"
+
+	^ self basicNew initializeV3
+]
+
+{ #category : 'instance creation' }
+RwAbstractResolvedObjectV2 class >> newV4 [
+	"Create a new project that uses project spec and component classes that are default for Rowan v4"
+
+	^ self basicNew initializeV4
+]
+
 { #category : 'private' }
 RwAbstractResolvedObjectV2 >> _gemstoneAllUsersName [
 	^ self loadSpecification _gemstoneAllUsersName
@@ -159,18 +173,33 @@ RwAbstractResolvedObjectV2 >> groupNames: anArray [
 RwAbstractResolvedObjectV2 >> initialize [
 	"Create a new project that uses Rowan v3 project spec and component classes"
 
-	projectSpecification := RwProjectSpecificationV3 new.
-	loadSpecification := RwLoadSpecificationV2 new.
+	self initializeV3
 ]
 
 { #category : 'initialization' }
 RwAbstractResolvedObjectV2 >> initializeV2 [
-	"Create a new project that uses project spec and component classes that are compatible with Rowan v2"
+	"Create a new project that uses project spec and component classes that are default  for Rowan v2; read and written by Rowan v3"
 
 	projectSpecification := RwProjectSpecificationV2 new.
 	loadSpecification := RwLoadSpecificationV2 new.
 ]
 
+{ #category : 'initialization' }
+RwAbstractResolvedObjectV2 >> initializeV3 [
+	"Create a new project that uses Rowan v3 project spec and component classes default for  Rowan v3; read and written by Rowan v4"
+
+	projectSpecification := RwProjectSpecificationV3 new.
+	loadSpecification := RwLoadSpecificationV2 new.
+]
+
+{ #category : 'initialization' }
+RwAbstractResolvedObjectV2 >> initializeV4 [
+	"Create a new project that uses Rowan v3 project spec and component classes  default for  Rowan v4; read and written by Rowan v3"
+
+	projectSpecification := RwProjectSpecificationV4 new.
+	loadSpecification := RwLoadSpecificationV2 new.
+]
+
 { #category : 'testing' }
 RwAbstractResolvedObjectV2 >> isStrict [
 	^ self loadSpecification isStrict

rowan/src/Rowan-SpecificationsV2/RwProjectSpecificationV2.class.st

@@ -1,3 +1,10 @@
+"
+RwProjectSpecificationV2 is a project specification that is use by Rowan V2 and Rowan V3 to specify project-specific attributes for Rowan.
+
+Rowan 3 reads and writes projects that use this class.
+
+methodSortOrder is `unicode`
+"
 Class {
 	#name : 'RwProjectSpecificationV2',
 	#superclass : 'RwSpecification',
@@ -152,6 +159,13 @@ RwProjectSpecificationV2 >> loadedCommitId: aCommitId [
 	loadedCommitId := aCommitId
 ]
 
+{ #category : 'accessing' }
+RwProjectSpecificationV2 >> methodSortOrder [
+	"methods in tonel projects will be sorted in unicode sort order"
+
+	^ 'unicode'
+]
+
 { #category : 'accessing' }
 RwProjectSpecificationV2 >> packageConvention [
 	^ packageConvention ifNil: [ 'RowanHybrid' ]

rowan/src/Rowan-SpecificationsV2/RwProjectSpecificationV3.class.st

@@ -1,3 +1,8 @@
+"
+RwProjectSpecificationV3 is a project specification that is use by Rowan V3 to specify project-specific attributes for Rowan.
+
+Rowan versions 3.0.0 through 3.3.0 use this class.  Methods in tonel packages are sorted using unicode sort order
+"
 Class {
 	#name : 'RwProjectSpecificationV3',
 	#superclass : 'RwProjectSpecificationV2',

rowan/src/Rowan-SpecificationsV2/RwProjectSpecificationV4.class.st

@@ -0,0 +1,17 @@
+"
+RwProjectSpecificationV4 is a project specification that is use by Rowan V3.4.0 and beyond to specify project-specific attributes for Rowan.
+
+Projects managed using this class write tonel files that conform to the tonel spec. Specifically this class writes packages sorting methods based  Unicode codePoint sort
+"
+Class {
+	#name : 'RwProjectSpecificationV4',
+	#superclass : 'RwProjectSpecificationV3',
+	#category : 'Rowan-SpecificationsV2'
+}
+
+{ #category : 'accessing' }
+RwProjectSpecificationV4 >> methodSortOrder [
+	"methods in tonel projects will be sorted in unicode codePoint sort order"
+
+	^ 'codePoint'
+]