Whateverable Hello World

commit.p6

#!/usr/bin/env perl6

use Whateverable;
use Whateverable::Builds;
use Whateverable::Config;
use Whateverable::Running;

ensure-config ‘./config-default.json’;
pull-cloned-repos; # pull rakudo and other stuff

my $quick-test = ‘/tmp/quick-test.p6’;
spurt $quick-test, ‘say 42; say $*PERL.compiler.version’;

#| Returns full commit sha
sub ensure-build($revision) {
    my $full = to-full-commit $revision;
    die “No build for $revision” unless build-exists $full;
    return $full
}

dd run-snippet(ensure-build(‘HEAD’),      $quick-test);
dd run-snippet(ensure-build(‘2018.06’),   $quick-test);
dd run-snippet(ensure-build(‘00cb3315c’), $quick-test);

config-default.json

{
    "repo-origin-rakudo"       : "https://github.com/rakudo/rakudo.git",
    "repo-current-rakudo-moar" : "./data/rakudo-moar",
    "repo-origin-moarvm"       : "https://github.com/MoarVM/MoarVM.git",
    "repo-current-moarvm"      : "./data/moarvm",

    "archives-location"        : "./data/builds",
    "builds-location"          : "/tmp/whateverable/",

    "moarvm" : "./data/moarvm",

    "rakudo-repo"   : "https://github.com/rakudo/rakudo",

    "mothership": "https://whateverable.6lang.org",

    "github": {
        "login": "",
        "access_token": ""
    },

    "bisectable": {
        "commit-link" : "https://github.com/rakudo/rakudo/commit",
        "build-lock"  : "./lock",
        "trim-chars"  : 2000
    },

    "default-stdin": ""
}