Merge pull request #362 from macta/better-legacy-exercise-support

Better legacy exercise support

Author: macta

dev/src/ExercismTests/ExercismExerciseTest.class.st

@@ -75,7 +75,8 @@ ExercismExerciseTest >> testExercisePackageTag [
 ExercismExerciseTest >> testFind [
 
 	self assert: (ExercismExercise find: 'hello-world' ifAbsent: [nil]) equals: HelloWorldTest exercise.
-	self assert: (ExercismExercise find: 'missing-exercise' ifAbsent: [ 'missing' ]) equals: 'missing'
+	self assert: (ExercismExercise find: 'missing-exercise' ifAbsent: [ 'missing' ]) equals: 'missing'.
+	self assert: (ExercismExercise find: 'missing-exercise' ifAbsent: [ :name | 'missing param' ]) equals: 'missing param' 
 ]
 
 { #category : #tests }

dev/src/ExercismTests/ExercismPackageTest.class.st

@@ -0,0 +1,17 @@
+Class {
+	#name : #ExercismPackageTest,
+	#superclass : #TestCase,
+	#category : #'ExercismTests-UnitTests'
+}
+
+{ #category : #tests }
+ExercismPackageTest >> testExerciseNameOnRPackage [
+	self assert: TestExerciseTest package exerciseName equals: 'ExerciseNormal'.
+	self assert: HelloWorldTest package exerciseName equals: 'HelloWorld'
+]
+
+{ #category : #tests }
+ExercismPackageTest >> testExerciseNameOnRPackageTag [
+	"Test legacy exerciseNames on RPackageTags"
+	self assert: self class package classTags anyOne exerciseName equals: 'UnitTests'.
+]

dev/src/ExercismTools/ClyExercismSubmitCommand.class.st

@@ -31,7 +31,7 @@ ClyExercismSubmitCommand >> description [
 ClyExercismSubmitCommand >> execute [
 	| exerciseName result |
 
-	exerciseName := ($@ split: self selectedItem name) last.
+	exerciseName := self selectedItem exerciseName.
 
 	[ result := ExercismManager default
 		submitToExercism:

dev/src/ExercismTools/ExercismExercise.class.st

@@ -56,7 +56,7 @@ ExercismExercise class >> find: exercismName ifAbsent: aBlock [
 	kebabedName := exercismName asKebabCase.
 	^ self allExercises
 		detect: [ :ex | ex name = kebabedName ]
-		ifNone: aBlock
+		ifNone: [ aBlock cull: exercismName ]
 ]
 
 { #category : #'instance creation' }

dev/src/ExercismTools/RPackage.extension.st

@@ -1,5 +1,10 @@
 Extension { #name : #RPackage }
 
+{ #category : #'*ExercismTools' }
+RPackage >> exerciseName [
+	^ (name allRegexMatches: '\w+') last
+]
+
 { #category : #'*ExercismTools' }
 RPackage >> root [
 	^self

dev/src/ExercismTools/RPackageTag.extension.st

@@ -5,6 +5,12 @@ RPackageTag >> definedClasses [
 	^ self classes
 ]
 
+{ #category : #'*ExercismTools' }
+RPackageTag >> exerciseName [
+	"Provided for legacy compatibility"
+	^self name
+]
+
 { #category : #'*ExercismTools' }
 RPackageTag >> promoteAsExercismRPackage [
 	"This method converts this rpackage tag into an rpackage compatible with exercism"