gistfile1.txt

#! parrot-nqp
INIT { pir::load_bytecode('rosella/harness.pbc'); }
my $factory := Rosella::construct(Rosella::Harness::TestRun::Factory);
$factory.add_test_files("PIR", "t/pir/001_load.t");
$factory.add_test_files("Winxed", "t/winxed/001_load.t");
my $testrun := $factory.create();
my $harness := Rosella::construct(Rosella::Harness);
my $testview := $harness.default_view();
$testview.add_run($testrun, 0);
$harness.run($testrun, $testview);
$testview.show_results();