The Trunk: Tests-mt.422.mcz

Marcel Taeumel uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-mt.422.mcz

==================== Summary ====================

Name: Tests-mt.422
Author: mt
Time: 18 November 2019, 2:26:02.437051 pm
UUID: ca0f56f4-3671-3849-9bc9-f81d886ad0cb
Ancestors: Tests-mt.421

More tests for simple setter/getter conversion.

=============== Diff against Tests-mt.421 ===============

Item was changed:
  ----- Method: StringSystemSupportTest>>testAsSimpleGetter (in category 'tests') -----
  testAsSimpleGetter
  self
  assert: #x: asSimpleGetter = #x ;
  assert: #x asSimpleGetter = #x ;
  assert: #x: asSimpleGetter isSymbol ;
+
  assert: 'x:' asSimpleGetter = #x ;
  assert: 'x' asSimpleGetter = #x ;
+ assert: 'x:' asSimpleGetter isSymbol ;
+
+ should: [#+ asSimpleSetter] raise: Error ;
+ should: ['+' asSimpleSetter] raise: Error ;
+
+ should: ['' asSimpleGetter] raise: Error ;
+ should: [#'' asSimpleGetter] raise: Error ;
+ should: [':' asSimpleGetter] raise: Error ;
+ should: [#':' asSimpleGetter] raise: Error!
- assert: 'x:' asSimpleGetter isSymbol!

Item was changed:
  ----- Method: StringSystemSupportTest>>testAsSimpleSetter (in category 'tests') -----
  testAsSimpleSetter
  self
  assert: #x asSimpleSetter = #x: ;
  assert: #x: asSimpleSetter = #x: ;
  assert: #x asSimpleSetter isSymbol ;
+
  assert: 'x' asSimpleSetter = #x: ;
  assert: 'x:' asSimpleSetter = #x: ;
+ assert: 'x' asSimpleSetter isSymbol ;
+
+ "should: [#'+:' asSimpleGetter] raise: Error ; --- We should not introduce that Symbol into the system..."
+ should: ['+:' asSimpleGetter] raise: Error ;
+
+ should: [':' asSimpleSetter] raise: Error ;
+ should: [#':' asSimpleSetter] raise: Error ;
+ should: ['' asSimpleSetter] raise: Error ;
+ should: [#'' asSimpleSetter] raise: Error !
- assert: 'x' asSimpleSetter isSymbol!

Item was changed:
  ----- Method: StringSystemSupportTest>>testIsSimpleGetter (in category 'tests') -----
  testIsSimpleGetter
  self
  assert: #x isSimpleGetter ;
  deny: #x: isSimpleGetter ;
  deny: #+ isSimpleGetter ;
+
+ deny: 'x' isSimpleGetter ;
+
+ deny: '' isSimpleGetter ;
+ deny: #'' isSimpleGetter ;
+ deny: ':' isSimpleGetter ;
+ deny: #':' isSimpleGetter!
- deny: 'x' isSimpleGetter!

Item was changed:
  ----- Method: StringSystemSupportTest>>testIsSimpleSetter (in category 'tests') -----
  testIsSimpleSetter
  self
  assert: #x: isSimpleSetter ;
  deny: #x isSimpleSetter ;
  deny: #+ isSimpleSetter ;
  deny: #a:b: isSimpleSetter ;
+
+ deny: 'x:' isSimpleSetter ;
+
+ deny: '' isSimpleSetter ;
+ deny: #'' isSimpleSetter ;
+ deny: ':' isSimpleSetter ;
+ deny: #':' isSimpleSetter!
- deny: 'x:' isSimpleSetter!