File: one_test_case.adb

package info (click to toggle)
libaunit 1.03-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 324 kB
  • ctags: 7
  • sloc: ada: 1,552; makefile: 70
file content (30 lines) | stat: -rw-r--r-- 636 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
with AUnit.Test_Cases.Registration;
use AUnit.Test_Cases.Registration;

--  Test case with one routine
package body One_Test_Case is


   --  Test Routines:
   procedure Test_1 (T : in out AUnit.Test_Cases.Test_Case'Class) is
   begin
      null;
   end Test_1;


   --  Register test routines to call:
   procedure Register_Tests (T : in out Test_Case) is
   begin

      Register_Routine
        (T, Test_1'Access, "Test Routine 1");

   end Register_Tests;

   --  Identifier of test case:
   function Name (T : Test_Case) return String_Access is
   begin
      return  new String'("One Test Case");
   end Name;

end One_Test_Case;