resin 0.2.2 → 0.2.3

data/amber/st/Kernel-Exceptions.st

@@ -75,6 +75,20 @@ receiver: anObject
 	receiver := anObject
 ! !
 
+Error subclass: #NonBooleanReceiver
+	instanceVariableNames: 'object'
+	package: 'Kernel-Exceptions'!
+
+!NonBooleanReceiver methodsFor: 'accessing'!
+
+object
+	^ object
+!
+
+object: anObject
+	object := anObject
+! !
+
 Object subclass: #ErrorHandler
 	instanceVariableNames: ''
 	package: 'Kernel-Exceptions'!

data/amber/st/Kernel-Methods.st

@@ -181,6 +181,10 @@ methodClass
 	^self basicAt: 'methodClass'
 !
 
+protocol
+	^ self category
+!
+
 referencedClasses
 	^self basicAt: 'referencedClasses'
 !
@@ -241,7 +245,7 @@ printString
 !
 
 sendTo: anObject
-	Smalltalk current send: self selector to: anObject arguments: self arguments
+	^ Smalltalk current send: self selector to: anObject arguments: self arguments
 ! !
 
 !Message class methodsFor: 'instance creation'!
@@ -273,6 +277,10 @@ home
 	<return self.homeContext>
 !
 
+pc
+	<return self.pc>
+!
+
 printString
 	^super printString, '(', self asString, ')'
 !

data/amber/st/Kernel-Objects.st

@@ -83,6 +83,10 @@ size
 	self error: 'Object not indexable'
 !
 
+value
+	^ self
+!
+
 yourself
 	^self
 ! !
@@ -196,6 +200,10 @@ subclassResponsibility
 	self error: 'This method is a responsibility of a subclass'
 !
 
+throw: anObject
+	< throw anObject >
+!
+
 try: aBlock catch: anotherBlock
 	<try{result = aBlock()} catch(e) {result = anotherBlock(e)};
 	return result;>
@@ -752,6 +760,10 @@ identityHash
 	<return self % aNumber>
 !
 
+abs
+	^ <Math.abs(self);>
+!
+
 max: aNumber
 	<return Math.max(self, aNumber);>
 !
@@ -1353,8 +1365,8 @@ It requires the `Compiler` package and the `js/parser.js` parser file in order t
 
 !Smalltalk methodsFor: 'accessing'!
 
-at: aString
-	<return self[aString]>
+at: aSymbol
+	<return self[aSymbol._asString()]>
 !
 
 basicParse: aString
@@ -1383,7 +1395,7 @@ parseError: anException parsing: aString
 	code := String streamContents: [:s |
                   lines withIndexDo: [:l :i |
                      s nextPutAll: i asString, ': ', l, String lf]].
-	^ Error new messageText: ('Parse error on line ' , row , ' column ' , col , ' : ' , message , ' Below is code with line numbers and ===> marker inserted:' , String lf, code)
+	^ ParseError new messageText: ('Parse error on line ' , row , ' column ' , col , ' : ' , message , ' Below is code with line numbers and ===> marker inserted:' , String lf, code)
 !
 
 readJSObject: anObject
@@ -1398,18 +1410,26 @@ reservedWords
 send: aSelector to: anObject arguments: aCollection
 	| selector |
 	selector := aSelector asString asSelector.
-	<self.send(anObject, selector, aCollection)>
+	<return self.send(anObject, selector, aCollection)>
 ! !
 
 !Smalltalk methodsFor: 'classes'!
 
 removeClass: aClass
 	aClass isMetaclass ifTrue: [self error: aClass asString, ' is a Metaclass and cannot be removed!!'].
+    
 	aClass methodDictionary values do: [:each |
 		aClass removeCompiledMethod: each].
+        
 	aClass class methodDictionary values do: [:each |
 		aClass class removeCompiledMethod: each].
-	self basicDelete: aClass name
+        
+	self basicDelete: aClass name.
+    
+    SystemAnnouncer current
+    	announce: (ClassRemoved new
+        	theClass: aClass;
+            yourself)
 ! !
 
 !Smalltalk methodsFor: 'packages'!
@@ -1428,6 +1448,10 @@ packages
 	<return self.packages.all()>
 !
 
+pseudoVariableNames
+	^ #('self' 'super' 'nil' 'true' 'false' 'thisContext')
+!
+
 removePackage: packageName
 	"Removes a package and all its classes."
 

data/amber/st/Kernel-Tests.st

@@ -1,29 +1,4 @@
 Smalltalk current createPackage: 'Kernel-Tests' properties: #{}!
-TestCase subclass: #ArrayTest
-	instanceVariableNames: ''
-	package: 'Kernel-Tests'!
-
-!ArrayTest methodsFor: 'testing'!
-
-testAtIfAbsent
-	| array |
-	array := #('hello' 'world').
-	self assert: (array at: 1) equals: 'hello'.
-	self assert: (array at: 2) equals: 'world'.
-	self assert: (array at: 2 ifAbsent: ['not found']) equals: 'world'.
-	self assert: (array at: 0 ifAbsent: ['not found']) equals: 'not found'.
-	self assert: (array at: -10 ifAbsent: ['not found']) equals: 'not found'.
-	self assert: (array at: 3 ifAbsent: ['not found']) equals: 'not found'.
-!
-
-testFirstN
-	self assert: {1. 2. 3} equals: ({1. 2. 3. 4. 5} first: 3).
-!
-
-testIfEmpty
-	self assert: 'zork' equals: ( '' ifEmpty: ['zork'] )
-! !
-
 TestCase subclass: #BlockClosureTest
 	instanceVariableNames: ''
 	package: 'Kernel-Tests'!
@@ -204,10 +179,169 @@ testInstanceVariableNames
 	self assert: (builder instanceVariableNamesFor: '  hello   world   ') equals: #('hello' 'world')
 ! !
 
-TestCase subclass: #DictionaryTest
+TestCase subclass: #CollectionTest
+	instanceVariableNames: ''
+	package: 'Kernel-Tests'!
+
+!CollectionTest methodsFor: 'accessing'!
+
+collection
+	^ self collectionClass withAll: self defaultValues
+!
+
+collectionClass
+	^ self class collectionClass
+!
+
+collectionWithDuplicates
+	^ self collectionClass withAll: #('a' 'b' 'c' 1 2 1 'a')
+!
+
+defaultValues
+	^ #(1 2 3 -4)
+! !
+
+!CollectionTest methodsFor: 'convenience'!
+
+assertSameContents: aCollection 	as: anotherCollection
+	self assert: aCollection size = anotherCollection size.
+	aCollection do: [ :each |
+		self assert: (aCollection occurrencesOf: each) = (anotherCollection occurrencesOf: each) ]
+! !
+
+!CollectionTest methodsFor: 'testing'!
+
+isCollectionReadOnly
+	^ false
+! !
+
+!CollectionTest methodsFor: 'tests'!
+
+testAsArray
+	self 
+		assertSameContents: self collection 
+		as: self collection asArray
+!
+
+testAsOrderedCollection
+	self 
+		assertSameContents: self collection 
+		as: self collection asOrderedCollection
+!
+
+testAsSet
+	| c set |
+	c := self collectionWithDuplicates.
+	set := c asSet.
+	self assert: set size = 5.
+	c do: [ :each |
+		self assert: (set includes: each) ]
+!
+
+testCollect
+	| newCollection |
+	newCollection :=  #(1 2 3 4).
+	self 
+		assertSameContents: (self collection collect: [ :each |
+			each abs ])
+		as: newCollection
+!
+
+testDetect
+	self assert: (self collection detect: [ :each | each < 0 ]) = -4.
+	self 
+		should: [ self collection detect: [ :each | each = 6 ] ]
+		raise: Error
+!
+
+testDo
+	| newCollection |
+	newCollection := OrderedCollection new.
+	self collection do: [ :each |
+		newCollection add: each ].
+	self 
+		assertSameContents: self collection 
+		as: newCollection
+!
+
+testIsEmpty
+	self assert: self collectionClass new isEmpty.
+	self deny: self collection isEmpty
+!
+
+testSelect
+	| newCollection |
+	newCollection := #(2 -4).
+	self 
+		assertSameContents: (self collection select: [ :each |
+			each even ])
+		as: newCollection
+!
+
+testSize
+	self assert: self collectionClass new size = 0.
+	self assert: self collection size = 4
+! !
+
+!CollectionTest class methodsFor: 'accessing'!
+
+collectionClass
+	^ nil
+! !
+
+!CollectionTest class methodsFor: 'testing'!
+
+isAbstract
+	^ self collectionClass isNil
+! !
+
+CollectionTest subclass: #HashedCollectionTest
 	instanceVariableNames: ''
 	package: 'Kernel-Tests'!
 
+!HashedCollectionTest methodsFor: 'accessing'!
+
+collection
+	^ #{ 'a' -> 1. 'b' -> 2. 'c' -> 3. 'd' -> -4 }
+!
+
+collectionWithDuplicates
+	^ #{ 'a' -> 1. 'b' -> 2. 'c' -> 3. 'd' -> -4. 'e' -> 1. 'f' -> 2. 'g' -> 10 }
+! !
+
+!HashedCollectionTest class methodsFor: 'accessing'!
+
+collectionClass
+	^ HashedCollection
+! !
+
+HashedCollectionTest subclass: #DictionaryTest
+	instanceVariableNames: ''
+	package: 'Kernel-Tests'!
+
+!DictionaryTest methodsFor: 'accessing'!
+
+collection
+	^ Dictionary new
+		at: 1 put: 1;
+		at: 'a' put: 2;
+		at: true put: 3;
+		at: 4 put: -4;
+		yourself
+!
+
+collectionWithDuplicates
+	^ Dictionary new
+		at: 1 put: 1;
+		at: 'a' put: 2;
+		at: true put: 3;
+		at: 4 put: -4;
+		at: 'b' put: 1;
+		at: 3 put: 3;
+		at: false put: 12;
+		yourself
+! !
+
 !DictionaryTest methodsFor: 'tests'!
 
 testAccessing
@@ -250,6 +384,44 @@ testEquality
 	self deny: d1 = d2.
 !
 
+testIfAbsent
+
+	| d visited |
+	visited := false.
+	d := Dictionary new.
+
+	d at: 'hello' ifAbsent: [ visited := true ].
+	self assert: visited.
+!
+
+testIfPresent
+
+	| d visited absent |
+	visited := false.
+	d := Dictionary new.
+	d at: 'hello' put: 'world'.
+
+	d at: 'hello' ifPresent: [ :value | visited := value ].
+	self assert: visited = 'world'.
+
+	absent := d at: 'bye' ifPresent: [ :value | visited := value ].
+	self assert: absent isNil.
+!
+
+testIfPresentIfAbsent
+
+	| d visited |
+	visited := false.
+	d := Dictionary new.
+	d at: 'hello' put: 'world'.
+
+	d at: 'hello' ifPresent: [ :value | visited := value ] ifAbsent: [ visited := true ].
+	self assert: visited = 'world'.
+
+	d at: 'buy' ifPresent: [ :value | visited := value ] ifAbsent: [ visited := true ].
+	self assert: visited.
+!
+
 testKeys
 	| d |
 
@@ -263,7 +435,7 @@ testKeys
 
 testPrintString
 	self
-		assert: 'a Dictionary(''firstname'' -> ''James'' , ''lastname'' -> ''Bond'')' 
+		assert: 'a Dictionary(''firstname''->''James'' , ''lastname''->''Bond'')' 
 		equals: (Dictionary new 
                          	at:'firstname' put: 'James';
                         	at:'lastname' put: 'Bond';
@@ -330,6 +502,313 @@ testValues
 	self assert: d values = #(2 3 4)
 ! !
 
+!DictionaryTest class methodsFor: 'accessing'!
+
+collectionClass
+	^ Dictionary
+! !
+
+CollectionTest subclass: #SequenceableCollectionTest
+	instanceVariableNames: ''
+	package: 'Kernel-Tests'!
+
+!SequenceableCollectionTest methodsFor: 'tests'!
+
+testAt
+	self assert: (self collection at: 4) = -4.
+	self should: [ self collection at: 5 ] raise: Error
+!
+
+testAtIfAbsent
+	self assert: (self collection at: (self collection size + 1) ifAbsent: [ 'none' ]) = 'none'
+! !
+
+SequenceableCollectionTest subclass: #ArrayTest
+	instanceVariableNames: ''
+	package: 'Kernel-Tests'!
+
+!ArrayTest methodsFor: 'testing'!
+
+testAtIfAbsent
+	| array |
+	array := #('hello' 'world').
+	self assert: (array at: 1) equals: 'hello'.
+	self assert: (array at: 2) equals: 'world'.
+	self assert: (array at: 2 ifAbsent: ['not found']) equals: 'world'.
+	self assert: (array at: 0 ifAbsent: ['not found']) equals: 'not found'.
+	self assert: (array at: -10 ifAbsent: ['not found']) equals: 'not found'.
+	self assert: (array at: 3 ifAbsent: ['not found']) equals: 'not found'.
+!
+
+testFirstN
+	self assert: {1. 2. 3} equals: ({1. 2. 3. 4. 5} first: 3).
+!
+
+testIfEmpty
+	self assert: 'zork' equals: ( '' ifEmpty: ['zork'] )
+!
+
+testPrintString
+	| array |
+	array := Array new.
+	self assert: 'a Array ()' equals: ( array printString ).
+	array add: 1; add: 3.
+	self assert: 'a Array (1 3)' equals: ( array printString ).
+	array add: 'foo'.
+	self assert: 'a Array (1 3 ''foo'')' equals: ( array printString ).
+	array remove: 1; remove: 3.
+	self assert: 'a Array (''foo'')' equals: ( array printString ).
+	array addLast: 3.
+	self assert: 'a Array (''foo'' 3)' equals: ( array printString ).
+	array addLast: 3.
+	self assert: 'a Array (''foo'' 3 3)' equals: ( array printString ).
+! !
+
+!ArrayTest class methodsFor: 'accessing'!
+
+collectionClass
+	^ Array
+! !
+
+SequenceableCollectionTest subclass: #StringTest
+	instanceVariableNames: ''
+	package: 'Kernel-Tests'!
+
+!StringTest methodsFor: 'accessing'!
+
+collection
+	^'hello'
+!
+
+collectionWithDuplicates
+	^ 'abbaerte'
+! !
+
+!StringTest methodsFor: 'tests'!
+
+testAddRemove
+	self should: ['hello' add: 'a'] raise: Error.
+	self should: ['hello' remove: 'h'] raise: Error
+!
+
+testAsArray
+	self assert: 'hello' asArray = #('h' 'e' 'l' 'l' 'o').
+!
+
+testAt
+	self assert: ('hello' at: 1) = 'h'.
+	self assert: ('hello' at: 5) = 'o'.
+	self assert: ('hello' at: 6 ifAbsent: [nil]) = nil
+!
+
+testAtPut
+	"String instances are read-only"
+	self should: ['hello' at: 1 put: 'a'] raise: Error
+!
+
+testCollect
+	| newCollection |
+	newCollection := 'hheelllloo'.
+	self 
+		assertSameContents: (self collection collect: [ :each |
+			each, each ])
+		as: newCollection
+!
+
+testCopyWithoutAll
+	self 
+		assert: 'hello world' 
+		equals: ('*hello* *world*' copyWithoutAll: '*')
+!
+
+testDetect
+	self assert: (self collection detect: [ :each | each = 'h' ]) = 'h'.
+	self 
+		should: [ self collection detect: [ :each | each = 6 ] ]
+		raise: Error
+!
+
+testEquality
+	self assert: 'hello' = 'hello'.
+	self deny: 'hello' = 'world'.
+
+	self assert: 'hello'  = 'hello' yourself.
+	self assert: 'hello' yourself = 'hello'.
+
+	"test JS falsy value"
+	self deny: '' = 0
+!
+
+testIdentity
+	self assert: 'hello' == 'hello'.
+	self deny: 'hello' == 'world'.
+
+	self assert: 'hello' == 'hello' yourself.
+	self assert: 'hello' yourself == 'hello'.
+
+	"test JS falsy value"
+	self deny: '' == 0
+!
+
+testIncludesSubString
+	self assert: ('amber' includesSubString: 'ber').
+	self deny: ('amber' includesSubString: 'zork').
+!
+
+testJoin
+	self assert: 'hello,world' equals: (',' join: #('hello' 'world'))
+!
+
+testSelect
+	| newCollection |
+	newCollection := 'o'.
+	self 
+		assertSameContents: (self collection select: [ :each |
+			each = 'o' ])
+		as: newCollection
+!
+
+testSize
+	self assert: 'smalltalk' size equals: 9.
+	self assert: '' size equals: 0
+!
+
+testStreamContents
+	self 
+		assert: 'hello world' 
+		equals: (String streamContents: [ :aStream | 
+			aStream 
+				nextPutAll: 'hello'; space; 
+				nextPutAll: 'world' ])
+! !
+
+!StringTest class methodsFor: 'accessing'!
+
+collectionClass
+	^ String
+! !
+
+SequenceableCollectionTest subclass: #SymbolTest
+	instanceVariableNames: ''
+	package: 'Kernel-Tests'!
+
+!SymbolTest methodsFor: 'accessing'!
+
+collection
+	^ #hello
+!
+
+collectionWithDuplicates
+	^ #phhaaarorra
+! !
+
+!SymbolTest methodsFor: 'tests'!
+
+testAsString
+	self assert: #hello asString equals: 'hello'
+!
+
+testAsSymbol
+	self assert: #hello == #hello asSymbol
+!
+
+testAt
+	self assert: (#hello at: 1) = 'h'.
+	self assert: (#hello at: 5) = 'o'.
+	self assert: (#hello at: 6 ifAbsent: [nil]) = nil
+!
+
+testAtPut
+	"Symbol instances are read-only"
+	self should: ['hello' at: 1 put: 'a'] raise: Error
+!
+
+testCollect
+	| newCollection |
+	newCollection := #hheelllloo.
+	self 
+		assertSameContents: (self collection collect: [ :each |
+			each, each ])
+		as: newCollection
+!
+
+testComparing
+	self assert: #ab > #aa.
+	self deny: #ab > #ba.
+
+	self assert: #ab < #ba.
+	self deny: #bb < #ba.
+
+	self assert: #ab >= #aa.
+	self deny: #ab >= #ba.
+
+	self assert: #ab <= #ba.
+	self deny: #bb <= #ba
+!
+
+testCopying
+	self assert: #hello copy == #hello.
+	self assert: #hello deepCopy == #hello
+!
+
+testDetect
+	self assert: (self collection detect: [ :each | each = 'h' ]) = 'h'.
+	self 
+		should: [ self collection detect: [ :each | each = 'z' ] ]
+		raise: Error
+!
+
+testEquality
+	self assert: #hello = #hello.
+	self deny: #hello = #world.
+
+	self assert: #hello  = #hello yourself.
+	self assert: #hello yourself = #hello.
+
+	self deny: #hello  = 'hello'.
+	self deny: 'hello' = #hello.
+!
+
+testIdentity
+	self assert: #hello == #hello.
+	self deny: #hello == #world.
+
+	self assert: #hello  = #hello yourself.
+	self assert: #hello yourself = #hello asString asSymbol
+!
+
+testIsEmpty
+	self deny: self collection isEmpty.
+	self assert: '' asSymbol isEmpty
+!
+
+testIsSymbolIsString
+	self assert: #hello isSymbol.
+	self deny: 'hello' isSymbol.
+	self deny: #hello isString.
+	self assert: 'hello' isString
+!
+
+testSelect
+	| newCollection |
+	newCollection := 'o'.
+	self 
+		assertSameContents: (self collection select: [ :each |
+			each = 'o' ])
+		as: newCollection
+!
+
+testSize
+	self assert: #a size equals: 1.
+	self assert: #aaaaa size equals: 5
+! !
+
+!SymbolTest class methodsFor: 'accessing'!
+
+collectionClass
+	^ Symbol
+! !
+
 TestCase subclass: #JSObjectProxyTest
 	instanceVariableNames: ''
 	package: 'Kernel-Tests'!
@@ -337,7 +816,7 @@ TestCase subclass: #JSObjectProxyTest
 !JSObjectProxyTest methodsFor: 'accessing'!
 
 jsObject
-	<return jsObject = {a: 1, b: function() {return 2;}, c: function(object) {return object;}}>
+	<return jsObject = {a: 1, b: function() {return 2;}, c: function(object) {return object;}, d: ''}>
 ! !
 
 !JSObjectProxyTest methodsFor: 'tests'!
@@ -354,13 +833,7 @@ testMessageSend
 !
 
 testMethodWithArguments
-	self deny: ('body' asJQuery hasClass: 'amber').
-
-	'body' asJQuery addClass: 'amber'.
-	self assert: ('body' asJQuery hasClass: 'amber').
-
-	'body' asJQuery removeClass: 'amber'.
-	self deny: ('body' asJQuery hasClass: 'amber').
+	self assert: (self jsObject c: 1) equals: 1
 !
 
 testPrinting
@@ -368,23 +841,22 @@ testPrinting
 !
 
 testPropertyThatReturnsEmptyString
-	<document.location.hash = ''>.
-	self assert: '' equals: document location hash.
+	| object |
+
+	object := self jsObject.
+	self assert: '' equals: object d.
 
-	document location hash: 'test'.
-	self assert: '#test' equals: document location hash.
+	object d: 'hello'.
+	self assert: 'hello' equals: object d
 !
 
 testYourself
-	|body|
-	body := 'body' asJQuery
-				addClass: 'amber';
-				yourself.
+	| object |
+	object := self jsObject
+		d: 'test';
+		yourself.
 
-	self assert: (body hasClass: 'amber').
-
-	body removeClass: 'amber'.
-	self deny: (body hasClass: 'amber').
+	self assert: object d equals: 'test'
 ! !
 
 TestCase subclass: #NumberTest
@@ -393,6 +865,11 @@ TestCase subclass: #NumberTest
 
 !NumberTest methodsFor: 'tests'!
 
+testAbs
+	self assert: 4 abs = 4.
+	self assert: -4 abs = 4
+!
+
 testArithmetic
 	
 	"We rely on JS here, so we won't test complex behavior, just check if 
@@ -615,7 +1092,11 @@ testInstVars
 testNilUndefined
 	"nil in Smalltalk is the undefined object in JS"
 
-	self assert: nil = undefined
+	| notDefined |
+    
+    <notDefined = undefined>.
+
+	self assert: nil = notDefined
 !
 
 testYourself
@@ -795,6 +1276,22 @@ testAt
 	self should: [Set new at: 1 put: 2] raise: Error
 !
 
+testPrintString
+	| set |
+	set := Set new.
+	self assert: 'a Set ()' equals: ( set printString ).
+	set add: 1; add: 3.
+	self assert: 'a Set (1 3)' equals: ( set printString ).
+	set add: 'foo'.
+	self assert: 'a Set (1 3 ''foo'')' equals: ( set printString ).
+	set remove: 1; remove: 3.
+	self assert: 'a Set (''foo'')' equals: ( set printString ).
+	set add: 3.
+	self assert: 'a Set (''foo'' 3)' equals: ( set printString ).
+	set add: 3.
+	self assert: 'a Set (''foo'' 3)' equals: ( set printString ).
+!
+
 testSize
 	self assert: Set new size equals: 0.
 	self assert: (Set withAll: #(1 2 3 4)) size equals: 4.
@@ -816,157 +1313,6 @@ testUnicity
 	self assert: set asArray equals: #(21 'hello')
 ! !
 
-TestCase subclass: #StringTest
-	instanceVariableNames: ''
-	package: 'Kernel-Tests'!
-
-!StringTest methodsFor: 'tests'!
-
-testAddRemove
-	self should: ['hello' add: 'a'] raise: Error.
-	self should: ['hello' remove: 'h'] raise: Error
-!
-
-testAsArray
-	self assert: 'hello' asArray = #('h' 'e' 'l' 'l' 'o').
-!
-
-testAt
-	self assert: ('hello' at: 1) = 'h'.
-	self assert: ('hello' at: 5) = 'o'.
-	self assert: ('hello' at: 6 ifAbsent: [nil]) = nil
-!
-
-testAtPut
-	"String instances are read-only"
-	self should: ['hello' at: 1 put: 'a'] raise: Error
-!
-
-testCopyWithoutAll
-	self 
-		assert: 'hello world' 
-		equals: ('*hello* *world*' copyWithoutAll: '*')
-!
-
-testEquality
-	self assert: 'hello' = 'hello'.
-	self deny: 'hello' = 'world'.
-
-	self assert: 'hello'  = 'hello' yourself.
-	self assert: 'hello' yourself = 'hello'.
-
-	"test JS falsy value"
-	self deny: '' = 0
-!
-
-testIdentity
-	self assert: 'hello' == 'hello'.
-	self deny: 'hello' == 'world'.
-
-	self assert: 'hello' == 'hello' yourself.
-	self assert: 'hello' yourself == 'hello'.
-
-	"test JS falsy value"
-	self deny: '' == 0
-!
-
-testIncludesSubString
-	self assert: ('amber' includesSubString: 'ber').
-	self deny: ('amber' includesSubString: 'zork').
-!
-
-testJoin
-	self assert: 'hello,world' equals: (',' join: #('hello' 'world'))
-!
-
-testSize
-	self assert: 'smalltalk' size equals: 9.
-	self assert: '' size equals: 0
-!
-
-testStreamContents
-	self 
-		assert: 'hello world' 
-		equals: (String streamContents: [:aStream| aStream 
-                                                 					nextPutAll: 'hello'; space; 
-                                                 					nextPutAll: 'world'])
-! !
-
-TestCase subclass: #SymbolTest
-	instanceVariableNames: ''
-	package: 'Kernel-Tests'!
-
-!SymbolTest methodsFor: 'tests'!
-
-testAsString
-	self assert: #hello asString equals: 'hello'
-!
-
-testAsSymbol
-	self assert: #hello == #hello asSymbol
-!
-
-testAt
-	self assert: (#hello at: 1) = 'h'.
-	self assert: (#hello at: 5) = 'o'.
-	self assert: (#hello at: 6 ifAbsent: [nil]) = nil
-!
-
-testAtPut
-	"Symbol instances are read-only"
-	self should: ['hello' at: 1 put: 'a'] raise: Error
-!
-
-testComparing
-	self assert: #ab > #aa.
-	self deny: #ab > #ba.
-
-	self assert: #ab < #ba.
-	self deny: #bb < #ba.
-
-	self assert: #ab >= #aa.
-	self deny: #ab >= #ba.
-
-	self assert: #ab <= #ba.
-	self deny: #bb <= #ba
-!
-
-testCopying
-	self assert: #hello copy == #hello.
-	self assert: #hello deepCopy == #hello
-!
-
-testEquality
-	self assert: #hello = #hello.
-	self deny: #hello = #world.
-
-	self assert: #hello  = #hello yourself.
-	self assert: #hello yourself = #hello.
-
-	self deny: #hello  = 'hello'.
-	self deny: 'hello' = #hello.
-!
-
-testIdentity
-	self assert: #hello == #hello.
-	self deny: #hello == #world.
-
-	self assert: #hello  = #hello yourself.
-	self assert: #hello yourself = #hello asString asSymbol
-!
-
-testIsSymbolIsString
-	self assert: #hello isSymbol.
-	self deny: 'hello' isSymbol.
-	self deny: #hello isString.
-	self assert: 'hello' isString
-!
-
-testSize
-	self assert: #a size equals: 1.
-	self assert: #aaaaa size equals: 5
-! !
-
 TestCase subclass: #UndefinedTest
 	instanceVariableNames: ''
 	package: 'Kernel-Tests'!