blob: 721cfb0f5230b85b30b1825c289de07566cfb641 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
module tb_scorehand();
logic err;
logic [3:0] card1, card2, card3, total;
scorehand DUT(card1, card2, card3, total);
task check;
input logic [3:0] expected;
if (total !== expected) begin
err = 1;
$display("FAILED: total is incorrect.");
end
endtask: check;
initial begin
#10000;
$stop;
end
initial begin
err = 0;
/* (9 + 9 + 9) % 10 = 7. */
$display("Test 1");
card1 = 4'd9;
card2 = 4'd9;
card3 = 4'd9;
#5;
check(4'd7);
#5;
/* (9 + 9 + 0) % 10 = 8. */
$display("Test 2");
card1 = 4'd9;
card2 = 4'd9;
card3 = 4'd0;
#5;
check(4'd8);
#5;
/* (T + K + A) % 10 = 1. */
$display("Test 3");
card1 = 4'd10;
card2 = 4'd13;
card3 = 4'd1;
#5;
check(4'd1);
#5;
/* (J + Q + K) % 10 = 0. */
$display("Test 4");
card1 = 4'd11;
card2 = 4'd12;
card3 = 4'd13;
#5;
check(4'd0);
#5;
/* (A + 2 + 3) % 10 = 6. */
$display("Test 5");
card1 = 4'd1;
card2 = 4'd2;
card3 = 4'd3;
#5;
check(4'd6);
#5;
/* (9 + 0 + 0) % 10 = 9. */
$display("Test 6");
card1 = 4'd9;
card2 = 4'd0;
card3 = 4'd0;
#5;
check(4'd9);
#5;
/* (9 + T + 0) % 10 = 9. */
$display("Test 7");
card1 = 4'd9;
card2 = 4'd10;
card3 = 4'd0;
#5;
check(4'd9);
#5;
/* (9 + A + 0) % 10 = 0. */
$display("Test 8");
card1 = 4'd9;
card2 = 4'd1;
card3 = 4'd0;
#5;
check(4'd0);
#5;
if (~err)
$display("All tests passed.");
#10;
$stop;
end
endmodule: tb_scorehand
|
