Add unit tests for string methods

marschall · marschall · commit d05db984fe49 · 2022-08-25T10:34:26.000+02:00
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/doSilently..st b/repository/Grease-Core.package/GRPlatform.class/instance/doSilently..st
@@ -0,0 +1,4 @@
+file library
+doSilently: aBlock
+	"Suspend all notifications value evaluating the given block."
+	^ aBlock value
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/runCase.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/runCase.st
@@ -0,0 +1,3 @@
+running
+runCase
+	GRPlatform current doSilently: [ super runCase ]
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/supportsUnicode.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/supportsUnicode.st
@@ -0,0 +1,10 @@
+private
+supportsUnicode
+	"dynamically try to figure out whether the current dialect supports Unicode"
+	^ [ 
+		String
+			with: (Character value: 16r1F1F3)
+			with: (Character value: 16r1F1F1).
+		true
+	 ] on: Error
+		do: [ :error | false ]
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st
@@ -0,0 +1,17 @@
+tests-file library
+testCompileAsciiString
+	| selector expected source |
+	
+	self supportsUnicode ifFalse: [
+		^ self ].
+	
+	selector := #stringMethod.
+	expected := 'test ok'.
+	source := GRPlatform current asMethodReturningString: expected named: selector.
+	[ 
+		| actual |
+		GRPlatform current compile: source into: self class classified: 'private'.
+		actual := self perform: selector.
+		self assert: expected = actual
+	] ensure: [ 
+		GRPlatform current removeSelector: #stringMethod from: self class ]
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st
@@ -0,0 +1,15 @@
+tests-file library
+testCompileUnicodeString
+	| selector expected source |
+	selector := #stringMethod.
+	expected := String
+		with: (Character value: 16r1F1F3)
+		with: (Character value: 16r1F1F1).
+	source := GRPlatform current asMethodReturningString: expected named: selector.
+	[ 
+		| actual |
+		GRPlatform current compile: source into: self class classified: 'private'.
+		actual := self perform: selector.
+		self assert: expected = actual
+	] ensure: [ 
+		GRPlatform current removeSelector: #stringMethod from: self class ]

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+running`
	`2`	`+runCase`
	`3`	`+ GRPlatform current doSilently: [ super runCase ]`