Adds missing functions to test_utility
This commit is contained in:
parent
d70fb11d78
commit
691160d653
@ -12,6 +12,7 @@ package test_utility is
|
|||||||
|
|
||||||
type real_array is array ( natural range <> ) of real;
|
type real_array is array ( natural range <> ) of real;
|
||||||
|
|
||||||
|
procedure assert_eq( a : in std_logic; b : in std_logic );
|
||||||
procedure assert_eq( a : in std_logic_vector; b : in std_logic_vector );
|
procedure assert_eq( a : in std_logic_vector; b : in std_logic_vector );
|
||||||
|
|
||||||
procedure assert_near( variable a : in real;
|
procedure assert_near( variable a : in real;
|
||||||
@ -27,9 +28,17 @@ end package test_utility;
|
|||||||
|
|
||||||
package body test_utility is
|
package body test_utility is
|
||||||
|
|
||||||
|
procedure assert_eq( a : in std_logic; b : in std_logic ) is
|
||||||
|
begin
|
||||||
|
assert( a = b )
|
||||||
|
report TEST_FAIL & "assert_eq" & LF &
|
||||||
|
" a: " & to_string( a ) & LF &
|
||||||
|
" b: " & to_string( b ) & LF
|
||||||
|
severity error;
|
||||||
|
end procedure assert_eq;
|
||||||
|
|
||||||
procedure assert_eq( a : in std_logic_vector; b : in std_logic_vector ) is
|
procedure assert_eq( a : in std_logic_vector; b : in std_logic_vector ) is
|
||||||
begin
|
begin
|
||||||
|
|
||||||
assert( a = b )
|
assert( a = b )
|
||||||
report TEST_FAIL & "assert_eq" & LF &
|
report TEST_FAIL & "assert_eq" & LF &
|
||||||
" a: " & to_string( a ) & LF &
|
" a: " & to_string( a ) & LF &
|
||||||
|
Loading…
x
Reference in New Issue
Block a user