tkoskine / Ahven (http://ahven.sourceforge.net/)

Unit test library for Ada 95

Clone this repository (size: 587.3 KB): HTTPS / SSH
$ hg clone http://bitbucket.org/tkoskine/ahven/

Changed (Δ60 bytes):

raw changeset »

src/ahven-listeners-basic.adb (0 lines added, 1 lines removed)

Up to file-list src/ahven-listeners-basic.adb:

…… @@ -62,7 +62,6 @@ package body Ahven.Listeners.Basic is 
62
 
62
 
                         Info  : Context) is
 
63
 
63
 
      R : Result_Collection_Access := null;
 
64
 
64
 
   begin
 
65
 
      -- Empty routine name means a test suite or test case
 
66
 
65
 
      if Info.Test_Kind = CONTAINER then
 
67
 
66
 
         R := new Result_Collection;
 
68
 
67
 
         Set_Name (R.all, Info.Test_Name);