1 -----------------------------------------------------------------------
2 -- Copyright (c) 2009 Malte S. Stretz <http://msquadrat.de>
4 -- Testing the parity generator.
5 -----------------------------------------------------------------------
6 -- This entity is part of the following library:
7 -- pragma library fhw_rs232_t
10 use fhw_rs232.rs232_globals_p.all;
13 use ieee.std_logic_1164.all;
14 use ieee.numeric_std.all;
17 use stefanvhdl.txt_util.all;
19 -----------------------------------------------------------------------
21 entity rs232_globals_parity_t is
22 end rs232_globals_parity_t;
24 architecture test of rs232_globals_parity_t is
26 word : std_logic_vector;
27 expect : std_logic) is
28 variable e_p_v, e_e_v : std_logic;
29 variable o_p_v, o_e_v : std_logic;
31 e_e_v := expect; o_e_v := not expect;
32 e_p_v := get_parity(word, '0'); assert e_p_v = e_e_v report "wrong E parity for " & str(word) & ": " & str(e_p_v) & " != " & str(e_e_v);
33 o_p_v := get_parity(word, '1'); assert o_p_v = o_e_v report "wrong O parity for " & str(word) & ": " & str(o_p_v) & " != " & str(o_e_v);