Christoph Thiede uploaded a new version of KernelTests to project The Inbox:
http://source.squeak.org/inbox/KernelTests-ct.377.mcz==================== Summary ====================
Name: KernelTests-ct.377
Author: ct
Time: 19 February 2020, 12:18:45.853795 pm
UUID: f0095798-52b3-bb4c-8b8b-5c6a1dbfe113
Ancestors: KernelTests-nice.373
Tests #readFrom: and #readCarefullyFrom: on Object.
Regressions will be addressed in another commit.
=============== Diff against KernelTests-nice.373 ===============
Item was added:
+ ----- Method: ObjectTest>>testReadCarefullyFrom (in category 'tests') -----
+ testReadCarefullyFrom
+
+ self should: [Object readCarefullyFrom: nil] raise: Error.
+ self should: [Object readCarefullyFrom: Object new] raise: Error.
+ self assert: [(Object readCarefullyFrom: 'Object new') isKindOf: Object].
+ self
+ should: [self
+ should: [Object newSubclass readCarefullyFrom: 'self assert: Object isNil']
+ raise: AssertionFailure. "environment must be installed"]
+ raise: Error. "because we return nil"
+ self should: [(UndefinedObject readCarefullyFrom: 'Object new')] raise: Error.
+ self should: [Object readCarefullyFrom: 'Object new:'] raise: Error.!
Item was added:
+ ----- Method: ObjectTest>>testReadFrom (in category 'tests') -----
+ testReadFrom
+
+ self should: [Object readFrom: nil] raise: Error.
+ self should: [Object readFrom: Object new] raise: Error.
+ self assert: [(Object readFrom: 'Object new') isKindOf: Object].
+ self
+ should: [self
+ should: [Object newSubclass readFrom: 'self assert: Object isNil']
+ raise: AssertionFailure. "environment must be installed"]
+ raise: Error. "because we return nil"
+ self should: [(UndefinedObject readFrom: 'Object new')] raise: Error.
+ self should: [Object readFrom: 'Object new:'] raise: SyntaxErrorNotification.!