--
--  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;