X Tutup
Skip to content

Commit be5b51c

Browse files
author
Johan Brichau
committed
Renamed Grease-Pharo20-Tests-Core to Grease-Tests-Pharo-Core
1 parent 5804e12 commit be5b51c

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

45 files changed

+328
-6
lines changed

repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -74,10 +74,10 @@ baseline: spec
7474
with: [
7575
spec
7676
requires: #('Grease-Pharo30-Core');
77-
includes: #('Grease-Tests-Pharo20-Core') ];
77+
includes: #('Grease-Tests-Pharo-Core') ];
7878
package: 'Grease-Pharo30-Core'
7979
with: [ spec requires: #('Grease-Core') ];
80-
package: 'Grease-Tests-Pharo20-Core'
80+
package: 'Grease-Tests-Pharo-Core'
8181
with: [ spec requires: #('Grease-Tests-Core') ];
8282
package: 'Grease-Pharo40-Slime'
8383
with: [ spec requires: #('Grease-Core') ];
@@ -96,10 +96,10 @@ baseline: spec
9696
with: [
9797
spec
9898
requires: #('Grease-Pharo60-Core');
99-
includes: #('Grease-Tests-Pharo20-Core') ];
99+
includes: #('Grease-Tests-Pharo-Core') ];
100100
package: 'Grease-Pharo60-Core'
101101
with: [ spec requires: #('Grease-Core') ];
102-
package: 'Grease-Tests-Pharo20-Core'
102+
package: 'Grease-Tests-Pharo-Core'
103103
with: [ spec requires: #('Grease-Tests-Core') ];
104104
package: 'Grease-Pharo40-Slime'
105105
with: [ spec requires: #('Grease-Core') ];
@@ -116,10 +116,10 @@ baseline: spec
116116
package: 'Grease-Core'
117117
with: [ spec includes: #('Grease-Pharo70-Core') ];
118118
package: 'Grease-Tests-Core'
119-
with: [ spec requires: #('Grease-Pharo70-Core'); includes: #('Grease-Tests-Pharo20-Core') ];
119+
with: [ spec requires: #('Grease-Pharo70-Core'); includes: #('Grease-Tests-Pharo-Core') ];
120120
package: 'Grease-Pharo70-Core'
121121
with: [ spec requires: #('Grease-Core') ];
122-
package: 'Grease-Tests-Pharo20-Core'
122+
package: 'Grease-Tests-Pharo-Core'
123123
with: [ spec requires: #('Grease-Tests-Core') ];
124124
package: 'Grease-Pharo40-Slime'
125125
with: [ spec requires: #('Grease-Core') ];
Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
{
2+
"separateMethodMetaAndSource" : false,
3+
"noMethodMetaData" : true,
4+
"useCypressPropertiesFile" : true
5+
}
Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
*Grease-Tests-Pharo-Core
2+
greaseTestsPharo20Core
3+
^ self new
4+
name: 'Grease-Tests-Pharo20-Core';
5+
description: 'Unit tests for the package Grease-Pharo-Core.';
6+
addDependency: 'Grease-Pharo20-Core';
7+
addDependency: 'Grease-Tests-Core';
8+
url: #greaseUrl;
9+
yourself
Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
{
2+
"name" : "GRPackage"
3+
}

repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/README.md

Whitespace-only changes.
Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
private
2+
assert: aString next: anInteger startingAt: startIndex gives: anEncodedString
3+
| actual |
4+
actual := String streamContents: [ :stream |
5+
((GRCodec forEncoding: 'utf-8') encoderFor: stream)
6+
greaseNext: anInteger putAll: aString startingAt: startIndex ].
7+
self assert: actual = anEncodedString
Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
private
2+
assertEncodingIgnoresLanguageTat: aStringWithLanguageTag
3+
| codec withLanguageTag withoutLanguageTag |
4+
codec := GRCodec forEncoding: 'utf-8'.
5+
withLanguageTag := codec encode: aStringWithLanguageTag.
6+
withoutLanguageTag := codec encode: (self stripLeadingCharFrom: aStringWithLanguageTag).
7+
self assert: withLanguageTag = withoutLanguageTag
Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
private
2+
stripLeadingCharFrom: aString
3+
"strips the leadingChar from every character in the given string"
4+
^ String streamContents: [ :stream |
5+
aString do: [ :each |
6+
stream nextPut: (Character
7+
leadingChar: 0
8+
code: each greaseInteger) ] ]
Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
tests
2+
testAllCodesIncludesIso88591
3+
self assert: (GRCodec allCodecs anySatisfy: [ :each |
4+
each name = 'iso-8859-1' ])
Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
tests
2+
testGreaseNextPutAllStartingAt
3+
| umlaut encodedUmlaut |
4+
umlaut := String with: (Character codePoint: 228).
5+
encodedUmlaut := String with: (Character codePoint: 195) with: (Character codePoint: 164).
6+
self assert: 'ab' next: 1 startingAt: 1 gives: 'a'.
7+
self assert: 'a', umlaut, 'b' next: 1 startingAt: 1 gives: 'a'.
8+
self assert: 'ab', umlaut next: 1 startingAt: 1 gives: 'a'.
9+
self assert: 'a', umlaut, 'b' next: 2 startingAt: 1gives: 'a', encodedUmlaut.
10+
self assert: 'a', umlaut, 'b' next: 1 startingAt: 2 gives: encodedUmlaut.
11+
self assert: 'a', umlaut, 'b' next: 2 startingAt: 2 gives: encodedUmlaut, 'b'.
12+
self assert: 'a', umlaut, umlaut next: 2 startingAt: 2 gives: encodedUmlaut, encodedUmlaut.
13+
self assert: 'ab', umlaut, 'b', umlaut next: 3 startingAt: 2 gives: 'b', encodedUmlaut, 'b'

0 commit comments

Comments
 (0)
X Tutup