Skip to content
Newer
Older
100644 24 lines (15 sloc) 365 Bytes
58135b3 [t/spec] changed 'use v6-alpha;' to 'use v6;'
moritz authored
1 use v6;
f0472ee [t] Refactored IO.getpeername tests under t/spec/S16-unfiled.
cosimo authored
2 use Test;
3
98791c8 update some of the smartlinks
szabgab authored
4 # old: L<S16/"Unfiled"/"IO.getpeername">
5 # L<S32::IO/IO::Socket/getpeername>
f0472ee [t] Refactored IO.getpeername tests under t/spec/S16-unfiled.
cosimo authored
6
7 =begin pod
8
9 IO.getpeername test
10
11 =end pod
12
13 plan 1;
14
15 if $*OS eq "browser" {
16 skip_rest "Programs running in browsers don't have access to regular IO.";
17 exit;
18 }
19
20 my $sock = connect('google.com', 80);
33b6b7f [t/spec] more test corrections wrt undef
moritz authored
21 ok $sock.getpeername.defined, "IO.getpeer works";
7f29bc5 [t/spec] Add vim: lines everywhere.
kyle authored
22
23 # vim: ft=perl6
Something went wrong with that request. Please try again.