GemTalk/Rowan#953

Author: dalehenrich

README.md

@@ -1,11 +1,11 @@
-# RowanSample9V3 - spec_0001
-Bare bones package structure -Core and -Tests
+# RowanSample9V3 - spec_0089
+Start with spec_0001 and add 6 methods with selectors to test that we are using unicode codepoints for sorting, not unicode sort order.
 ```
 RwLoadSpecificationV2 {
-	#specName : 'spec_0001',
+	#specName : 'spec_0089',
 	#projectName : 'RowanSample9V3',
 	#gitUrl : '[email protected]:dalehenrich/RowanSample9V3.git',
-	#revision : 'spec_0001',
+	#revision : 'spec_0089',
 	#projectSpecFile : 'rowan/project.ston',
 	#componentNames : [
 		'Core'
@@ -20,21 +20,21 @@ RwLoadSpecificationV2 {
 			}
 		}
 	},
-	#comment : 'Bare bones package structure -Core and -Tests'
+	#comment : 'Start with spec_0001 and add 6 methods with selectors to test that we are using unicode codepoints for sorting, not unicode sort order.'
 }
 
 RwTestProjectLibraryIndexCard {
-	#name : 'index_0001',
-	#title : 'Bare bones package structure -Core and -Tests',
-	#specName : 'spec_0001',
-	#index : 1,
-	#derivedFrom : 'spec_0000',
-	#comment : 'One class per package: RowanSample9-Core and RowanSample9-Tests packages',
+	#name : 'index_0089',
+	#title : 'Start with spec_0001 and add 6 methods with selectors to test that we are using unicode codepoints for sorting, not unicode sort order.',
+	#specName : 'spec_0089',
+	#index : 89,
+	#derivedFrom : 'spec_0001',
+	#comment : '',
 	#rowanIssues : [
-		527
+		953
 	],
 	#gemstoneIssues : [ ],
-	#rowanSHA : '67c0952bc'
+	#rowanSHA : 'c6254d045'
 }
 ```
 

index_0001.ston

@@ -0,0 +1,13 @@
+RwTestProjectLibraryIndexCard {
+	#name : 'index_0089',
+	#title : 'Start with spec_0001 and add 6 methods with selectors to test that we are using unicode codepoints for sorting, not unicode sort order.',
+	#specName : 'spec_0089',
+	#index : 89,
+	#derivedFrom : 'spec_0001',
+	#comment : '',
+	#rowanIssues : [
+		953
+	],
+	#gemstoneIssues : [ ],
+	#rowanSHA : 'c6254d045'
+}

index_0089.ston

@@ -1,8 +1,8 @@
 RwLoadSpecificationV2 {
-	#specName : 'spec_0001',
+	#specName : 'spec_0089',
 	#projectName : 'RowanSample9V3',
 	#gitUrl : '[email protected]:dalehenrich/RowanSample9V3.git',
-	#revision : 'spec_0001',
+	#revision : 'spec_0089',
 	#projectSpecFile : 'rowan/project.ston',
 	#componentNames : [
 		'Core'
@@ -17,5 +17,5 @@ RwLoadSpecificationV2 {
 			}
 		}
 	},
-	#comment : 'Bare bones package structure -Core and -Tests'
+	#comment : 'Start with spec_0001 and add 6 methods with selectors to test that we are using unicode codepoints for sorting, not unicode sort order.'
 }

rowan/specs/spec_0001.ston rowan/specs/spec_0089.ston

@@ -10,6 +10,32 @@ Class {
 	#category : 'RowanSample9V3-Core'
 }
 
+{ #category : 'accessing' }
+RowanSample9V3Class1 class >> _123abc [      
+	^self
+]
+
+{ #category : 'accessing' }
+RowanSample9V3Class1 class >> _abc123 [ ^self
+]
+
+{ #category : 'accessing' }
+RowanSample9V3Class1 class >> _ABC123 [ ^self
+]
+
+{ #category : 'accessing' }
+RowanSample9V3Class1 class >> a_bc123 [ ^self
+]
+
+{ #category : 'accessing' }
+RowanSample9V3Class1 >> _123Abc [ 
+	^self
+]
+
+{ #category : 'accessing' }
+RowanSample9V3Class1 >> A_bc123 [      ^self
+]
+
 { #category : 'accessing' }
 RowanSample9V3Class1 >> foo [ ^1
 ]

src/RowanSample9V3-Core/RowanSample9V3Class1.class.st

@@ -10,3 +10,27 @@ Class {
 { #category : 'tests' }
 RowanSample9V3TestCase >> test [  self assert: RowanSample9V3Class1 new foo = 1
 ]
+
+{ #category : 'tests' }
+RowanSample9V3TestCase >> test3 [  self assert: RowanSample9V3Class1 new A_bc123
+]
+
+{ #category : 'tests' }
+RowanSample9V3TestCase >> test4 [  self assert: RowanSample9V3Class1 new _123Abc
+]
+
+{ #category : 'tests' }
+RowanSample9V3TestCase >> test5 [  self assert: RowanSample9V3Class1 new _123abc
+]
+
+{ #category : 'tests' }
+RowanSample9V3TestCase >> test6 [  self assert: RowanSample9V3Class1 new _ABC123
+]
+
+{ #category : 'tests' }
+RowanSample9V3TestCase >> test7 [  self assert: RowanSample9V3Class1 new _abc123
+]
+
+{ #category : 'tests' }
+RowanSample9V3TestCase >> test8 [  self assert: RowanSample9V3Class1 new a_bc123
+]