Re: ANN: Ahven 1.8

[Stephen Leake <stephen_leake@stephe-leake.org>]

Dan <dan@irvine.com> writes:

> On Jun 3, 5:08 am, Stephen Leake <stephen_le...@stephe-leake.org>
> wrote:
>> How does it compare to AUnit?
>
> I am able to use Ahven in a table-driven manner, as shown below.
> But I don't see a way to use AUnit similarly (replacing the Ahven-
> specific code below the line of dashes).
>
>
> ... 

> with p1, p2, p3;
> with test_suite; use test_suite;
> package p_suite is new test_suite.suites(
>      suite_name => "p",
>      suite_arr => (
>         (p1'access, +"p1"),
>         (p2'access, +"p3"),
>         (p3'access, +"p3")));

In AUnit, tests are 'registered' in a test_case:

   overriding procedure Register_Tests (T : in out Test_Case)
   is
   begin
        Register_Routine (T, Nominal'Access, "Nominal");
        Register_Routine (T, Commands'Access, "Commands");
        Register_Routine (T, Glitches'Access, "Glitches");
        Register_Routine (T, Multi_Cycle'Access, "Multi_Cycle");
  end Register_Tests;

Then test_cases are added to suites:

   Add_Test (Suite, new Test_Hardware.Analog_In_Out_Wrappers.Test_Case);
   Add_Test (Suite, new Test_Hardware.Analog_In_Wrapper_Common.Test_Case);
   Add_Test (Suite, new Test_Hardware.Analog_Out_Wrapper_Common.Test_Case);

This seems roughly equivalent to Ahven. 

AUnit also has setup and teardown functions for initializing and finalizing
each test and/or each Test_Case; those are very helpful.

-- 
-- Stephe