[Pkg] The Trunk: KernelTests-ul.366.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jun 19 15:15:47 UTC 2019


Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-ul.366.mcz

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

Name: KernelTests-ul.366
Author: ul
Time: 19 June 2019, 5:13:59.180093 pm
UUID: 1c49d964-f547-4e48-9a9d-317818c6c7d1
Ancestors: KernelTests-mt.365

- added tests for Object >> #perform:* and BlockClosure >> #value*

=============== Diff against KernelTests-mt.365 ===============

Item was added:
+ ----- Method: BlockClosureTest>>testValue (in category 'tests - evaluating') -----
+ testValue
+ 
+ 	"#value"
+ 	self
+ 		assert: nil equals: [ ] value;
+ 		assert: 1 equals: [ 1 ] value;
+ 		should: [ [ :a | ] value ] raise: Error.
+ 	
+ 	"#value:"
+ 	self
+ 		assert: nil equals: ([ :a | ] value: 1);
+ 		assert: 1 equals: ([ :a | a ] value: 1);
+ 		should: [ [ ] value: 1 ] raise: Error;
+ 		should: [ [ :a :b | ] value: 1 ] raise: Error!

Item was added:
+ ----- Method: BlockClosureTest>>testValueValue (in category 'tests - evaluating') -----
+ testValueValue
+ 
+ 	self
+ 		assert: nil equals: ([ :a :b | ] value: 1 value: 2);
+ 		assert: 1 equals: ([ :a :b | a ] value: 1 value: 2);
+ 		assert: 2 equals: ([ :a :b | b ] value: 1 value: 2);
+ 		should: [ [ ] value: 1 value: 2 ] raise: Error;
+ 		should: [ [ :a | ] value: 1 value: 2 ] raise: Error;
+ 		should: [ [ :a :b :c | ] value: 1 value: 2 ] raise: Error!

Item was added:
+ ----- Method: BlockClosureTest>>testValueValueValue (in category 'tests - evaluating') -----
+ testValueValueValue
+ 
+ 	self
+ 		assert: nil equals: ([ :a :b :c | ] value: 1 value: 2 value: 3);
+ 		assert: 1 equals: ([ :a :b :c | a ] value: 1 value: 2 value: 3);
+ 		assert: 2 equals: ([ :a :b :c | b ] value: 1 value: 2 value: 3);
+ 		assert: 3 equals: ([ :a :b :c | c ] value: 1 value: 2 value: 3);
+ 		should: [ [ ] value: 1 value: 2 value: 3 ] raise: Error;
+ 		should: [ [ :a | ] value: 1 value: 2 value: 3 ] raise: Error;
+ 		should: [ [ :a :b | ] value: 1 value: 2 value: 3 ] raise: Error;
+ 		should: [ [ :a :b :c :d | ] value: 1 value: 2 value: 3 ] raise: Error!

Item was added:
+ ----- Method: BlockClosureTest>>testValueValueValueValue (in category 'tests - evaluating') -----
+ testValueValueValueValue
+ 
+ 	self
+ 		assert: nil equals: ([ :a :b :c :d | ] value: 1 value: 2 value: 3 value: 4);
+ 		assert: 1 equals: ([ :a :b :c :d | a ] value: 1 value: 2 value: 3 value: 4);
+ 		assert: 2 equals: ([ :a :b :c :d | b ] value: 1 value: 2 value: 3 value: 4);
+ 		assert: 3 equals: ([ :a :b :c :d | c ] value: 1 value: 2 value: 3 value: 4);
+ 		assert: 4 equals: ([ :a :b :c :d | d ] value: 1 value: 2 value: 3 value: 4);
+ 		should: [ [ ] value: 1 value: 2 value: 3 value: 4 ] raise: Error;
+ 		should: [ [ :a | ] value: 1 value: 2 value: 3 value: 4 ] raise: Error;
+ 		should: [ [ :a :b | ] value: 1 value: 2 value: 3 value: 4 ] raise: Error;
+ 		should: [ [ :a :b :c | ] value: 1 value: 2 value: 3 value: 4 ] raise: Error;
+ 		should: [ [ :a :b :c :d :e | ] value: 1 value: 2 value: 3 value: 4 ] raise: Error!

Item was added:
+ ----- Method: BlockClosureTest>>testValueValueValueValueValue (in category 'tests - evaluating') -----
+ testValueValueValueValueValue
+ 
+ 	self
+ 		assert: nil equals: ([ :a :b :c :d :e | ] value: 1 value: 2 value: 3 value: 4 value: 5);
+ 		assert: 1 equals: ([ :a :b :c :d :e | a ] value: 1 value: 2 value: 3 value: 4 value: 5);
+ 		assert: 2 equals: ([ :a :b :c :d :e | b ] value: 1 value: 2 value: 3 value: 4 value: 5);
+ 		assert: 3 equals: ([ :a :b :c :d :e | c ] value: 1 value: 2 value: 3 value: 4 value: 5);
+ 		assert: 4 equals: ([ :a :b :c :d :e | d ] value: 1 value: 2 value: 3 value: 4 value: 5);
+ 		assert: 5 equals: ([ :a :b :c :d :e | e ] value: 1 value: 2 value: 3 value: 4 value: 5);
+ 		should: [ [ ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error;
+ 		should: [ [ :a | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error;
+ 		should: [ [ :a :b | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error;
+ 		should: [ [ :a :b :c | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error;
+ 		should: [ [ :a :b :c :d | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error;
+ 		should: [ [ :a :b :c :d :e :f | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error!

Item was added:
+ ----- Method: ObjectTest>>testPerform (in category 'tests') -----
+ testPerform
+ 
+ 	| object |
+ 	object := Object new.
+ 	self assert: object equals: (object perform: #yourself).
+ 	self deny: 1 equals: (object perform: #yourself).
+ 	self assert: 4 equals: (2 perform: #squared).
+ 	self deny: 3 equals: (2 perform: #squared)!

Item was added:
+ ----- Method: ObjectTest>>testPerformWith (in category 'tests') -----
+ testPerformWith
+ 
+ 	self assert: 7 equals: (3 perform: #+ with: 4)!

Item was added:
+ ----- Method: ObjectTest>>testPerformWithWith (in category 'tests') -----
+ testPerformWithWith
+ 
+ 	| receiver |
+ 	receiver := [ :a :b | { a. b } ].
+ 	self assert: #(1 2) equals: (receiver perform: #value:value: with: 1 with: 2)!

Item was added:
+ ----- Method: ObjectTest>>testPerformWithWithWith (in category 'tests') -----
+ testPerformWithWithWith
+ 
+ 	| receiver |
+ 	receiver := [ :a :b :c | { a. b. c } ].
+ 	self assert: #(1 2 3) equals: (receiver perform: #value:value:value: with: 1 with: 2 with: 3)!

Item was added:
+ ----- Method: ObjectTest>>testPerformWithWithWithWith (in category 'tests') -----
+ testPerformWithWithWithWith
+ 
+ 	| receiver |
+ 	receiver := [ :a :b :c :d | { a. b. c. d } ].
+ 	self assert: #(1 2 3 4) equals: (receiver perform: #value:value:value:value: with: 1 with: 2 with: 3 with: 4)!

Item was added:
+ ----- Method: ObjectTest>>testPerformWithWithWithWithWith (in category 'tests') -----
+ testPerformWithWithWithWithWith
+ 
+ 	| receiver |
+ 	receiver := [ :a :b :c :d :e | { a. b. c. d. e } ].
+ 	self assert: #(1 2 3 4 5) equals: (receiver perform: #value:value:value:value:value: with: 1 with: 2 with: 3 with: 4 with: 5)!



More information about the Packages mailing list