gmqcc/tests/pops.qc
2013-02-05 17:15:28 +00:00

19 lines
437 B
C++

void main() {
/* so far only one perl operator is implemented */
float x = 100;
float y = 200;
float z = 300;
/* to ensure runtime */
x += 1;
y += 1;
z += 1;
float test_x = (x <=> x + 1); // -1 less than
float test_y = (x <=> x); // 0 equal
float test_z = (x <=> x - 1); // 1 greater than
print(ftos(test_x), "\n");
print(ftos(test_y), "\n");
print(ftos(test_z), "\n");
}