Merge branch 'master' of github.com:perl6/ecosystem-unbitrot

Raku · Feb 8, 2019 · 9be04c4 · 9be04c4
2 parents 0e2feb4 + 42fe4be
commit 9be04c4
Show file tree

Hide file tree

Showing 5 changed files with 46 additions and 22 deletions.
diff --git a/META6.json b/META6.json
@@ -0,0 +1,23 @@
+{
+    "name" : "Unbitrot::Utils",
+    "source-url" : "git://github.com/perl6/ecosystem-unbitrot",
+    "perl" : "6.d",
+    "build-depends" : [ ],
+    "provides" : {
+        "Unbitrot::Utils" : "lib/Unbitrot/Utils.pm6"
+    },
+    "tags" : [
+            "Ecosystem", "Unbitrot"
+        ],
+    "depends" : [
+	"JSON::Fast",
+	"cro"
+    ],
+    "description" : "Utilities for ecosystem unbitrot squashathons",
+    "test-depends" : [ ],
+    "version" : "0.0.2",
+    "license" : "Perl",
+    "authors" : [
+        "Perl6"
+    ]
+}
diff --git a/bin/update-issues.p6 b/bin/update-issues.p6
@@ -36,7 +36,7 @@ for %modules.keys.sort -> $name {
             my $title = $name;
             my @labels;
             my $body = $template-text;
-            my $ping-author = False ?? ‘Ping @AlexDaniel or @JJ.’ !! ‘’;
+            my $ping-author = False ?? ‘Ping the module author.’ !! ‘’;
             my $previous-ticket = $ticket ?? ‘Preivous ticket: #’ ~ $ticket<number> !! ‘’;
 
             $body .= subst: ‘｢MODULE｣’, $name;
@@ -46,6 +46,7 @@ for %modules.keys.sort -> $name {
             $body .= subst: ‘｢PING-AUTHOR｣’, $ping-author;
             $body .= subst: ‘｢PREVIOUS-TICKET｣’, $previous-ticket;
 
+	    say $body;
             # submit-issue(:$token, :$title, :$body, :@labels);
 
         }

diff --git a/lib/Unbitrot/Utils.pm6 b/lib/Unbitrot/Utils.pm6
@@ -60,7 +60,7 @@ sub patch(:$url, :$token, :$body ) {
 }
 
 #| Submit a new issue
-sub submit-issue(:$token, :$title, :$body, :@labels, :$url = submit-url) {
+sub submit-issue(:$token, :$title, :$body, :@labels, :$url = submit-url) is export {
     my %body = %(:$title, :$body, :@labels,);
 
     use Cro::HTTP::Client;

diff --git a/t/0.t6 b/t/0.t6
@@ -5,5 +5,5 @@ use v6;
 use Test;
 
 
-use-ok "Utils", "Using lib is OK";
+use-ok "Unbitrot::Utils", "Using lib is OK";
 
diff --git a/t/1.t6 b/t/1.t6
@@ -3,29 +3,29 @@
 use v6;
 
 use Test;
-use Utils;
+use Unbitrot::Utils;
 
-ok Utils::url, "{Utils::url} is declared";
+ok Unbitrot::Utils::url, "{Unbitrot::Utils::url} is declared";
 
-my $file = "data/blin-output.txt".IO.e??"data/blin-output.txt"!!"../data/blin-output.txt";
-my @not-ok-modules = modules-not-ok( $file );
-ok @not-ok-modules, "Some modules are not OK";
-my %tickets;
+# my $file = "data/blin-output.txt".IO.e??"data/blin-output.txt"!!"../data/blin-output.txt";
+# my @not-ok-modules = modules-not-ok( $file );
+# ok @not-ok-modules, "Some modules are not OK";
+my @tickets;
 if %*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";
-    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;
+    @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";
+    # 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;
 }