/*
 * Exhaustive check of all the compare results.
 */
module main;

   wire out;
   reg [7:0] A, B;

   ge8 dut(.out(out), .A(A), .B(B));

   reg	     error = 0;
   integer   adx, bdx;

   initial begin
      A = 0;
      B = 0;
      #1 $display("%b >= %b: %b", A, B, out);

      for (adx = 0 ;  adx < 256 ;  adx = adx + 1) begin
	 A = adx;
	 for (bdx = 0 ;  bdx < 256 ;  bdx = bdx + 1) begin
	    B = bdx;
	    #1 $write("%b >= %b: %b", A, B, out);
	    if (out === 1) begin
	       if (A < B) begin
		  $display(" ERROR");
		  error = 1;
	       end else begin
		  $display(" OK");
	       end

	    end else if (out === 0) begin
	       if (A < B) begin
		  $display(" OK");
	       end else begin
		  $display(" ERROR");
		  error = 1;
	       end

	    end else begin
	       $display(" ERROR");
	       error = 1;
	    end // else: !if(out === 0)

	 end // for (bdx = 0 ;  bdx < 256 ;  bdx += 1)
      end // for (adx = 0 ;  adx < 256 ;  adx = adx + 1)

      if (error == 0)
	$display("PASSED");
      else
	$display("FAILED");

   end // initial begin
endmodule // main