qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-02-25 05:01:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

[qfcc] Add tests for the hodge dual

Browse source
This commit is contained in:
Bill Currie 2024-02-09 12:53:28 +09:00
parent d319ce6106
commit 10861986fb
1 changed files with 73 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

73
tools/qfcc/test/pga3d.r
View file

@ -370,6 +370,74 @@ test_geom (void)
return 0; return 0;
} }
static int
test_dual (void)
{
@algebra (PGA) {
auto a = 1f;
auto a0 = e0;
auto a1 = e1;
auto a2 = e2;
auto a3 = e3;
auto a23 = e23;
auto a31 = e31;
auto a12 = e12;
auto a01 = e01;
auto a02 = e02;
auto a03 = e03;
auto a032 = e032;
auto a013 = e013;
auto a021 = e021;
auto a123 = e123;
auto a0123 = e0123;
#define TEST_DUAL(x, y) \
if (⋆x != y) { \
printf ("⋆" #x " != " #y "\n"); \
return 1; \
}
TEST_DUAL (a, e0123);
TEST_DUAL (a0, e123);
TEST_DUAL (a1, e032);
TEST_DUAL (a2, e013);
TEST_DUAL (a3, e021);
TEST_DUAL (a23, e01);
TEST_DUAL (a31, e02);
TEST_DUAL (a12, e03);
TEST_DUAL (a01, e23);
TEST_DUAL (a02, e31);
TEST_DUAL (a03, e12);
TEST_DUAL (a032, -e1);
TEST_DUAL (a013, -e2);
TEST_DUAL (a021, -e3);
TEST_DUAL (a123, -e0);
TEST_DUAL (a0123, 1);
#undef TEST_DUAL
#define TEST_DUAL(x) \
if (x * ⋆x != e0123) { \
printf (#x " * ⋆" #x " != e0123\n"); \
return 1; \
}
TEST_DUAL (a);
TEST_DUAL (a0);
TEST_DUAL (a1);
TEST_DUAL (a2);
TEST_DUAL (a3);
TEST_DUAL (a23);
TEST_DUAL (a31);
TEST_DUAL (a12);
TEST_DUAL (a01);
TEST_DUAL (a02);
TEST_DUAL (a03);
TEST_DUAL (a032);
TEST_DUAL (a013);
TEST_DUAL (a021);
TEST_DUAL (a123);
TEST_DUAL (a0123);
}
return 0;
}
static int static int
test_basics (void) test_basics (void)
{ {
@ -476,6 +544,11 @@ main (void)
return 1; return 1;
} }
if (test_dual ()) {
printf ("dual failed\n");
return 1;
}
if (test_basics ()) { if (test_basics ()) {
printf ("basics failed\n"); printf ("basics failed\n");
return 1; return 1;