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
113
114
115
116
117
118
119
120
121
122
123
124
|
#include <u.h>
#include <libc.h>
#include <mp.h>
/* these tests suck but better than nothing... but really should test more values than just 1<<i */
#define MPTOX(_name,_type,_func) \
void \
_name(void) \
{ \
mpint *m; \
int i, sign, mag; \
_type v, e; \
int fail; \
\
fail = 0; \
m = mpnew(0); \
for(i = 0; i < 256; i++){ \
sign = i >= 128 ? -1 : 1; \
mag = i % 128; \
itomp(sign, m); \
mpleft(m, mag, m); \
v = _func(m); \
e = 0xcafebabe; USED(e);
#define MPTOX_END(_func,_format) \
if(v != e){ \
fprint(2, "FAIL: _func(%#B): return value: got "_format", expected "_format"\n", m, v, e); \
fail=1; \
} \
} \
mpfree(m); \
if(!fail) \
fprint(2, "_func: passed\n"); \
}
#define XTOMP(_name,_type,_func) \
void \
_name(void) \
{ \
mpint *m, *r; \
int i, sign, mag; \
_type v; \
int fail; \
\
fail = 0; \
m = mpnew(0); \
r = mpnew(0); \
for(i = 0; i < 256; i++){ \
sign = i >= 128 ? -1 : 1; \
mag = i % 128; \
itomp(sign, r); \
mpleft(r, mag, r);
#define XTOMP_END(_func,_type,_format) \
_func(sign * ((_type)1<<mag), m); \
if(mpcmp(r, m) != 0){ \
fprint(2, "FAIL: _func("_format"): return value: got %#B, expected %#B\n", sign * ((_type)1<<mag), m, r); \
fail=1; \
} \
} \
mpfree(m); \
mpfree(r); \
if(!fail) \
fprint(2, "_func: passed\n"); \
}
MPTOX(test_mptoi, int, mptoi)
if(mag < 31)
e = sign*(1<<mag);
else
e = sign > 0 ? (1<<31)-1 : 1<<31;
MPTOX_END(mptoi, "%#x")
MPTOX(test_mptoui, uint, mptoui)
if(mag < 32 && sign > 0)
e = 1<<mag;
else
e = sign > 0 ? -1 : 0;
MPTOX_END(mptoui, "%#ux")
MPTOX(test_mptov, vlong, mptov)
if(mag < 63)
e = sign*(1LL<<mag);
else
e = sign > 0 ? (1LL<<63)-1 : 1LL<<63;
MPTOX_END(mptov, "%#llx")
MPTOX(test_mptouv, uvlong, mptouv)
if(mag < 64 && sign > 0)
e = 1LL<<mag;
else
e = sign > 0 ? -1ULL : 0;
MPTOX_END(mptouv, "%#llux")
XTOMP(test_itomp, int, itomp)
if(mag >= 31) continue;
XTOMP_END(vtomp, vlong, "%lld")
XTOMP(test_uitomp, uint, uitomp)
if(mag >= 32 || sign < 0) continue;
XTOMP_END(uitomp, uint, "%lld")
XTOMP(test_vtomp, vlong, vtomp)
if(mag >= 63) continue;
XTOMP_END(vtomp, vlong, "%lld")
XTOMP(test_uvtomp, uvlong, uvtomp)
if(mag >= 64 || sign < 0) continue;
XTOMP_END(uvtomp, vlong, "%lld")
void
convtests(void)
{
test_mptoi();
test_mptoui();
test_mptov();
test_mptouv();
test_itomp();
test_uitomp();
test_vtomp();
test_uvtomp();
}
|
