ab5tract

Projects
Recent Builds
Queue
More
Logout

Report: agent@1 [go_go_go] at 2025-10-29 16:50:46
report loading ...

ab5tract

Ship entire (or partitioned by N agents?) list to all agents.

- Agents produce SSE events of their results back to the o10r.
  - Note that there can be many successes from one dist, as each 
    succesfully installed dependency should also count as a success.
- The o10r de-duplicates and re-broadcasts the test results as SSE events back to all agents.
- Agents update a mask list of already tested dists
  - Using a mask allows us to reduce race conditions,
    the worst case scenario being an already tested dist gets
    tested again by a different agent.

ab5tract

#!/usr/bin/env raku

use v6.*;

sub gen-volumes($path) {
    qq:to/END/
    volumes:
      zef-install:
      driver: local
        driver_opts:

ab5tract

=for foo
zippo

say $=pod;


q:to/CODE/.EVAL;
say $=pod
CODE

ab5tract

1..20
# Subtest: Simple leading and trailing pod declarator test
    ok 1 - Str: deparse
    ok 2 - Raku: deparse
    1..2
ok 1 - Simple leading and trailing pod declarator test
# Subtest: Simple block with leading and trailing pod test
    ok 1 - deparse
    ok 2 - AST: did we get a block
    ok 3 - AST: can it run and return value

ab5tract

        'UNIT', sub ($cur) {
            my Mu $ctx := nqp::getattr(nqp::decont($cur), PseudoStash6c, '$!ctx');
            nqp::say("Lookie here! ");
            nqp::say(nqp::isnull($ctx));
            until nqp::isnull($ctx) || nqp::existskey(nqp::ctxlexpad($ctx), '!UNIT_MARKER') {
                nqp::say("going");
                $ctx := nqp::ctxouter($ctx);
            }
            nqp::say(nqp::existskey(nqp::ctxlexpad($ctx), '!UNIT_MARKER')) unless nqp::isnull($ctx);
            nqp::isnull($ctx)

ab5tract

# For a line that has two values, which may be missing but will always be in the order of Integer,String
class Line {
  my @default-values = [ 42, Str ]; # purely theoretical
  
  has @.values;
  
  method new($line) {
    my @values = $line.split(',');
    for ^2 -> $idx {

ab5tract

diff --git a/lib/Cromponent.rakumod b/lib/Cromponent.rakumod
index 1bb5708..668d2de 100644
--- a/lib/Cromponent.rakumod
+++ b/lib/Cromponent.rakumod
@@ -234,8 +234,13 @@ sub cromponent-library($component) is export {
 
 multi EXPORT(--> Map()) {
 	'&trait_mod:<is>' => &trait_mod:<is>,
-	'&EXPORT' => sub {
-		[|@components-sub, |@components-macro].map({ |cromponent-library $_ }).Map

ab5tract

diff --git a/lib/Cromponent.rakumod b/lib/Cromponent.rakumod
index 1bb5708..339046d 100644
--- a/lib/Cromponent.rakumod
+++ b/lib/Cromponent.rakumod
@@ -234,8 +234,12 @@ sub cromponent-library($component) is export {
 
 multi EXPORT(--> Map()) {
 	'&trait_mod:<is>' => &trait_mod:<is>,
-	'&EXPORT' => sub {
-		[|@components-sub, |@components-macro].map({ |cromponent-library $_ }).Map

ab5tract

> ./rakudo-m ../rakudo-test-cases/vent-at-zero-base.raku
1
50
99
148
197
246
294