[JUART]

- self checking TB with incremented data

git-svn-id: http://moon:8086/svn/vhdl/trunk@1344 cc03376c-175c-47c8-b038-4cd826a8556b

lib/uart/tb_juart_tx_rx.vhd

@@ -53,7 +53,7 @@ architecture behave of tb_juart_tx_rx is
 	signal baud_count		: unsigned(15 downto 0);
 	signal baudrate			: unsigned(15 downto 0) := X"0001";
 	signal data_rx			: unsigned(7 downto 0);
-	signal data_tx			: unsigned(7 downto 0) := X"AA";
+	signal data_tx			: unsigned(7 downto 0);
 	
 begin
 
@@ -88,10 +88,17 @@ CLK_GEN: process
 		clk <= not clk;
 	end process;
 
-PROC_DATAREG: process
+PROC_DATAREG_RX: process
 	begin
 		wait until rising_edge(clk) and data_strobe = '1';
 		data_rx <= data_out;
+		assert data_out = data_tx report "Data mismatch" severity failure;
+	end process;
+
+PROC_DATAREG_TX: process
+	begin
+		wait until rising_edge(clk) and send_character = '1';
+		data_tx <= data_in;
 	end process;
 
 baud_timer:
@@ -121,22 +128,14 @@ STIMULUS: process
 		rst <= '0';
 		wait for 3*CLK_PERIOD;
 		wait until rising_edge(clk);
-		data_in <= X"A5";
-		wait until rising_edge(clk) and Tx_complete = '1';
-		send_character <= '1';
-		wait until rising_edge(clk) and Tx_complete = '0';
-		send_character <= '0';
-		wait until rising_edge(clk) and Tx_complete = '1';
-		data_in <= X"AA";
-		wait until rising_edge(clk) and Tx_complete = '1';
-		send_character <= '1';
-		wait until rising_edge(clk) and Tx_complete = '0';
-		send_character <= '0';
-		data_in <= X"55";
-		wait until rising_edge(clk) and Tx_complete = '1';
-		send_character <= '1';
-		wait until rising_edge(clk) and Tx_complete = '0';
-		send_character <= '0';
+		
+		for i in 0 to 255 loop
+			wait until rising_edge(clk) and Tx_complete = '1';
+			data_in <= to_unsigned(i, 8);
+			send_character <= '1';
+			wait until rising_edge(clk) and Tx_complete = '0';
+			send_character <= '0';
+		end loop;
 		wait; 
 	
 	end process;