/usr/share/doc/libaunit-doc/examples/calculator/tests/operations-addition_test_fixture.adb is in libaunit-doc 3.7.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | --
-- Copyright (C) 2008, AdaCore
--
package body Operations.Addition_Test_Fixture is
procedure Set_Up
(Op : out Operations.Addition.Binary_Operation;
Test_Op1 : out Int;
Test_Op2 : out Int;
Exp_Res : out Int)
is
pragma Unreferenced (Op);
begin
Test_Op1.Set (4);
Test_Op2.Set (6);
Exp_Res.Set (10);
end Set_Up;
end Operations.Addition_Test_Fixture;
|