Permalink
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (10 sloc) 276 Bytes
use v6;
use Test;
use LWP::Simple;
plan 1;
# don't use rakudo.org anymore, it has proven to be rather unreliable :(
my $logo = LWP::Simple.get('http://www.perl6.org/camelia-logo.png');
ok(
$logo.bytes == 57601 && $logo[ 57_600 ] == 130,
'Fetched Camelia Logo'
);