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
|
#include <cassert>
#include <cmath>
#include <glib/gmacros.h>
#include <stdlib.h>
#include "utest/utest.h"
#include "libnr/point-fns.h"
#include "isnan.h"
using Geom::Point;
int main(int argc, char *argv[])
{
utest_start("point-fns");
Point const p3n4(3.0, -4.0);
Point const p0(0.0, 0.0);
double const small = pow(2.0, -1070);
double const inf = 1e400;
double const nan = inf - inf;
Point const small_left(-small, 0.0);
Point const small_n3_4(-3.0 * small, 4.0 * small);
Point const part_nan(3., nan);
Point const inf_left(-inf, 5.0);
assert(isNaN(nan));
assert(!isNaN(small));
UTEST_TEST("L1") {
UTEST_ASSERT( Geom::L1(p0) == 0.0 );
UTEST_ASSERT( Geom::L1(p3n4) == 7.0 );
UTEST_ASSERT( Geom::L1(small_left) == small );
UTEST_ASSERT( Geom::L1(inf_left) == inf );
UTEST_ASSERT( Geom::L1(small_n3_4) == 7.0 * small );
UTEST_ASSERT(isNaN(Geom::L1(part_nan)));
}
UTEST_TEST("L2") {
UTEST_ASSERT( Geom::L2(p0) == 0.0 );
UTEST_ASSERT( Geom::L2(p3n4) == 5.0 );
UTEST_ASSERT( Geom::L2(small_left) == small );
UTEST_ASSERT( Geom::L2(inf_left) == inf );
UTEST_ASSERT( Geom::L2(small_n3_4) == 5.0 * small );
UTEST_ASSERT(isNaN(Geom::L2(part_nan)));
}
UTEST_TEST("LInfty") {
UTEST_ASSERT( Geom::LInfty(p0) == 0.0 );
UTEST_ASSERT( Geom::LInfty(p3n4) == 4.0 );
UTEST_ASSERT( Geom::LInfty(small_left) == small );
UTEST_ASSERT( Geom::LInfty(inf_left) == inf );
UTEST_ASSERT( Geom::LInfty(small_n3_4) == 4.0 * small );
UTEST_ASSERT(isNaN(Geom::LInfty(part_nan)));
}
UTEST_TEST("is_zero") {
UTEST_ASSERT(Geom::is_zero(p0));
UTEST_ASSERT(!Geom::is_zero(p3n4));
UTEST_ASSERT(!Geom::is_zero(small_left));
UTEST_ASSERT(!Geom::is_zero(inf_left));
UTEST_ASSERT(!Geom::is_zero(small_n3_4));
UTEST_ASSERT(!Geom::is_zero(part_nan));
}
UTEST_TEST("atan2") {
UTEST_ASSERT( Geom::atan2(p3n4) == atan2(-4.0, 3.0) );
UTEST_ASSERT( Geom::atan2(small_left) == atan2(0.0, -1.0) );
UTEST_ASSERT( Geom::atan2(small_n3_4) == atan2(4.0, -3.0) );
}
UTEST_TEST("unit_vector") {
UTEST_ASSERT( Geom::unit_vector(p3n4) == Point(.6, -0.8) );
UTEST_ASSERT( Geom::unit_vector(small_left) == Point(-1.0, 0.0) );
UTEST_ASSERT( Geom::unit_vector(small_n3_4) == Point(-.6, 0.8) );
}
UTEST_TEST("is_unit_vector") {
UTEST_ASSERT(!Geom::is_unit_vector(p3n4));
UTEST_ASSERT(!Geom::is_unit_vector(small_left));
UTEST_ASSERT(!Geom::is_unit_vector(small_n3_4));
UTEST_ASSERT(!Geom::is_unit_vector(part_nan));
UTEST_ASSERT(!Geom::is_unit_vector(inf_left));
UTEST_ASSERT(!Geom::is_unit_vector(Point(.5, 0.5)));
UTEST_ASSERT(Geom::is_unit_vector(Point(.6, -0.8)));
UTEST_ASSERT(Geom::is_unit_vector(Point(-.6, 0.8)));
UTEST_ASSERT(Geom::is_unit_vector(Point(-1.0, 0.0)));
UTEST_ASSERT(Geom::is_unit_vector(Point(1.0, 0.0)));
UTEST_ASSERT(Geom::is_unit_vector(Point(0.0, -1.0)));
UTEST_ASSERT(Geom::is_unit_vector(Point(0.0, 1.0)));
}
return ( utest_end()
? EXIT_SUCCESS
: EXIT_FAILURE );
}
/*
Local Variables:
mode:c++
c-file-style:"stroustrup"
c-file-offsets:((innamespace . 0)(inline-open . 0)(case-label . +))
indent-tabs-mode:nil
fill-column:99
End:
*/
// vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=99 :
|