large state test
This commit is contained in:
parent
8f8ee17157
commit
7ea3fe6d5c
@ -12,6 +12,7 @@ module Instructions
|
|||||||
module Instructions.VectorStringInstructions,
|
module Instructions.VectorStringInstructions,
|
||||||
module Instructions.VectorLogicalInstructions,
|
module Instructions.VectorLogicalInstructions,
|
||||||
module Instructions.VectorCharInstructions,
|
module Instructions.VectorCharInstructions,
|
||||||
|
largeState,
|
||||||
)
|
)
|
||||||
where
|
where
|
||||||
|
|
||||||
@ -28,3 +29,26 @@ import Instructions.VectorFloatInstructions
|
|||||||
import Instructions.VectorIntInstructions
|
import Instructions.VectorIntInstructions
|
||||||
import Instructions.VectorLogicalInstructions
|
import Instructions.VectorLogicalInstructions
|
||||||
import Instructions.VectorStringInstructions
|
import Instructions.VectorStringInstructions
|
||||||
|
import State
|
||||||
|
import Data.Map qualified as Map
|
||||||
|
|
||||||
|
largeState :: State
|
||||||
|
largeState =
|
||||||
|
State
|
||||||
|
{ _exec = replicate 100000 $ StateFunc (instructionIntAdd, "instructionIntAdd"),
|
||||||
|
_code = replicate 100 $ StateFunc (instructionIntAdd, "instructionIntAdd"),
|
||||||
|
_int = [1..100200],
|
||||||
|
_float = [1.0..120.00],
|
||||||
|
_bool = replicate 100 True,
|
||||||
|
_string = replicate 100 "",
|
||||||
|
_char = replicate 100 'z',
|
||||||
|
_parameter = [],
|
||||||
|
_vectorInt = replicate 100 [1,2,3],
|
||||||
|
_vectorFloat = replicate 100 [1.0, 2.0, 3.0],
|
||||||
|
_vectorBool = replicate 100 [True, False],
|
||||||
|
_vectorString = replicate 100 ["hello", "there"],
|
||||||
|
_vectorChar = replicate 100 ['a','b','c'],
|
||||||
|
_input = Map.empty
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user