Merge pull request #101 from JJ/master

Fixed test error

.gitignore

@@ -1,3 +1,2 @@
 /blib/
-/lib/.precomp/
-/t/lib/.precomp/
+**/.precomp/

README.md

@@ -110,6 +110,25 @@ AUTHORS
 
   * fayland
 
+INSTALL AND TEST
+================
+
+Install dependencies with 
+
+    zef install --deps-only .
+
+And then test with
+
+    prove -Ilib --exec "perl6 -Ilib" -r t
+
+(provided `prove` is installed via Perl5's `Test::Harness`)
+
+Or better
+
+    zef test .
+
+(this will use available test facilities, including the one above)
+
 COPYRIGHT AND LICENSE
 =====================
 

lib/Crust/Middleware/Lint.pm6

@@ -60,11 +60,10 @@ my sub validate-ret(@ret) {
     unless @ret[1].isa(List) {
         die "Headers needs to be an list: @ret[1]";
     }
-
     my $copy = @ret[1];
-
     {
-        $copy.pairup();
+	our %this-copy = $copy;
+        %this-copy.pairup();
         CATCH {
             default {
                 die 'The number of response headers needs to be even, not odd(', $copy, ')';

t/Crust-Middleware/lint.t

@@ -111,7 +111,7 @@ subtest {
             }
         );
         lives-ok({await $code(%env)});
-    }, 'Should works fine';
+    }, 'Should work fine';
 
     subtest {
         my $code = Crust::Middleware::Lint.new(
@@ -125,7 +125,7 @@ subtest {
             sub (%env) { start { 'status!!', [], ['hello'] } }
         );
         dies-ok({await $code(%env)});
-    }, 'Should die because response has not numerical status code';
+    }, 'Should die because response has not got a numerical status code';
 
     subtest {
         my $code = Crust::Middleware::Lint.new(