"{ Package: 'stx:goodies/ston/tests' }"

"{ NameSpace: Smalltalk }"

STONWriteReadTests subclass:#STONWritePrettyPrinterReadTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'STON-Tests-Write-Read'
!

!STONWritePrettyPrinterReadTests methodsFor:'private'!

serialize: anObject
	^ String streamContents: [ :stream |
		STON writer 
			on: stream; 
			prettyPrint: true;
			nextPut: anObject ]
!

serializeJson: anObject
	^ String streamContents: [ :stream |
		STON jsonWriter 
			on: stream; 
			prettyPrint: true;
			nextPut: anObject ]
! !