update all method test files to share a common header with better log…

…ic. Mostly copy+paste with changed class names

t/harness

@@ -10,9 +10,9 @@ my $harness := Rosella::construct(Rosella::Harness);
 $harness.add_test_dirs("NQP", "t", :recurse(0)).setup_test_run;
 $harness.add_test_dirs("NQP",
     't/pmc',
-#    't/methods/nummatrix2d',
-#    't/methods/complexmatrix2d',
-#    't/methods/pmcmatrix2d',
+    't/methods/nummatrix2d',
+    't/methods/complexmatrix2d',
+    't/methods/pmcmatrix2d',
     :recurse(0)
 ).setup_test_run;
 $harness.add_test_dirs("PIR",

t/methods/complexmatrix2d/conjugate.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::Conjugate, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::Conjugate, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::Conjugate is Pla::MatrixTestBase {
 

t/methods/complexmatrix2d/convert_to_complex_matrix.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::ComplexMatrix2D::ConvertToComplexMatrix, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::ConvertToComplexMatrix, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::ConvertToComplexMatrix is Pla::Methods::ConvertToComplexMatrix {
 

t/methods/complexmatrix2d/convert_to_number_matrix.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::ComplexMatrix2D::ConvertToNumberMatrix, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::ConvertToNumberMatrix, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::ConvertToNumberMatrix is Pla::Methods::ConvertToNumberMatrix {
 

t/methods/complexmatrix2d/convert_to_pmc_matrix.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::ComplexMatrix2D::ConvertToPmcMatrix, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::ConvertToPmcMatrix, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::ConvertToPmcMatrix is Pla::Methods::ConvertToPmcMatrix {
 

t/methods/complexmatrix2d/fill.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::Fill, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::Fill, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::Fill is Pla::Methods::Fill {
 

t/methods/complexmatrix2d/gemm.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::Gemm, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::Gemm, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::Gemm is Pla::Methods::Gemm {
 

t/methods/complexmatrix2d/get_block.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::ComplexMatrix2D::GetBlock, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::GetBlock, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::GetBlock is Pla::Methods::GetBlock {
 

t/methods/complexmatrix2d/initialize_from_args.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::InitializeFromArgs, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::InitializeFromArgs, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::InitializeFromArgs is Pla::Methods::InitializeFromArgs {
 

t/methods/complexmatrix2d/initialize_from_array.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::InitializeFromArray, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::InitializeFromArray, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::InitializeFromArray is Pla::Methods::InitializeFromArray {
 

t/methods/complexmatrix2d/item_at.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::ItemAt, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::ItemAt, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::ItemAt is Pla::Methods::ItemAt {
 

t/methods/complexmatrix2d/iterate_function_external.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::IterateFunctionExternal, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::IterateFunctionExternal, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::IterateFunctionExternal is Pla::Methods::IterateFunctionExternal {
 

t/methods/complexmatrix2d/iterate_function_inplace.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::IterateFunctionInplace, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::IterateFunctionInplace, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::IterateFunctionInplace is Pla::Methods::IterateFunctionInplace {
 

t/methods/complexmatrix2d/mem_transpose.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::MemTranspose, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::MemTranspose, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::MemTranspose is Pla::Methods::MemTranspose {
 

t/methods/complexmatrix2d/resize.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::ComplexMatrix2D::Resize, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::Resize, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::Resize is Pla::Methods::Resize {
 

t/methods/complexmatrix2d/row_combine.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::RowCombine, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::RowCombine, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::RowCombine is Pla::Methods::RowCombine {
 

t/methods/complexmatrix2d/row_scale.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::RowScale, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::RowScale, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::RowScale is Pla::Methods::RowScale {
 

t/methods/complexmatrix2d/row_swap.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::RowSwap, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::RowSwap, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::RowSwap is Pla::Methods::RowSwap {
 

t/methods/complexmatrix2d/set_block.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::ComplexMatrix2D::SetBlock, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::SetBlock, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::SetBlock is Pla::Methods::SetBlock {
 

t/methods/complexmatrix2d/transpose.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::ComplexMatrix2D);
-Rosella::Test::test(Test::ComplexMatrix2D::Transpose, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::ComplexMatrix2D::Transpose, Pla::MatrixFactory::ComplexMatrix2D);
 
 class Test::ComplexMatrix2D::Transpose is Pla::Methods::Transpose {
     method test_mem_transpose_complex() {

t/methods/nummatrix2d/convert_to_complex_matrix.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::NumMatrix2D::ConvertToComplexMatrix, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::ConvertToComplexMatrix, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::ConvertToComplexMatrix is Pla::Methods::ConvertToComplexMatrix {
 

t/methods/nummatrix2d/convert_to_number_matrix.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::NumMatrix2D::ConvertToNumberMatrix, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::ConvertToNumberMatrix, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::ConvertToNumberMatrix is Pla::Methods::ConvertToNumberMatrix {
 }

t/methods/nummatrix2d/convert_to_pmc_matrix.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::NumMatrix2D::ConvertToPmcMatrix, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::ConvertToPmcMatrix, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::ConvertToPmcMatrix is Pla::Methods::ConvertToPmcMatrix {
 }

t/methods/nummatrix2d/fill.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-Rosella::Test::test(Test::NumMatrix2D::Fill, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::Fill, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::Fill is Pla::Methods::Fill {
 

t/methods/nummatrix2d/gemm.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-Rosella::Test::test(Test::NumMatrix2D::Gemm, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::Gemm, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::Gemm is Pla::Methods::Gemm {
 

t/methods/nummatrix2d/get_block.t

@@ -1,7 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-my $asserter := Pla::MatrixAsserter.new;
-Rosella::Test::test(Test::NumMatrix2D::GetBlock, :context($context), :asserter($asserter));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::GetBlock, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::GetBlock is Pla::Methods::GetBlock {
 

t/methods/nummatrix2d/initialize_from_args.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-Rosella::Test::test(Test::NumMatrix2D::InitializeFromArgs, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::InitializeFromArgs, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::InitializeFromArgs is Pla::Methods::InitializeFromArgs {
 

t/methods/nummatrix2d/initialize_from_array.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-Rosella::Test::test(Test::NumMatrix2D::InitializeFromArray, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::InitializeFromArray, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::InitializeFromArray is Pla::Methods::InitializeFromArray {
 }

t/methods/nummatrix2d/item_at.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-Rosella::Test::test(Test::NumMatrix2D::ItemAt, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::ItemAt, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::ItemAt is Pla::Methods::ItemAt {
 

t/methods/nummatrix2d/iterate_function_external.t

@@ -1,6 +1,9 @@
-my $context := PLA::TestContext.new;
-$context.set_factory(Pla::MatrixFactory::NumMatrix2D);
-Rosella::Test::test(Test::NumMatrix2D::IterateFunctionExternal, :context($context));
+INIT {
+    my $rosella := pir::load_bytecode__Ps("rosella/core.pbc");
+    Rosella::initialize_rosella("test");
+    Rosella::load_bytecode_file('t/testlib/pla_test.pbc', "load");
+}
+Pla::MatrixTestBase::Test(Test::NumMatrix2D::IterateFunctionExternal, Pla::MatrixFactory::NumMatrix2D);
 
 class Test::NumMatrix2D::IterateFunctionExternal is Pla::Methods::IterateFunctionExternal {
 }