Verificando a Saída

module traffic_light (
  input clk,
  input reset,
  output reg red,
  output reg yellow,
  output reg green
);
  // Estados: 0=Green, 1=Yellow, 2=Red
  reg [1:0] state;
  reg [5:0] counter;
  
  always @(posedge clk or posedge reset) begin
    if (reset) begin
      state <= 2;      // Começa em Red
      counter <= 0;
    end else begin
      if (counter == 0) begin
        // Muda o estado
        if (state == 0) begin  // Green -> Yellow
          state <= 1;
          counter <= 10;       // Yellow dura 10 segundos
        end else if (state == 1) begin  // Yellow -> Red
          state <= 2;
          counter <= 40;       // Red dura 40 segundos
        end else begin  // Red -> Green
          state <= 0;
          counter <= 30;       // Green dura 30 segundos
        end
      end else begin
        counter <= counter - 1;
      end
    end
  end
  
  // Lógica de saída
  always @(*) begin
    red = (state == 2);
    yellow = (state == 1);
    green = (state == 0);
  end
  
endmodule

module testbench;
  reg clk, reset;
  wire red, yellow, green;
  
  traffic_light uut (
    .clk(clk),
    .reset(reset),
    .red(red),
    .yellow(yellow),
    .green(green)
  );
  
  always #1 clk = ~clk;
  
  initial begin
    // TODO: Adicionar $dumpfile para criar "traffic.vcd"
    
    // TODO: Adicionar $dumpvars para realizar o dump de todos os sinais (0, testbench)
    
    $display("Traffic Light Test");
    $monitor("Time %0t: red=%b, yellow=%b, green=%b", $time, red, yellow, green);
    
    clk = 0;
    reset = 1;
    #2 reset = 0;
    
    #90;
    $finish;
  end
endmodule