vss_24.0.0_b4d0be7c/testsuite/os/test_standard_paths.adb

 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
--
--  Copyright (C) 2022, AdaCore
--
--  SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
--

with Ada.Wide_Wide_Text_IO;

with VSS.Standard_Paths;
with VSS.Strings.Conversions;

with Test_Support;

procedure Test_Standard_Paths is
   Home : constant VSS.Strings.Virtual_String :=
     VSS.Standard_Paths.Writable_Location
       (VSS.Standard_Paths.Home_Location);
   Temp : constant VSS.Strings.Virtual_String :=
     VSS.Standard_Paths.Writable_Location
       (VSS.Standard_Paths.Temp_Location);

begin
   Ada.Wide_Wide_Text_IO.Put_Line
     (VSS.Strings.Conversions.To_Wide_Wide_String (Home));
   Ada.Wide_Wide_Text_IO.Put_Line
     (VSS.Strings.Conversions.To_Wide_Wide_String (Temp));

   Test_Support.Assert (not Home.Is_Empty);
   Test_Support.Assert (not Temp.Is_Empty);
end Test_Standard_Paths;