Re: AUnit question

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

On Wednesday, September 20, 2017 at 12:01:26 PM UTC-5, Victor Porton wrote:
> Stephen Leake wrote:
> 
> > On Tuesday, September 19, 2017 at 5:47:38 PM UTC-5, Victor Porton wrote:
> >> I need to pass certain directory from command line to AUnit test cases.
> >> 
> >> So I can create an extension type derived from Test_Suite and store the
> >> command line argument into a field in the extension.
> > 
> > I do this via a discriminant in Test_Case; why do you want to put it in
> > Test_Suite?
> 
> I want to put it into Test_Suite because otherwise I would need to specify 
> over and over again the same parameter for every Test_Case. This makes the 
> listing somehow longer.
> 
> I decided to make a patch for AUnit which would do the following:
> 
> - Create new private tagged type Test_Environment.
> 
> - Add "Environment: access Test_Environment'Class := null" parameter to 
> Add_Test procedure.
> 
> - Add Environment field or discriminant also to Test_Suite. It will be set 
> by default (when Environment parameter is null) to a Test_Case when using 
> the null Environment for it.
> 
> -- 
> Victor Porton - http://portonvictor.org

That sounds reasonable.

You could also have a package Test_Environment, that all your test programs use for things like this. It could declare an Unbounded_String for this directory name, which you set in your test driver.

Hmm. If you are running multiple Test_Suites, each with a different environment, that would not work; you'd need a map on suite_id, or something.