tests/pops.qc

   1 void main() {
   2     /* so far only one perl operator is implemented */
   3     float x = 100;
   4     float y = 200;
   5     float z = 300;
   6
   7     /* to ensure runtime */
   8     x += 1;
   9     y += 1;
  10     z += 1;
  11
  12     float test_x = (x <=> x + 1); // -1 less than
  13     float test_y = (x <=> x);     //  0 equal
  14     float test_z = (x <=> x - 1); //  1 greater than
  15
  16     print(ftos(test_x), "\n");
  17     print(ftos(test_y), "\n");
  18     print(ftos(test_z), "\n");
  19 }