Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 8fb8704993
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (14 sloc) 0.402 kb
use v6;
use Test;
use LWP::Simple;
plan 4;
my $fname = "./tmp-getstore-$*PID";
try unlink $fname;
ok(
LWP::Simple.getstore('http://www.opera.com', $fname),
'getstore() returned success'
);
my $fh = open($fname);
ok($fh, 'Opened file handle written by getstore()');
ok $fh.slurp ~~ /Opera \s+ browser/, 'Found pattern in downloaded file';
ok(unlink($fname), 'Delete the temporary file');
Jump to Line
Something went wrong with that request. Please try again.