michael@0: // Copyright 2009 the Sputnik authors.  All rights reserved.
michael@0: // This code is governed by the BSD license found in the LICENSE file.
michael@0: 
michael@0: /**
michael@0:  * The result of a ECMAScript floating-point remainder operation is determined by the rules of IEEE arithmetics
michael@0:  *
michael@0:  * @path ch11/11.5/11.5.3/S11.5.3_A4_T7.js
michael@0:  * @description If operands neither an infinity, nor a zero, nor NaN, return x - truncate(x / y) * y
michael@0:  */
michael@0: 
michael@0: function truncate(x) {
michael@0:   if (x > 0) {
michael@0:     return Math.floor(x);
michael@0:   } else {
michael@0:     return Math.ceil(x);
michael@0:   }
michael@0: }
michael@0: 
michael@0: //CHECK#1
michael@0: x = 1.3; 
michael@0: y = 1.1;
michael@0: if (x % y !== 0.19999999999999996) {
michael@0:   $ERROR('#1: x = 1.3; y = 1.1; x % y === 0.19999999999999996. Actual: ' + (x % y));
michael@0: }
michael@0: 
michael@0: //CHECK#2
michael@0: x = -1.3; 
michael@0: y = 1.1; 
michael@0: if (x % y !== -0.19999999999999996) {
michael@0:   $ERROR('#2: x = -1.3; y = 1.1; x % y === -0.19999999999999996. Actual: ' + (x % y));
michael@0: }
michael@0: 
michael@0: //CHECK#3
michael@0: x = 1.3; 
michael@0: y = -1.1;
michael@0: if (x % y !== 0.19999999999999996) {
michael@0:   $ERROR('#3: x = 1.3; y = -1.1; x % y === 0.19999999999999996. Actual: ' + (x % y));
michael@0: }
michael@0: 
michael@0: //CHECK#4
michael@0: x = -1.3; 
michael@0: y = -1.1;
michael@0: if (x % y !== -0.19999999999999996) {
michael@0:   $ERROR('#4: x = -1.3; y = -1.1; x % y === -0.19999999999999996. Actual: ' + (x % y));
michael@0: }
michael@0: 
michael@0: //CHECK#5
michael@0: x = 1.3; 
michael@0: y = 1.1;
michael@0: if (x % y !== x - truncate(x / y) * y) {
michael@0:   $ERROR('#5: x = 1.3; y = 1.1; x % y === x - truncate(x / y) * y. Actual: ' + (x % y));
michael@0: }
michael@0: 
michael@0: //CHECK#6
michael@0: x = -1.3; 
michael@0: y = 1.1; 
michael@0: if (x % y !== x - truncate(x / y) * y) {
michael@0:   $ERROR('#6: x = -1.3; y = 1.1; x % y === x - truncate(x / y) * y. Actual: ' + (x % y));
michael@0: }
michael@0: 
michael@0: //CHECK#7
michael@0: x = 1.3; 
michael@0: y = -1.1;
michael@0: if (x % y !== x - truncate(x / y) * y) {
michael@0:   $ERROR('#7: x = 1.3; y = -1.1; x % y === x - truncate(x / y) * y. Actual: ' + (x % y));
michael@0: }
michael@0: 
michael@0: //CHECK#8
michael@0: x = -1.3; 
michael@0: y = -1.1;
michael@0: if (x % y !== x - truncate(x / y) * y) {
michael@0:   $ERROR('#8: x = -1.3; y = -1.1; x % y === x - truncate(x / y) * y. Actual: ' + (x % y));
michael@0: }
michael@0: