gistfile1.txt

#! parrot-nqp

INIT {
    pir::load_language('parrot');
    pir::load_bytecode('kakapo_full.pbc');
}

class Test::Sanity is UnitTest::Testcase;

INIT { use('UnitTest::All'); }

method test_load_linalg_group() {
    my $pla := pir::loadlib__ps("./linalg_group");
    assert_not_null($pla, "Can load PLA library, linalg_group");
}