VMSimulationTest.class.st

Class {
	#name : #VMSimulationTest,
	#superclass : #TestCase,
	#category : #'VMMakerTests-Simulation'
}

{ #category : #tests }
VMSimulationTest >> testSetUpJITSimulationReadsImage [

	| options c |
	"Smoke test, check that the VM can open the image file"
	self timeLimit: 60 seconds.
	
	VMStackPages initialize.
	options := {
	    #ObjectMemory -> #Spur64BitCoMemoryManager.
	    #ISA -> #aarch64.
	    #BytesPerWord -> 8.
	    #bytecodeTableInitializer -> #initializeBytecodeTableForSistaV1.
	    #ImageWriter -> #SpurImageWriter.
	    #ImageReader -> #SpurImageReader.
	} asDictionary.

	c := CogVMSimulator newWithOptions: options.
	c
		openOn: Smalltalk imagePath
		extraMemory: 100000.
]

{ #category : #tests }
VMSimulationTest >> testSetUpNonJITSimulationReadsImage [

	| options c |
	"Smoke test, check that the VM can open the image file"
	self timeLimit: 60 seconds.
	
	VMStackPages initialize.
	options := {
	    #ObjectMemory -> #Spur64BitMemoryManager.
	    #BytesPerWord -> 8.
	    #bytecodeTableInitializer -> #initializeBytecodeTableForSistaV1.
	    #ImageWriter -> #SpurImageWriter.
	    #ImageReader -> #SpurImageReader.
	} asDictionary.

	c := StackInterpreterSimulator newWithOptions: options.
	c
		openOn: Smalltalk imagePath
		extraMemory: 100000.
]