Lines Matching refs:proxy
30 my $proxy = TLSProxy::Proxy->new(
47 $proxy->filter(\&hrr_filter);
49 $proxy->serverflags("-curves ffdhe3072");
51 $proxy->serverflags("-curves P-256");
54 $proxy->start() or plan skip_all => "Unable to start up Proxy for tests";
60 $proxy->clear();
62 $proxy->serverflags("-curves ffdhe3072");
64 $proxy->serverflags("-curves P-384");
66 $proxy->ciphersuitess("TLS_AES_128_GCM_SHA256:TLS_AES_256_GCM_SHA384");
68 $proxy->start();
74 $proxy->clear();
76 $proxy->serverflags("-curves ffdhe3072");
78 $proxy->serverflags("-curves P-384");
81 $proxy->start();
94 $proxy->clear();
95 $proxy->clientflags("-groups P-256:brainpoolP512r1:P-521");
96 $proxy->serverflags("-groups brainpoolP512r1:P-521");
98 $proxy->start();
105 $proxy->clear();
107 $proxy->serverflags("-curves ffdhe3072");
109 $proxy->serverflags("-curves P-384");
112 $proxy->start();
117 my $proxy = shift;
121 if ($proxy->flight != 1) {
125 my $hrr = ${$proxy->message_list}[1];
137 if ($proxy->flight == 2) {
139 … if @{$proxy->record_list}[-1]->is_fatal_alert(0) == TLSProxy::Message::AL_DESC_MISSING_EXTENSION;
144 if ($proxy->flight != 1) {
148 my $hrr = ${$proxy->message_list}[1];
157 if ($proxy->flight == 4) {
159 … if @{$proxy->record_list}[-1]->is_fatal_alert(0) == TLSProxy::Message::AL_DESC_UNEXPECTED_MESSAGE;
162 if ($proxy->flight != 3) {
168 for ($i = 0; ${$proxy->record_list}[$i]->flight() < 1; $i++) {
171 my $hrr_record = ${$proxy->record_list}[$i];
183 splice @{$proxy->record_list}, $i, 0, $dup_hrr;
187 if ($proxy->flight != 0) {
191 my $ch1 = ${$proxy->message_list}[0];
