Re: AUnit

[Simon Wright <simon@pushface.org>]

Pascal Obry <p.obry@wanadoo.fr> writes:

> To test units I've been using Test Driver Generator from Andre Spiegel.
> 
>    ftp://ftp.informatik.uni-stuttgart.de/pub/local/
> 
> Latest version is 3.1.

We are evaluating this and AUnit (and a non-free tool, too). My
personal feeling is that TG stands a good chance.

A complete (short) script I'm using:

-- $Id: problem_reporting-component-test.ts,v 1.1 2001/04/22 10:49:46 simon Exp $

error_handling continue

context with Ada.Text_IO; use Ada.Text_IO;
	with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
        with Architecture.Exceptions;
	with Problem_Reporting.Component; use Problem_Reporting.Component;

***** (1) Create
define 	H : Problem_Reporting.Component.Handle;
	N : Unbounded_String := To_Unbounded_String ("first");
test	H := Problem_Reporting.Component.Create ((Id => N));
pass	H /= null
cleanup Problem_Reporting.Component.Delete (H);

***** (2) Create twice
define 	H : Problem_Reporting.Component.Handle;
	N : Unbounded_String := To_Unbounded_String ("first");
test	H := Problem_Reporting.Component.Create ((Id => N));
	H := Problem_Reporting.Component.Create ((Id => N));
pass	exception Architecture.Exceptions.Duplicate
cleanup Problem_Reporting.Component.Delete (H);

(as it stands, this needs a patch to TG because of translating '-' to
'.' when converting the file name to the Ada name).