Lines Matching full:proxy

12 use TLSProxy::Proxy;
31 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-256");
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-256");
81 $proxy->start();
94     $proxy->clear();
95     $proxy->clientflags("-groups P-256:brainpoolP512r1:X25519");
96     $proxy->serverflags("-groups brainpoolP512r1:X25519");
98     $proxy->start();
104     my $proxy = shift;
108         if ($proxy->flight != 1) {
112         my $hrr = ${$proxy->message_list}[1];
115         # because that's what Proxy tells s_server to do. Setting as below means
125         if ($proxy->flight == 4) {
127                 if @{$proxy->record_list}[-1]->is_fatal_alert(0) == 10;
130         if ($proxy->flight != 3) {
136         for ($i = 0; ${$proxy->record_list}[$i]->flight() < 1; $i++) {
139         my $hrr_record = ${$proxy->record_list}[$i];
151         splice @{$proxy->record_list}, $i, 0, $dup_hrr;
155     if ($proxy->flight != 0) {
159     my $ch1 = ${$proxy->message_list}[0];