CI test for update as Raku community module

.github/workflows/linux.yml

@@ -0,0 +1,28 @@
+name: Linux
+
+on:
+  push:
+    branches:
+      - '*'
+    tags-ignore:
+      - '*'
+  pull_request:
+
+jobs:
+  raku:
+    strategy:
+      matrix:
+        os:
+          - ubuntu-latest
+        raku-version:
+          - 'latest'
+    runs-on: ${{ matrix.os }}
+    steps:
+      - uses: actions/checkout@v3
+      - uses: Raku/setup-raku@v1
+        with:
+          raku-version: ${{ matrix.raku-version }}
+      - name: Install Dependencies
+        run: zef install --/test --test-depends --deps-only .
+      - name: Run Special Tests
+        run: raku run-tests -i

.github/workflows/macos.yml

@@ -0,0 +1,28 @@
+name: MacOS
+
+on:
+  push:
+    branches:
+      - '*'
+    tags-ignore:
+      - '*'
+  pull_request:
+
+jobs:
+  raku:
+    strategy:
+      matrix:
+        os:
+          - macos-latest
+        raku-version:
+          - 'latest'
+    runs-on: ${{ matrix.os }}
+    steps:
+      - uses: actions/checkout@v3
+      - uses: Raku/setup-raku@v1
+        with:
+          raku-version: ${{ matrix.raku-version }}
+      - name: Install Dependencies
+        run: zef install --/test --test-depends --deps-only .
+      - name: Run Special Tests
+        run: raku run-tests -i

.github/workflows/windows.yml

@@ -0,0 +1,28 @@
+name: Windows
+
+on:
+  push:
+    branches:
+      - '*'
+    tags-ignore:
+      - '*'
+  pull_request:
+
+jobs:
+  raku:
+    strategy:
+      matrix:
+        os:
+          - windows-latest
+        raku-version:
+          - 'latest'
+    runs-on: ${{ matrix.os }}
+    steps:
+      - uses: actions/checkout@v3
+      - uses: Raku/setup-raku@v1
+        with:
+          raku-version: ${{ matrix.raku-version }}
+      - name: Install Dependencies
+        run: zef install --/test --test-depends --deps-only .
+      - name: Run Special Tests
+        run: raku run-tests -i

Changes

@@ -0,0 +1,6 @@
+Revision history for SOAP::Client
+
+{{$NEXT}}
+    - Use modern file extensions
+    - Add CI badge for each OS
+    - Initial version with a Changes file

META6.json

@@ -1,14 +1,31 @@
-{
-    "raku" : "6.*",
-    "name" : "SOAP::Client",
-    "version" : "1.0.1",
-    "auth" : "zef:raku-community-modules",
-    "authors": ["Andrew Egeler", "Raku Community"],
-    "description" : "Quick and dirty SOAP client",
-    "depends" : ["XML", "LWP::Simple"],
-    "provides" : {
-        "SOAP::Client::WSDL" : "lib/SOAP/Client/WSDL.pm6",
-        "SOAP::Client" : "lib/SOAP/Client.pm6"
-    },
-    "source-url" : "https://github.com/raku-community-modules/SOAP"
-}
+{
+  "auth": "zef:raku-community-modules",
+  "authors": [
+    "Andrew Egeler",
+    "Raku Community"
+  ],
+  "build-depends": [
+  ],
+  "depends": [
+    "XML",
+    "LWP::Simple"
+  ],
+  "description": "Quick and dirty SOAP client",
+  "license": "NOASSERTION",
+  "name": "SOAP::Client",
+  "provides": {
+    "SOAP::Client": "lib/SOAP/Client.rakumod",
+    "SOAP::Client::WSDL": "lib/SOAP/Client/WSDL.rakumod"
+  },
+  "raku": "6.*",
+  "resources": [
+  ],
+  "source-url": "https://github.com/raku-community-modules/SOAP-Client.git",
+  "tags": [
+    "SOAP",
+    "CLIENT"
+  ],
+  "test-depends": [
+  ],
+  "version": "1.0.1"
+}

README.md

@@ -1,23 +1,36 @@
-# SOAP::Client
+[![Actions Status](https://github.com/raku-community-modules/SOAP-Client/actions/workflows/linux.yml/badge.svg)](https://github.com/raku-community-modules/SOAP-Client/actions) [![Actions Status](https://github.com/raku-community-modules/SOAP-Client/actions/workflows/macos.yml/badge.svg)](https://github.com/raku-community-modules/SOAP-Client/actions) [![Actions Status](https://github.com/raku-community-modules/SOAP-Client/actions/workflows/windows.yml/badge.svg)](https://github.com/raku-community-modules/SOAP-Client/actions)
 
-Raku library that acts as a SOAP client.
+NAME
+====
 
-Warning: This library currently only supports the simplest of SOAP calls.
+SOAP::Client - Quick and dirty SOAP client
 
-## Synopsis
+SYNOPSIS
+========
 
 ```raku
-use SOAP;
+use SOAP::Client;
 
 my $temp = SOAP::Client.new('https://www.w3schools.com/xml/tempconvert.asmx?WSDL');
 say $temp.call('CelsiusToFahrenheit', Celsius => 100);
 ```
 
-## Authors
+DESCRIPTION
+===========
+
+Warning: This library currently only supports the simplest of SOAP calls.
+
+AUTHOR
+======
 
-Initially by [Andrew Egeler `retupmoca`](https://github.com/retupmoca), currently managed by
- the Raku community in the Raku modules adoption center
+Andrew Egeler
 
-# LICENSE
+COPYRIGHT AND LICENSE
+=====================
+
+Copyright 2015- 2017 Andrew Egeler
+
+Copyright 2018 - 2024 Raku Community
 
 Licensed under the MIT license.
+

dist.ini

@@ -0,0 +1,11 @@
+name = SOAP::Client
+
+[ReadmeFromPod]
+filename = lib/SOAP/Client.rakumod
+
+[UploadToZef]
+
+[Badges]
+provider = github-actions/linux.yml
+provider = github-actions/macos.yml
+provider = github-actions/windows.yml

lib/SOAP/Client.pm6 → lib/SOAP/Client.rakumod

@@ -107,3 +107,40 @@ sub p6-to-xml($p6) {
     }
     return @ret;
 }
+
+=begin pod
+
+=head1 NAME
+
+SOAP::Client - Quick and dirty SOAP client
+
+=head1 SYNOPSIS
+
+=begin code :lang<raku>
+
+use SOAP::Client;
+
+my $temp = SOAP::Client.new('https://www.w3schools.com/xml/tempconvert.asmx?WSDL');
+say $temp.call('CelsiusToFahrenheit', Celsius => 100);
+
+=end code
+
+=head1 DESCRIPTION
+
+Warning: This library currently only supports the simplest of SOAP calls.
+
+=head1 AUTHOR
+
+Andrew Egeler
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2015- 2017 Andrew Egeler
+
+Copyright 2018 - 2024 Raku Community
+
+Licensed under the MIT license.
+
+=end pod
+
+# vim: expandtab shiftwidth=4

lib/SOAP/Client/WSDL.pm6 → lib/SOAP/Client/WSDL.rakumod

@@ -181,3 +181,5 @@ method parse($xml) {
         %!services{$name} = { :$documentation, :%ports };
     }
 }
+
+# vim: expandtab shiftwidth=4

run-tests

@@ -0,0 +1,66 @@
+unit sub MAIN(:a($author), :i($install));
+
+say run(<raku --version>, :out).out.slurp.chomp;
+say "Running on $*DISTRO.gist().\n";
+
+say "Testing {
+    "dist.ini".IO.lines.head.substr(7)
+}{
+    " including author tests" if $author
+}";
+
+my @failed;
+my $done   = 0;
+
+sub process($proc, $filename) {
+    if $proc {
+        $proc.out.slurp;
+    }
+    else {
+        @failed.push($filename);
+        if $proc.out.slurp -> $stdout {
+            my @lines = $stdout.lines;
+            with @lines.first(
+              *.starts-with(" from gen/moar/stage2"),:k)
+            -> $index {
+                say @lines[^$index].join("\n");
+            }
+            else {
+                say $stdout;
+            }
+        }
+        else {
+            say "No output received, exit-code $proc.exitcode() ($proc.signal()):\n$proc.os-error()";
+        }
+    }
+}
+
+sub install() {
+    my $zef  := $*DISTRO.is-win ?? 'zef.bat' !! 'zef';
+    my $proc := run $zef, "install", ".", "--verbose", "--/test", :out,:err,:merge;
+    process($proc, "*installation*");
+}
+
+sub test-dir($dir) {
+    for $dir.IO.dir(:test(*.ends-with: '.t' | '.rakutest')).map(*.Str).sort {
+        say "=== $_";
+        my $proc := run "raku", "--ll-exception", "-I.", $_, :out,:err,:merge;
+        process($proc, $_);
+        $done++;
+    }
+}
+
+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 @failed {
+    say "\nFAILED: {+@failed} of $done:";
+    say "  $_" for @failed;
+    exit +@failed;
+}
+
+say "\nALL {"$done " if $done > 1}OK";
+
+# vim: expandtab shiftwidth=4

t/05-simple-service.t → t/05-simple-service.rakutest

@@ -1,9 +1,8 @@
-use v6;
 use Test;
-plan 3;
-
 use SOAP::Client;
 
+plan 3;
+
 try require IO::Socket::SSL;
 if $! {
     skip-rest("IO::Socket::SSL not available");
@@ -17,4 +16,6 @@ ok $temp, "Got a SOAP::Client object for ConvertTemperature";
 
 my $result = $temp.call('CelsiusToFahrenheit', Celsius => 100);
 ok $result, "Got a result for a temperature conversion";
-is $result<CelsiusToFahrenheitResult>, 212, "Got correct result";
+is $result<CelsiusToFahrenheitResult>, 212, "Got correct result";
+
+# vim: expandtab shiftwidth=4