Skip to content

Commit

Permalink
tests: s/.send/.print/
Browse files Browse the repository at this point in the history
  • Loading branch information
ugexe committed Sep 1, 2015
1 parent 7540494 commit 1ef0d0d
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions t/01-basic.t
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ $ssl.close;

subtest {
lives-ok { $ssl = IO::Socket::SSL.new(:host<google.com>, :port(443)) };
is $ssl.send("GET / HTTP/1.1\r\nHost:www.google.com\r\nConnection:close\r\n\r\n"), 57;
is $ssl.print("GET / HTTP/1.1\r\nHost:www.google.com\r\nConnection:close\r\n\r\n"), 57;
ok $ssl.get ~~ /\s3\d\d\s/|/\s2\d\d\s/;
$ssl.close;
}, 'google: ssl';
Expand All @@ -20,6 +20,6 @@ skip "Negotiate ssl degrade", 1;
subtest {
return;
lives_ok { $ssl = IO::Socket::SSL.new(:host<google.com>, :port(80)) };
is $ssl.send("GET / HTTP/1.1\r\nHost:www.google.com\r\nConnection:close\r\n\r\n"), 57;
is $ssl.print("GET / HTTP/1.1\r\nHost:www.google.com\r\nConnection:close\r\n\r\n"), 57;
ok $ssl.get ~~ /\s200\s/;
}, "Connect non-ssl port:80";

0 comments on commit 1ef0d0d

Please sign in to comment.