Lines Matching refs:fatal_alert
39 my $fatal_alert = 0; # set by filters at expected fatal alerts
48 ok($fatal_alert, "Out of context empty records test");
59 $fatal_alert = 0;
66 ok($fatal_alert, "Too many in context empty records test");
71 $fatal_alert = 0;
77 ok($fatal_alert, "Fragmented alert records test");
148 $fatal_alert = 0;
154 ok($fatal_alert, "Unrecognised record type in TLS1.2");
160 $fatal_alert = 0;
165 ok($fatal_alert, "Unrecognised record type in TLS1.1");
169 $fatal_alert = 0;
174 ok($fatal_alert, "Changed record version in TLS1.2");
188 $fatal_alert = 0;
192 ok($fatal_alert, "Unrecognised record type in TLS1.3");
196 $fatal_alert = 0;
200 ok($fatal_alert, "Wrong outer record type in TLS1.3");
212 $fatal_alert = 0;
217 ok($fatal_alert, "Record not on boundary in TLS1.3 (ServerHello)");
221 $fatal_alert = 0;
225 ok($fatal_alert, "Record not on boundary in TLS1.3 (Finished)");
229 $fatal_alert = 0;
233 ok($fatal_alert, "Record not on boundary in TLS1.3 (KeyUpdate)");
238 $fatal_alert = 0;
242 ok($fatal_alert, "Data between KeyUpdate");
260 $fatal_alert = 1 if @{$records}[-1]->is_fatal_alert(1) == 10;
288 $fatal_alert = 1 if @{$records}[-1]->is_fatal_alert(1) == 10;
494 $fatal_alert = 1 if @{$records}[-1]->is_fatal_alert(0) == 10;
528 $fatal_alert = 1 if @{$records}[-1]->is_fatal_alert(0) == 70;
545 $fatal_alert = 1 if @{$records}[-1]->is_fatal_alert(0) == 10;
568 $fatal_alert = 1 if @{$records}[-1]->is_fatal_alert(0) == 10;