X Tutup
Skip to content

Commit 9cc20b8

Browse files
dalehenrichdalehenrich
committed
GemStone3.2 branch for glassdb/Seaside31#21 work
1 parent 58342e8 commit 9cc20b8

Some content is hidden

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

42 files changed

+265
-0
lines changed

‎repository/Grease-Tests-GemStone-Core.v32.package/.filetree‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
{
2+
"noMethodMetaData" : true,
3+
"separateMethodMetaAndSource" : false,
4+
"useCypressPropertiesFile" : true }

‎repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/README.md‎

‎repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
configuration
2+
arbitraryCollection
3+
^ 'fadbbc' asDoubleByteString

‎repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/instance/collectionClass.st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
configuration
2+
collectionClass
3+
^ DoubleByteString

‎repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/methodProperties.json‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
{
2+
"class" : {
3+
},
4+
"instance" : {
5+
"arbitraryCollection" : "DaleHenrichs 02/17/2011 17:09",
6+
"collectionClass" : "DaleHenrichs 02/17/2011 17:09" } }

‎repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/properties.json‎

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
{
2+
"category" : "Grease-Tests-GemStone-Core",
3+
"classinstvars" : [
4+
],
5+
"classvars" : [
6+
],
7+
"commentStamp" : "",
8+
"instvars" : [
9+
],
10+
"name" : "GRDoubleByteStringTest",
11+
"pools" : [
12+
],
13+
"super" : "GRStringTest",
14+
"type" : "normal" }

‎repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/README.md‎

‎repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st‎

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,16 @@
1+
testing
2+
testCompileIntoClassified
3+
| source protocol selectors selector |
4+
source := 'aMethod
5+
^ ''a result'''.
6+
protocol := 'a-protocol'.
7+
selector := #aMethod.
8+
9+
GRPlatform current compile: source into: self class classified: protocol.
10+
[
11+
self assert: (self class selectors includes: selector).
12+
selectors := self class organization listAtCategoryNamed: protocol.
13+
self assert: selectors = (Array with: selector).
14+
] ensure: [
15+
self class removeSelectorSilently: selector.
16+
].

‎repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
testing
2+
testConvertToSmalltalkNewlines
3+
"GemStone uses lf as native newline character"
4+
5+
| expected got codePoint euro |
6+
expected := 'selector', String lf, '"comment"'.
7+
got := GRPlatform current convertToSmalltalkNewlines: expected.
8+
codePoint := (got at: 9) codePoint.
9+
self assert: expected = got.
10+
self assert: expected = (GRPlatform current
11+
convertToSmalltalkNewlines: ('selector', String lf, '"comment"')).
12+
self assert: expected = (GRPlatform current
13+
convertToSmalltalkNewlines: ('selector', String crlf, '"comment"')).
14+
15+
euro := (String with: (Character value: 8364)).
16+
self assert: expected, euro = (GRPlatform current
17+
convertToSmalltalkNewlines: expected, euro).
18+
19+
self assert: (GRPlatform current convertToSmalltalkNewlines: nil) isNil

‎repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st‎

Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,12 @@
1+
as yet unclassified
2+
testEncoderForUtf8Roundtrip
3+
| codec encoded string writeStream |
4+
codec := GRCodec forEncoding: 'utf-8'.
5+
"byte array with utf8 encoded characters 'a umlaut' and 'a'"
6+
encoded := ByteArray with: 195 with: 164 with: 97.
7+
string := (codec decoderFor: encoded readStream) next: 10.
8+
self assert: string size = 2.
9+
self assert: (string at: 1) asciiValue = 228.
10+
self assert: (string at: 2) asciiValue = 97.
11+
writeStream := String new writeStream.
12+
self assert: ((codec encoderFor: writeStream) nextPutAll: string) contents = encoded.

0 commit comments

Comments
 (0)
X Tutup