Testing empty PermSpace metadata

hernanmd · Jul 19, 2022 · 2b844a2 · 2b844a2
1 parent da0136b
commit 2b844a2
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/smalltalksrc/VMMaker/ComposedMetadataStruct.class.st b/smalltalksrc/VMMaker/ComposedMetadataStruct.class.st
@@ -42,6 +42,13 @@ ComposedMetadataStruct >> dataSize: anObject [
 	dataSize := anObject
 ]
 
+{ #category : #initialization }
+ComposedMetadataStruct >> initialize [
+
+	startAddress := 0.
+	dataSize := 0
+]
+
 { #category : #accessing }
 ComposedMetadataStruct >> startAddress [
 

diff --git a/smalltalksrc/VMMakerTests/VMImageHeaderWritingTest.class.st b/smalltalksrc/VMMakerTests/VMImageHeaderWritingTest.class.st
@@ -210,6 +210,20 @@ VMImageHeaderWritingTest >> testWritingSTONPermSpace [
 	self assert: writtenMetadata equals: (self stonPretty: expectedPermSpaceMetadata).
 ]
 
+{ #category : #tests }
+VMImageHeaderWritingTest >> testWritingSTONPermSpaceOnEmptySpace [
+
+	| writtenMetadata |
+
+	imageWriterClass ~= ComposedImageWriter ifTrue: [ ^ self skip ].
+
+	self saveImage.
+
+	writtenMetadata := (self imageFileName asFileReference  / 'permSpace.ston') contents.
+
+	self assert: writtenMetadata equals: (self stonPretty: ComposedMetadataStruct new).
+]
+
 { #category : #tests }
 VMImageHeaderWritingTest >> testWritingSTONSegment [