Include path: ExampleConstants.

Class name: ExampleConstantsTest {

Function [ run

	| pool |
	ExampleConstants initializeModule.
	pool := ExampleConstantsConstants initializeConstants.

	Transcript nextPutAll:  'ICONST  = ' ; nextPutAll: (pool at: 'ICONST') printString; nextPutAll: ' (should be 42)' ; cr.
	Transcript nextPutAll:  'FCONST  = ' ; nextPutAll: (pool at: 'FCONST') printString; nextPutAll: ' (should be 2.1828)' ; cr.
	Transcript nextPutAll:  'CCONST  = ' ; nextPutAll: (pool at: 'CCONST') printString; nextPutAll: ' (should be x)' ; cr.
	Transcript nextPutAll:  'CCONST2 = ' ; nextPutAll: (pool at: 'CCONST2') printString; nextPutAll: ' (this should be on a new line)' ; cr.
	Transcript nextPutAll:  'SCONST  = ' ; nextPutAll: (pool at: 'SCONST') printString; nextPutAll: ' (should be Hello World)' ; cr.
	Transcript nextPutAll:  'SCONST2 = ' ; nextPutAll: (pool at: 'SCONST2') printString; nextPutAll: ' (should be "Hello World")' ; cr.
	Transcript nextPutAll:  'EXPR    = ' ; nextPutAll: (pool at: 'EXPR') printString; nextPutAll: ' (should be 48.5484)' ; cr.
	Transcript nextPutAll:  'iconst  = ' ; nextPutAll: (pool at: 'iconst') printString; nextPutAll: ' (should be 37)' ; cr.
	Transcript nextPutAll:  'fconst  = ' ; nextPutAll: (pool at: 'fconst') printString; nextPutAll: ' (should be 3.14)' ; cr.

	" extra tests "
	Transcript nextPutAll:  'sfconst = ' ; nextPutAll: (pool at: 'sfconst') printString; nextPutAll: ' (should be 6.28)' ; cr.
	Transcript nextPutAll:  'niconst = ' ; nextPutAll: (pool at: 'niconst') printString; nextPutAll: ' (should be -4567890)' ; cr.
	Transcript nextPutAll:  'i64c    = ' ; nextPutAll: (pool at: 'i64c') printString; nextPutAll: ' (should be -33300033300)' ; cr.
	Transcript nextPutAll:  'ui64c   = ' ; nextPutAll: (pool at: 'ui64c') printString; nextPutAll: ' (should be 55500055500)' ; cr.
   	Transcript nextPutAll:  'shortc  = ' ; nextPutAll: (pool at: 'shortc') printString; nextPutAll: ' (should be -8100)' ; cr.
	Transcript nextPutAll:  'ushortc = ' ; nextPutAll: (pool at: 'ushortc') printString; nextPutAll: ' (should be 15123)' ; cr.
	Transcript nextPutAll:  'ucharc  = ' ; nextPutAll: (pool at: 'ucharc') printString; nextPutAll: ' (should be 99)' ; cr.
	Transcript flush.
]

}

