Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 271581cd2e
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (10 sloc) 0.34 kB
#!/usr/bin/env perl6
use v6;
BEGIN { @*INC.unshift: './lib'; }
use HTTP::Status;
use Test;
plan 4;
is get_http_status_msg(200), 'OK', 'Known code 1';
is get_http_status_msg(404), 'Not Found', 'Known code 2';
is get_http_status_msg(289), 'Unknown', 'Unknown code 1';
is get_http_status_msg(607), 'Unknown', 'Unknown code 2';
Jump to Line
Something went wrong with that request. Please try again.