-
Notifications
You must be signed in to change notification settings - Fork 65
/
VMAbstractImageFormatTest.class.st
74 lines (54 loc) · 1.69 KB
/
VMAbstractImageFormatTest.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Class {
#name : #VMAbstractImageFormatTest,
#superclass : #VMSpurInitializedOldSpaceTest,
#instVars : [
'imageReader'
],
#category : #'VMMakerTests-ImageFormat'
}
{ #category : #accessing }
VMAbstractImageFormatTest >> defaultTimeLimit [
^ 30 seconds
]
{ #category : #tests }
VMAbstractImageFormatTest >> imageFileName [
^ 'lala.image'
]
{ #category : #tests }
VMAbstractImageFormatTest >> readHeader [
^ imageReader readHeaderFromImage: self imageFileName
]
{ #category : #actions }
VMAbstractImageFormatTest >> saveImage [
interpreter writeImageFileIO.
]
{ #category : #running }
VMAbstractImageFormatTest >> setUp [
super setUp.
"Objects should be registerd in Special Object Array, as they are validated while loading"
memory splObj: NilObject put: memory nilObject.
memory splObj: FalseObject put: memory falseObject.
memory splObj: TrueObject put: memory trueObject.
interpreter setExtraVMMemory: 0.
interpreter imageName: self imageFileName.
interpreter preemptionYields: false.
interpreter setImageHeaderFlagsFrom: 0.
imageReader := imageReaderClass newWithMemory: memory andInterpreter: interpreter.
"ByteArrayClass is asserted while loading image"
memory classByteArray: (self newClassInOldSpaceWithSlots: 0 instSpec: (memory byteFormatForNumBytes: 0)).
memory ensureBehaviorHash: memory classByteArray.
]
{ #category : #ston }
VMAbstractImageFormatTest >> stonPretty: anObject [
^ String streamContents: [ :s |
(STONWriter on: s)
prettyPrint: true;
newLine: OSPlatform current lineEnding;
nextPut: anObject
]
]
{ #category : #running }
VMAbstractImageFormatTest >> tearDown [
self imageFileName asFileReference ensureDeleteAll.
super tearDown.
]