Adds state-opening routines

lib/Utils.pm6

@@ -47,12 +47,12 @@ sub issue-per-module( %tickets, @modules --> Hash ) is export {
 }
 
 #| Edit issue
-sub open-single-issue(:$url, :$token) {
+sub open-single-issue($url, $token) is export {
     patch( :$url, :$token, body => { state => 'open' } );
 }
 
-sub close-single-issue(:$url, :$token) {
-    patch( :$url, :$token, body => { state => 'close' } ),
+sub close-single-issue($url, $token) is export {
+    patch( :$url, :$token, body => { state => 'closed' } ),
 }
 
 #| patch with cro

t/1.t6

@@ -12,12 +12,20 @@ my @not-ok-modules = modules-not-ok( $file );
 ok @not-ok-modules, "Some modules are not OK";
 my %tickets;
 if %*ENV{'GH_TOKEN'} {
-    %tickets = get-issues( %*ENV{'GH_TOKEN'} );
+    my $token = %*ENV{'GH_TOKEN'};
+    %tickets = get-issues( $token );
     ok %tickets, "Downloads tickets";
     cmp-ok %tickets.elems, ">", 1, "There are tickets";
     my %mapping = issue-per-module( %tickets, @not-ok-modules );
     ok %mapping, "Mapping done";
-    dd %mapping;
+    for %tickets.keys -> $k {
+        say %tickets{$k}<state>;
+    }
+    my @closed-issues = %tickets.keys.grep( { %tickets{$_}<state> eq "closed"} );
+    ok @closed-issues, "Some issues are closed" or skip "No closed issues", 1;
+    my $resp = open-single-issue( @closed-issues[0], $token );
+    ok $resp, "Single issue has been opened";
+    dd $resp;
 } else {
     skip "No token for issues",1;
 }