CI test before release

Author: lizmat

.gitignore

@@ -1,2 +1,3 @@
-.precomp
-.idea
+.precomp/
+/URI-Encode-*
+*.rakucov

Changes

@@ -1,6 +1,8 @@
 Revision history for URI::Encode
 
 {{$NEXT}}
+    - Use supported SPDX license info, JRaspass++
+    - Update copyright year
 
 0.1  2024-12-02T16:20:19+01:00
     - Use modern file extensions

README.md

@@ -52,7 +52,7 @@ COPYRIGHT AND LICENSE
 
 Copyright 2014 - 2015 David Farrell
 
-Copyright 2016 - 2024 Raku Community
+Copyright 2016 - 2025 Raku Community
 
 This library is free software; you can redistribute it and/or modify it under the FreeBSD license.
 

dist.ini

@@ -1,7 +1,7 @@
 name = URI::Encode
 
 [ReadmeFromPod]
-filename = lib/URI/Encode.rakumod
+filename = doc/URI-Encode.rakudoc
 
 [UploadToZef]
 

doc/URI-Encode.rakudoc

@@ -0,0 +1,56 @@
+=begin pod
+
+=head1 NAME
+
+URI::Encode - a Raku module for encoding / decoding URIs
+
+=head1 SYNOPSIS
+
+=begin code :lang<raku>
+
+use URI::Encode;
+
+# for encoding whole URIs, ignores reserved chars: :/?#[]@!$&'()*+,;=
+my $encoded_uri = uri_encode('http://www.example.com/?name=john doe&age=54');
+
+# encode every reserved char
+my $encoded_uri_component = uri_encode_component('some text/to encode+ safely');
+
+# remove percent encoding
+my $decoded_uri = uri_decode('http://www.example.com/?name=john%20doe&age=54');
+
+# provided for symmetry, is the same as uri_decode()
+my $decoded_component = uri_decode_component('some%20text%2Fto%20%2B%20safely');
+
+=end code
+
+=head1 DESCRIPTION
+
+URI::Encode is a module that exports four subroutines:
+
+=item uri_encode - encode a whole URI
+=item uri_encode_component - encode every reserved char
+=item uri_decode - decode a whole URI
+=item uri_decode_component - decode every reserved char
+
+=head1 SEE ALSo
+
+L<C<URI>|https://raku.land/github:raku-community-modules/URI> is another
+implementation that covers this area, including encoding and decoding of
+URIs.
+
+=head1 AUTHOR
+
+David Farrell
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2014 - 2015 David Farrell
+
+Copyright 2016 - 2025 Raku Community
+
+This library is free software; you can redistribute it and/or modify it under the FreeBSD license.
+
+=end pod
+
+# vim: expandtab shiftwidth=4

lib/URI/Encode.rakumod

@@ -47,59 +47,4 @@ sub uri_decode_component (Str:D $text) is export {
     $text.subst(/[\%$<bit>=[<[0..9A..Fa..f]>** 2]]+/, &dec, :g)
 }
 
-=begin pod
-
-=head1 NAME
-
-URI::Encode - a Raku module for encoding / decoding URIs
-
-=head1 SYNOPSIS
-
-=begin code :lang<raku>
-
-use URI::Encode;
-
-# for encoding whole URIs, ignores reserved chars: :/?#[]@!$&'()*+,;=
-my $encoded_uri = uri_encode('http://www.example.com/?name=john doe&age=54');
-
-# encode every reserved char
-my $encoded_uri_component = uri_encode_component('some text/to encode+ safely');
-
-# remove percent encoding
-my $decoded_uri = uri_decode('http://www.example.com/?name=john%20doe&age=54');
-
-# provided for symmetry, is the same as uri_decode()
-my $decoded_component = uri_decode_component('some%20text%2Fto%20%2B%20safely');
-
-=end code
-
-=head1 DESCRIPTION
-
-URI::Encode is a module that exports four subroutines:
-
-=item uri_encode - encode a whole URI
-=item uri_encode_component - encode every reserved char
-=item uri_decode - decode a whole URI
-=item uri_decode_component - decode every reserved char
-
-=head1 SEE ALSo
-
-L<C<URI>|https://raku.land/github:raku-community-modules/URI> is another
-implementation that covers this area, including encoding and decoding of
-URIs.
-
-=head1 AUTHOR
-
-David Farrell
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2014 - 2015 David Farrell
-
-Copyright 2016 - 2024 Raku Community
-
-This library is free software; you can redistribute it and/or modify it under the FreeBSD license.
-
-=end pod
-
 # vim: expandtab shiftwidth=4

run-tests

@@ -1,10 +1,68 @@
-unit sub MAIN(:a($author), :i($install));
+unit sub MAIN(
+  :a($author),
+  :i($install),
+  :$rmd,
+  :$disable-spesh,
+  :$disable-spesh-inline,
+  :$disable-JIT,
+  :$enable-spesh-nodelay,
+  :$enable-spesh-blocking,
+  :$enable-spesh-log,
+);
 
 say run(<raku --version>, :out).out.slurp.chomp;
 say "Running on $*DISTRO.gist().\n";
 
+if $rmd {
+    %*ENV<RAKUDO_MODULE_DEBUG> := 1;
+    say "RAKUDO_MODULE_DEBUG=1";
+}
+
+if $disable-spesh {
+    %*ENV<MVM_SPESH_DISABLE> := 1;
+    say "MVM_SPESH_DISABLE=1";
+}
+
+if $disable-spesh-inline {
+    %*ENV<MVM_SPESH_INLINE_DISABLE> := 1;
+    say "MVM_SPESH_INLINE_DISABLE=1";
+}
+
+if $disable-JIT {
+    %*ENV<MVM_JIT_DISABLE> := 1;
+    say "MVM_JIT_DISABLE=1";
+}
+
+if $enable-spesh-nodelay {
+    %*ENV<MVM_SPESH_NODELAY> := 1;
+    say "MVM_SPESH_NODELAY=1";
+}
+
+if $enable-spesh-blocking {
+    %*ENV<MVM_SPESH_BLOCKING> := 1;
+    say "MVM_SPESH_BLOCKING=1";
+}
+
+my $spesh-log;
+if $enable-spesh-log {
+    $spesh-log = (
+      $enable-spesh-log ~~ Bool ?? "spesh-log" !! $enable-spesh-log
+    ).IO;
+    %*ENV<MVM_SPESH_LOG> := $spesh-log.absolute;
+    say "MVM_SPESH_LOG=$spesh-log.relative()";
+}
+
+say ""
+  if $rmd
+  || $disable-spesh
+  || $disable-spesh-inline
+  || $disable-JIT
+  || $enable-spesh-nodelay
+  || $enable-spesh-blocking
+  || $enable-spesh-log;
+
 say "Testing {
-    "dist.ini".IO.lines.head.substr(7)
+    (try "dist.ini".IO.lines.head.substr(7)) // "..."
 }{
     " including author tests" if $author
 }";
@@ -15,6 +73,7 @@ my $done   = 0;
 sub process($proc, $filename) {
     if $proc {
         $proc.out.slurp;
+        $spesh-log.unlink if $spesh-log;
     }
     else {
         @failed.push($filename);
@@ -32,6 +91,12 @@ sub process($proc, $filename) {
         else {
             say "No output received, exit-code $proc.exitcode() ($proc.signal()):\n$proc.os-error()";
         }
+
+        if $spesh-log {
+            say "\nSpesh log requested, showing last 20000 lines:";
+            say $spesh-log.lines(:!chomp).tail(20000).join;
+            $spesh-log.unlink;
+        }
     }
 }
 
@@ -53,7 +118,10 @@ sub test-dir($dir) {
 test-dir("t");
 test-dir($_) for dir("t", :test({ !.starts-with(".") && "t/$_".IO.d})).map(*.Str).sort;
 test-dir("xt") if $author && "xt".IO.e;
-install if $install;
+if $install {
+    install;
+    ++$done;
+}
 
 if @failed {
     say "\nFAILED: {+@failed} of $done:";

xt/coverage.rakutest

@@ -0,0 +1,5 @@
+use Test::Coverage;
+
+must-be-complete;
+
+# vim: expandtab shiftwidth=4