chucktesta/src/wasrun_runner.adb

with Ada.Text_IO;
with WasRun;

use Ada.Text_IO;

procedure WasRun_Runner is
    WasRunTest : WasRun.WTestCase;
begin
    WasRunTest.Set_Method (WasRun.Test_Method'Access);
    WasRunTest.Print_WasRun;
    WasRunTest.Run;
    WasRunTest.Print_WasRun;
end WasRun_Runner;