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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
#include <gtest/gtest.h>
#include <memory>
#include <cmath>
#include <spasm.hpp>
TEST(Empty, Empty)
{
}
int get_op(int8_t *& PC) {
return *(PC++);
}
size_t get_arg(int8_t*& PC, int size) {
switch (size) {
case 0:
return *(PC++);
case 1:
return *(((unsigned short*&)PC)++);
case 2:
return *(((unsigned int*&)PC)++);
case 3:
return *(((size_t*&)PC)++);
}
return 0;
}
TEST(Pointer, byte)
{
int8_t data[] = { 42, 0 };
int8_t* PC = data;
ASSERT_EQ(42, get_op(PC));
ASSERT_EQ(data + 1, PC);
}
TEST(Pointer, int16)
{
int8_t data[] = { 1, 42, 0, 3};
int8_t* PC = data;
get_op(PC);
ASSERT_EQ(42U, get_arg(PC, 1));
ASSERT_EQ(data + 3, PC);
}
TEST(Pointer, int32)
{
int8_t data[] = { 1, 42, 0, 3, 0, 1 };
int8_t* PC = data;
get_op(PC);
ASSERT_EQ(0x0003002aU, get_arg(PC, 2));
ASSERT_EQ(data + 5, PC);
}
TEST(Pointer, int64)
{
int8_t data[] = { 1, 42, 0, 3, 0, 1, 0, 0, 0 };
int8_t* PC = data;
get_op(PC);
ASSERT_EQ(0x010003002aU, get_arg(PC, 3));
ASSERT_EQ(data + 9, PC);
}
TEST(NaNBox, PlainDoubles)
{
double a = floor(rand() / RAND_MAX);
double values[] = {
0.0, 2.89, 3.14, 0.0 / 1.0, 1.0 / a
};
for (auto value: values)
{
Spasm::Value box(value);
ASSERT_TRUE(box.is_double());
ASSERT_EQ(value, box.get_double());
Spasm::Value box2(-value);
ASSERT_TRUE(box2.is_double());
ASSERT_EQ(-value, box2.get_double());
}
}
TEST(NaNBox, Border)
{
Spasm::Value v(Spasm::ValueType::Object, nullptr);
ASSERT_TRUE(std::isnan(v.m_value.as_double));
ASSERT_FALSE(std::isinf(v.m_value.as_double));
}
TEST(NaNBox, IsNaN)
{
Spasm::Value v2(std::sqrt(-1.0));
ASSERT_TRUE(v2.is_double());
}
TEST(NaNBox, Pointers)
{
std::vector<std::unique_ptr<int>> pointers;
int n = 1024;
pointers.reserve(n);
for (int i = 0; i < n; ++i)
{
pointers.emplace_back(std::make_unique<int>(i));
}
for (auto& value: pointers)
{
Spasm::Value box(Spasm::ValueType::Object, value.get());
ASSERT_FALSE(box.is_double());
ASSERT_EQ(value.get(), box.get_pointer());
}
}
|
