File: sample_suite.adb

package info (click to toggle)
libaunit 1.03-3
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 324 kB
  • ctags: 8
  • sloc: ada: 1,552; makefile: 71
file content (13 lines) | stat: -rw-r--r-- 349 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
with AUnit.Test_Suites; use AUnit.Test_Suites;

--  List of tests and suites to compose:
with PR_XXXX_XXX;
function Sample_Suite return Access_Test_Suite is
   Result : Access_Test_Suite := new Test_Suite;
begin
   --  You may add multiple tests or suites here:
   Add_Test (Result, new PR_XXXX_XXX.Test_Case);
   return Result;
end Sample_Suite;