Add testbenchHEADmaster

1 files changed, 334 insertions, 4 deletions

diff --git a/task5/tb_datapath.sv b/task5/tb_datapath.sv
index 64ff5ab..823ead5 100644
--- a/task5/tb_datapath.sv
+++ b/task5/tb_datapath.sv
@@ -1,7 +1,337 @@
+`define ACE	7'b0001000
+`define TWO	7'b0100100
+`define THREE	7'b0110000
+`define FOUR	7'b0011001
+`define FIVE	7'b0010010
+`define SIX	7'b0000010
+`define SEVEN	7'b1111000
+`define EIGHT	7'b0000000
+`define NINE	7'b0010000
+`define TEN	7'b1000000
+`define JACK	7'b1100001
+`define QUEEN	7'b0011000
+`define KING	7'b0001001
+`define BLANK	7'b1111111
+
 module tb_datapath();
+	logic err, slow_clock, fast_clock, resetb,
+		load_pcard1, load_pcard2, load_pcard3,
+		load_dcard1, load_dcard2, load_dcard3;
+	logic [3:0] pcard3_out, pscore_out, dscore_out;
+	logic [6:0] HEX0, HEX1, HEX2, HEX3, HEX4, HEX5;
+
+	datapath DUT(slow_clock, fast_clock, resetb,
+		load_pcard1, load_pcard2, load_pcard3,
+		load_dcard1, load_dcard2, load_dcard3,
+		pcard3_out, pscore_out, dscore_out,
+		HEX5, HEX4, HEX3, HEX2, HEX1, HEX0);
+
+	task check;
+		input logic [3:0] expected_pscore, expected_dscore;
+		input logic [6:0] expected_HEX0, expected_HEX1, expected_HEX2,
+			expected_HEX3, expected_HEX4, expected_HEX5;
+
+		if (pscore_out !== expected_pscore) begin
+			err = 1;
+			$display("FAILED: pscore_out is incorrect.",);
+		end
+		if (dscore_out !== expected_dscore) begin
+			err = 1;
+			$display("FAILED: dscore_out is incorrect.",);
+		end
+		if (HEX0 !== expected_HEX0) begin
+			err = 1;
+			$display("FAILED: HEX0 is incorrect.",);
+		end
+		if (HEX1 !== expected_HEX1) begin
+			err = 1;
+			$display("FAILED: HEX1 is incorrect.",);
+		end
+		if (HEX2 !== expected_HEX2) begin
+			err = 1;
+			$display("FAILED: HEX2 is incorrect.",);
+		end
+		if (HEX3 !== expected_HEX3) begin
+			err = 1;
+			$display("FAILED: HEX3 is incorrect.",);
+		end
+		if (HEX4 !== expected_HEX4) begin
+			err = 1;
+			$display("FAILED: HEX4 is incorrect.",);
+		end
+		if (HEX5 !== expected_HEX5) begin
+			err = 1;
+			$display("FAILED: HEX5 is incorrect.",);
+		end
+	endtask: check
+
+	initial forever begin
+		slow_clock = 1'b0;
+		#5;
+		slow_clock = 1'b1;
+		#5;
+	end
+
+	initial begin
+		err = 0;
+
+		{resetb, load_pcard1, load_pcard2, load_pcard3,
+			load_pcard1, load_pcard2, load_pcard3}
+			= 7'b0;
+
+		#10;
+
+		resetb = 1'b1;
+
+		/* Player: AK8, dealer: TJ9. */
+
+		/* Load A. */
+
+		$display("Test 1.1");
+
+		force tb_datapath.DUT.new_card = 4'd1;
+		load_pcard1 = 1'b1;
+
+		#10;
+
+		check(4'd1, 4'd0, `ACE, `BLANK, `BLANK, `BLANK, `BLANK, `BLANK);
+		load_pcard1 = 1'b0;
+
+		/* Load T. */
+
+		$display("Test 1.2");
+
+		force tb_datapath.DUT.new_card = 4'd10;
+		load_dcard1 = 1'b1;
+
+		#10;
+
+		check(4'd1, 4'd0, `ACE, `BLANK, `BLANK, `TEN, `BLANK, `BLANK);
+		load_dcard1 = 1'b0;
+
+		/* Load K. */
+
+		$display("Test 1.3");
+
+		force tb_datapath.DUT.new_card = 4'd13;
+		load_pcard2 = 1'b1;
+
+		#10;
+
+		check(4'd1, 4'd0, `ACE, `KING, `BLANK, `TEN, `BLANK, `BLANK);
+		load_pcard2 = 1'b0;
+
+		/* Load J. */
+
+		$display("Test 1.4");
+
+		force tb_datapath.DUT.new_card = 4'd11;
+		load_dcard2 = 1'b1;
+
+		#10;
+
+		check(4'd1, 4'd0, `ACE, `KING, `BLANK, `TEN, `JACK, `BLANK);
+		load_dcard2 = 1'b0;
+
+		/* Load 8. */
+
+		$display("Test 1.5");
+
+		force tb_datapath.DUT.new_card = 4'd8;
+		load_pcard3 = 1'b1;
+
+		#10;
+
+		check(4'd9, 4'd0, `ACE, `KING, `EIGHT, `TEN, `JACK, `BLANK);
+		load_pcard3 = 1'b0;
+
+		/* Load 9. */
+
+		$display("Test 1.6");
+
+		force tb_datapath.DUT.new_card = 4'd9;
+		load_dcard3 = 1'b1;
+
+		#10;
+
+		check(4'd9, 4'd9, `ACE, `KING, `EIGHT, `TEN, `JACK, `NINE);
+		load_dcard3 = 1'b0;
+
+		/* Reset. */
+
+		$display("Test 1.7");
+
+		resetb = 1'b0;
+
+		#10;
+
+		check(4'd0, 4'd0, `BLANK, `BLANK, `BLANK, `BLANK, `BLANK, `BLANK);
+		resetb = 1'b1;
+
+		/* Player: 234, dealer: 567. */
+
+		/* Load 2. */
+
+		$display("Test 2.1");
+
+		force tb_datapath.DUT.new_card = 4'd2;
+		load_pcard1 = 1'b1;
+
+		#10;
+
+		check(4'd2, 4'd0, `TWO, `BLANK, `BLANK, `BLANK, `BLANK, `BLANK);
+		load_pcard1 = 1'b0;
+
+		/* Load 5. */
+
+		$display("Test 2.2");
+
+		force tb_datapath.DUT.new_card = 4'd5;
+		load_dcard1 = 1'b1;
+
+		#10;
+
+		check(4'd2, 4'd5, `TWO, `BLANK, `BLANK, `FIVE, `BLANK, `BLANK);
+		load_dcard1 = 1'b0;
+
+		/* Load 3. */
+
+		$display("Test 2.3");
+
+		force tb_datapath.DUT.new_card = 4'd3;
+		load_pcard2 = 1'b1;
+
+		#10;
+
+		check(4'd5, 4'd5, `TWO, `THREE, `BLANK, `FIVE, `BLANK, `BLANK);
+		load_pcard2 = 1'b0;
+
+		/* Load 6. */
+
+		$display("Test 2.4");
+
+		force tb_datapath.DUT.new_card = 4'd6;
+		load_dcard2 = 1'b1;
+
+		#10;
+
+		check(4'd5, 4'd1, `TWO, `THREE, `BLANK, `FIVE, `SIX, `BLANK);
+		load_dcard2 = 1'b0;
+
+		/* Load 4. */
+
+		$display("Test 2.5");
+
+		force tb_datapath.DUT.new_card = 4'd4;
+		load_pcard3 = 1'b1;
+
+		#10;
+
+		check(4'd9, 4'd1, `TWO, `THREE, `FOUR, `FIVE, `SIX, `BLANK);
+		load_pcard3 = 1'b0;
+
+		/* Load 7. */
+
+		$display("Test 2.6");
+
+		force tb_datapath.DUT.new_card = 4'd7;
+		load_dcard3 = 1'b1;
+
+		#10;
+
+		check(4'd9, 4'd8, `TWO, `THREE, `FOUR, `FIVE, `SIX, `SEVEN);
+		load_dcard3 = 1'b0;
+
+		/* Reset. */
+
+		$display("Test 2.7");
+
+		resetb = 1'b0;
+
+		#10;
+
+		check(4'd0, 4'd0, `BLANK, `BLANK, `BLANK, `BLANK, `BLANK, `BLANK);
+		resetb = 1'b1;
+
+		/* Player: 89, dealer: JQK. */
+
+		/* Load 8. */
+
+		$display("Test 3.1");
+
+		force tb_datapath.DUT.new_card = 4'd8;
+		load_pcard1 = 1'b1;
+
+		#10;
+
+		check(4'd8, 4'd0, `EIGHT, `BLANK, `BLANK, `BLANK, `BLANK, `BLANK);
+		load_pcard1 = 1'b0;
+
+		/* Load J. */
+
+		$display("Test 3.2");
+
+		force tb_datapath.DUT.new_card = 4'd11;
+		load_dcard1 = 1'b1;
+
+		#10;
+
+		check(4'd8, 4'd0, `EIGHT, `BLANK, `BLANK, `JACK, `BLANK, `BLANK);
+		load_dcard1 = 1'b0;
+
+		/* Load 9. */
+
+		$display("Test 3.3");
+
+		force tb_datapath.DUT.new_card = 4'd9;
+		load_pcard2 = 1'b1;
+
+		#10;
+
+		check(4'd7, 4'd0, `EIGHT, `NINE, `BLANK, `JACK, `BLANK, `BLANK);
+		load_pcard2 = 1'b0;
+
+		#10;
+
+		/* Load Q. */
+
+		$display("Test 3.4");
+
+		force tb_datapath.DUT.new_card = 4'd12;
+		load_dcard2 = 1'b1;
+
+		#10;
+
+		check(4'd7, 4'd0, `EIGHT, `NINE, `BLANK, `JACK, `QUEEN, `BLANK);
+		load_dcard2 = 1'b0;
+
+		/* Load K. */
+
+		$display("Test 3.5");
+
+		force tb_datapath.DUT.new_card = 4'd13;
+		load_dcard3 = 1'b1;
+
+		#10;
+
+		check(4'd7, 4'd0, `EIGHT, `NINE, `BLANK, `JACK, `QUEEN, `KING);
+		load_dcard3 = 1'b0;
+
+		/* Reset. */
+
+		$display("Test 3.6");
+
+		resetb = 1'b0;
+
+		#10;
+
+		check(4'd0, 4'd0, `BLANK, `BLANK, `BLANK, `BLANK, `BLANK, `BLANK);
+		resetb = 1'b1;
 
-// Your testbench goes here. Make sure your tests exercise the entire design
-// in the .sv file.  Note that in our tests the simulator will exit after
-// 10,000 ticks (equivalent to "initial #10000 $finish();").
+		if (~err)
+			$display("All tests passed.");
 
-endmodule
+		#10;
+		$stop;
+	end
+endmodule: tb_datapath