tony-o/perl6-http-server-async — pull request #3 by ugexe (2014-06-16 22:50:49+00:00)
Title: Added more tests; updated broken tests

More tests that should fail on earlier perl6 version that get stuck. Corrected the following tests which were just assignments (aka ok 1;)

-ok @data[0] = "200 OK\r\n";
-ok @data[1] = "Content-Type: text/plain\r\nContent-Length: 12\r\n\r\n";
-ok @data[2] = "Hello world!";

Tried to use regex for:
is @data[0], "HTTP/1.1 200 OK\r\n", "Code: 200";
but could not get it to work (ok @data[0] ~~ /200 OK/, "Code: 200";)