File: empty_test_case.adb

package info (click to toggle)
libaunit 1.01-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 316 kB
  • ctags: 10
  • sloc: ada: 1,527; makefile: 77; sh: 1
file content (22 lines) | stat: -rw-r--r-- 467 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
 
with AUnit.Test_Cases.Registration;
use AUnit.Test_Cases.Registration;

--  Simple test case
package body Empty_Test_Case is


   --  Test Routines:

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

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

end Empty_Test_Case;