pkg: fix scripts (#1348)

* pkg: fix scripts

* Mock gem creation

* Respect dry-run

Author: mrexox

.github/workflows/test.yml

@@ -74,6 +74,20 @@ jobs:
           zef install . --deps-only
           raku -I lib t/*.rakutest
 
+          raku prepare.raku --target=npm --dry-run
+          raku prepare.raku --target=rubygems --dry-run
+          raku prepare.raku --target=pypi --dry-run
+          raku prepare.raku --target=aur --dry-run
+          raku prepare.raku --target=aur-bin --dry-run
+
+          raku publish.raku --target=npm --dry-run
+          mkdir -p ../registries/rubygems/pkg
+          touch ../registries/rubygems/pkg/lefthook_99.gem
+          raku publish.raku --target=rubygems --dry-run
+          raku publish.raku --target=pypi --dry-run
+          raku publish.raku --target=aur --dry-run
+          raku publish.raku --target=aur-bin --dry-run
+
   build:
     runs-on: ubuntu-latest
     steps:

packaging/scripts/lib/Registries/AUR/Publishing.rakumod

@@ -15,8 +15,8 @@ sub publish-aur-package(
   my $dest-pkgbuild = $clone-to.child("PKGBUILD");
 
   $sys.in-dir(PKG-ROOT, {
-    clone-aur-repo($name, $clone-to);
-    copy-pkgbuild($path-to-pkgbuild, $dest-pkgbuild);
+    clone-aur-repo($sys, $name, $clone-to);
+    copy-pkgbuild($sys, $path-to-pkgbuild, $dest-pkgbuild);
     fill-sha256-sums($sys, $dest-pkgbuild, %sha256-urls);
   });
 
@@ -33,12 +33,12 @@ sub publish-aur-package(
   });
 }
 
-sub clone-aur-repo(Str:D $name, IO() $clone-to --> Nil) {
-  run("git", "clone", "ssh://aur@aur.archlinux.org/{$name}.git", $clone-to);
+sub clone-aur-repo(SystemAPI $sys, Str:D $name, IO() $clone-to --> Nil) {
+  $sys.run("git", "clone", "ssh://aur@aur.archlinux.org/{$name}.git", $clone-to);
 }
 
-sub copy-pkgbuild(IO() $from, IO() $to --> Nil) {
-  $from.copy($to);
+sub copy-pkgbuild(SystemAPI $sys, IO() $from, IO() $to --> Nil) {
+  $sys.cp($from, $to);
 }
 
 sub fill-sha256-sums(

packaging/scripts/lib/Registries/RubyGems.rakumod

@@ -22,7 +22,7 @@ my constant %RUBYGEM-DISTS = (
 
 has SystemAPI $.sys is required;
 
-method target(--> Registry::Target:D) { Registry::Target::rubygem }
+method target(--> Registry::Target:D) { Registry::Target::rubygems }
 
 method clean {
   $!sys.rm("{RUBYGEMS}/libexec/".IO.dir.grep(*.d));
@@ -54,7 +54,7 @@ method publish {
 
   my $pkg-dir = RUBYGEMS.child("pkg");
   my $last-pkg = $pkg-dir.IO.dir.sort(*.basename).tail
-      // die "no gem found in rubygems/pkg/";
+      // die "no gem found in $pkg-dir";
 
   $!sys.run("gem", "push", $last-pkg);
 }

packaging/scripts/lib/Registry.rakumod

@@ -5,7 +5,7 @@ enum Target is export(:Target) <
   all-registries
 
   npm
-  rubygem
+  rubygems
   pypi
   aur
   aur-bin

packaging/scripts/lib/System.rakumod

@@ -21,8 +21,9 @@ class System does SystemAPI {
     my $old = $*CWD;
 
     say "cd $path";
-    chdir $path;
-    LEAVE { say "cd $old"; chdir $old; } # like defer in Go
+
+    chdir $path unless $!dry-run;
+    LEAVE { say "cd $old"; chdir $old unless $!dry-run; } # like defer in Go
 
     block();
   }
@@ -38,11 +39,11 @@ class System does SystemAPI {
 
   # Replaces text in a $file line-by-line.
   method replace(IO() :$file, Regex :$regex, :$replacement --> Nil) {
-    die "$file does not exist" unless $file.f;
-
     say "replace in $file\n\t{$regex.gist} -> {$replacement.gist}";
     return if $!dry-run;
 
+    die "$file does not exist" unless $file.f;
+
     spurt $file, $file.slurp.lines.map({ .subst($regex, $replacement) }).join("\n") ~ "\n";
   }
 

packaging/scripts/publish.raku

@@ -10,7 +10,7 @@ sub MAIN(
   Registry::Target :$target = all-registries,
   Bool :$dry-run = False,
 ) {
-  Packaging.new(
+  Packager.new(
     target  => $target,
     dry-run => $dry-run,
   ).publish;