[squeak-dev] The Trunk: MorphicExtrasTests-fbs.1.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 23 08:43:51 UTC 2013


Frank Shearar uploaded a new version of MorphicExtrasTests to project The Trunk:
http://source.squeak.org/trunk/MorphicExtrasTests-fbs.1.mcz

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

Name: MorphicExtrasTests-fbs.1
Author: fbs
Time: 23 April 2013, 8:52:21.02 am
UUID: bb621396-7e5f-4d2e-98b9-102a646a8996
Ancestors: 

ByteEncoder is a MorphicExtras class, so its tests belong in MorphicExtrasTests.

==================== Snapshot ====================

SystemOrganization addCategory: #'MorphicExtrasTests-Postscript Filters'!

TestCase subclass: #ByteEncoderTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'MorphicExtrasTests-Postscript Filters'!

----- Method: ByteEncoderTest>>testIntegerByteEncoded (in category 'testing') -----
testIntegerByteEncoded
	self assert: (ByteEncoder stream writeNumber: 2 base: 2; yourself) contents = '10'.
	self assert: (ByteEncoder stream writeNumber: 21 base: 3; yourself) contents = '210'.
	self assert: (ByteEncoder stream writeNumber: 228 base: 4; yourself) contents = '3210'.
	self assert: (ByteEncoder stream writeNumber: 2930 base: 5; yourself) contents = '43210'.
	self assert: (ByteEncoder stream writeNumber: 44790 base: 6; yourself) contents = '543210'.
	self assert: (ByteEncoder stream writeNumber: 800667 base: 7; yourself) contents = '6543210'.
	self assert: (ByteEncoder stream writeNumber: 16434824 base: 8; yourself) contents = '76543210'.
	self assert: (ByteEncoder stream writeNumber: 381367044 base: 9; yourself) contents = '876543210'.
	self assert: (ByteEncoder stream writeNumber: 9876543210 base: 10; yourself) contents = '9876543210'.
	self assert: (ByteEncoder stream writeNumber: 282458553905 base: 11; yourself) contents = 'A9876543210'.
	self assert: (ByteEncoder stream writeNumber: 8842413667692 base: 12; yourself) contents = 'BA9876543210'.
	self assert: (ByteEncoder stream writeNumber: 300771807240918 base: 13; yourself) contents = 'CBA9876543210'.
	self assert: (ByteEncoder stream writeNumber: 11046255305880158 base: 14; yourself) contents = 'DCBA9876543210'.
	self assert: (ByteEncoder stream writeNumber: 435659737878916215 base: 15; yourself) contents = 'EDCBA9876543210'.
	self assert: (ByteEncoder stream writeNumber: 18364758544493064720 base: 16; yourself) contents = 'FEDCBA9876543210'.

	self assert: (ByteEncoder stream writeNumber: -2 base: 2; yourself) contents = '-10'.
	self assert: (ByteEncoder stream writeNumber: -21 base: 3; yourself) contents = '-210'.
	self assert: (ByteEncoder stream writeNumber: -228 base: 4; yourself) contents = '-3210'.
	self assert: (ByteEncoder stream writeNumber: -2930 base: 5; yourself) contents = '-43210'.
	self assert: (ByteEncoder stream writeNumber: -44790 base: 6; yourself) contents = '-543210'.
	self assert: (ByteEncoder stream writeNumber: -800667 base: 7; yourself) contents = '-6543210'.
	self assert: (ByteEncoder stream writeNumber: -16434824 base: 8; yourself) contents = '-76543210'.
	self assert: (ByteEncoder stream writeNumber: -381367044 base: 9; yourself) contents = '-876543210'.
	self assert: (ByteEncoder stream writeNumber: -9876543210 base: 10; yourself) contents = '-9876543210'.
	self assert: (ByteEncoder stream writeNumber: -282458553905 base: 11; yourself) contents = '-A9876543210'.
	self assert: (ByteEncoder stream writeNumber: -8842413667692 base: 12; yourself) contents = '-BA9876543210'.
	self assert: (ByteEncoder stream writeNumber: -300771807240918 base: 13; yourself) contents = '-CBA9876543210'.
	self assert: (ByteEncoder stream writeNumber: -11046255305880158 base: 14; yourself) contents = '-DCBA9876543210'.
	self assert: (ByteEncoder stream writeNumber: -435659737878916215 base: 15; yourself) contents = '-EDCBA9876543210'.
	self assert: (ByteEncoder stream writeNumber: -18364758544493064720 base: 16; yourself) contents = '-FEDCBA9876543210'.!



More information about the Squeak-dev mailing list