Hosted by
 |
with Ada.Text_IO;
with Integer_Strings; use Integer_Strings;
with Real_Numbers; use Real_Numbers;
with Real_Strings; use Real_Strings;
procedure Test_Suite is
begin
pragma Assert(To_Number("123") = 123);
pragma Assert(To_Number("-123") = -123);
pragma Assert(To_String(123) = "123");
pragma Assert(To_String(-123) = "-123");
pragma Assert(To_Number("0") = 0.0);
pragma Assert(To_Number("-0") = 0.0);
pragma Assert(To_Number("0.0") = 0.0);
pragma Assert(To_Number("-0.0") = 0.0);
pragma Assert(To_Number("100") = 100.0);
pragma Assert(To_Number("-100") = -100.0);
pragma Assert(To_Number("100.0") = 100.0);
pragma Assert(To_Number("-100.0") = -100.0);
pragma Assert(To_Number("1982.3745") = 1982.3745);
pragma Assert(To_Number("-1982.3745") = -1982.3745);
pragma Assert(To_String(0.0) = "0");
pragma Assert(To_String(-0.0) = "0");
pragma Assert(To_String(100.0) = "100");
pragma Assert(To_String(-100.0) = "-100");
pragma Assert(To_String(1982.3745) = "1982.3745");
pragma Assert(To_String(-1982.3745) = "-1982.3745");
pragma Debug(Ada.Text_IO.Put_Line("all tests succeeded"));
null;
end Test_Suite;
|