this commit resolves #4

Community Toolbox/scripts/suite_CommunityToolboxSuite/suite_CommunityToolboxSuite.gml

@@ -1,3 +1,4 @@
 function CommunityToolboxSuite() : VerrificSuiteGroup("Community toolbox tests") constructor {
     add_suite(new MiscUtilsSuite());
+    add_suite(new MathUtilsSuite());
 }

Community Toolbox/scripts/suite_MathUtilsSuite/suite_MathUtilsSuite.gml

@@ -0,0 +1,3 @@
+function MathUtilsSuite() : VerrificSuiteGroup("Math utilities tests") constructor {
+    add_methods_from(EucmoddivTests);
+}

Community Toolbox/scripts/tests_EucmoddivTests/tests_EucmoddivTests.gml

@@ -0,0 +1,59 @@
+function EucmoddivTests(_run, _method) : VerrificMethodTest(_run, _method) constructor {
+    static test_subject = "eucmod/eucdiv";
+    static should_be_positive_eucmod_pos_pos = function() {
+        _a = 7;
+        _b = 3;
+        _r = eucmod(_a,_b);
+        assert_is_true( _r >= 0 && _r < abs(_b));
+    }
+
+    static should_be_positive_eucmod_pos_neg = function() {
+        _a = 7;
+        _b = -3;
+        _r = eucmod(_a,_b);
+        assert_is_true( _r >= 0 && _r < abs(_b));
+    }
+
+    static should_be_positive_eucmod_neg_pos = function() {
+        _a = -7;
+        _b = 3;
+        _r = eucmod(_a,_b);
+        assert_is_true( _r >= 0 && _r < abs(_b));
+    }
+
+    static should_be_positive_eucmod_neg_neg = function() {
+        _a = -7;
+        _b = -3;
+        _r = eucmod(_a,_b);
+        assert_is_true( _r >= 0 && _r < abs(_b));
+    }
+
+    static should_equal_dividend_pos_pos = function() {
+        _a = 7;
+        _b = 3;
+        _result = eucdiv(_a, _b) * _b + eucmod(_a, _b);
+        assert_is_true(_a == _result);
+    }
+
+    static should_equal_dividend_pos_neg = function() {
+        _a = 7;
+        _b = -3;
+        _result = eucdiv(_a, _b) * _b + eucmod(_a, _b);
+        assert_is_true(_a == _result);
+    }
+
+    static should_equal_dividend_neg_pos = function() {
+        _a = -7;
+        _b = 3;
+        _result = eucdiv(_a, _b) * _b + eucmod(_a, _b);
+        assert_is_true(_a == _result);
+    }
+
+    static should_equal_dividend_neg_neg = function() {
+        _a = -7;
+        _b = -3;
+        _result = eucdiv(_a, _b) * _b + eucmod(_a, _b);
+        assert_is_true(_a == _result);
+    }
+
+}

Community Toolbox/scripts/utils_Math/utils_Math.gml

@@ -0,0 +1,30 @@
+/// @func eucmod(dvnd,dvsr)
+/// @desc Calculates a remainder from the Euclidian division (the remainder will always be non-negative).
+/// @arg {Real} dvnd        The value to divide, or dividend.
+/// @arg {Real} dvsr        The value to divide by, or divisor.
+/// @returns {Real}
+function eucmod(_dvnd,_dvsr){
+    _r = _dvnd%_dvsr;
+    if (_r > 0)
+        return _r;
+    else if (_dvsr > 0)
+        return _r + _dvsr;
+    else
+        return _r - _dvsr;
+}
+
+/// @func eucdiv(dvnd,dvsr)
+/// @desc Calculates an integer quotient of the Euclidian division (i.e. with non-negative remainder).
+/// @arg {Real} dvnd        The value to divide, or dividend.
+/// @arg {Real} dvsr        The value to divide by, or divisor.
+/// @returns {Real}
+function eucdiv(_dvnd,_dvsr){
+    _q = _dvnd div _dvsr;
+
+    if (_dvnd > 0)
+        return _q;
+    else if (_dvsr > 0)
+        return _q - 1;
+    else
+        return _q + 1;
+}