Use <= instead of < in almost_equal(), so that delta can be 1 in case of integer.

libraries/base/common/src/vhdl/common_pkg.vhd

@@ -674,7 +674,7 @@ PACKAGE BODY common_pkg IS
   
   FUNCTION almost_equal(a, b, delta : REAL) RETURN BOOLEAN IS
   BEGIN
-    IF ABS(a - b) < ABS(delta) THEN
+    IF ABS(a - b) <= ABS(delta) THEN
       RETURN TRUE;
     ELSE
       RETURN FALSE;
@@ -683,7 +683,7 @@ PACKAGE BODY common_pkg IS
 
   FUNCTION almost_equal(a, b, delta : INTEGER) RETURN BOOLEAN IS
   BEGIN
-    IF ABS(a - b) < ABS(delta) THEN
+    IF ABS(a - b) <= ABS(delta) THEN
       RETURN TRUE;
     ELSE
       RETURN FALSE;