-- This source is licensed under the Sunset License v1.0 with Unit_Tests; use Unit_Tests; package Rat_Tests.Tokens is function Adjust_Check return Test_Result; function Equals_Check return Test_Result; function Store_Check return Test_Result; Tests : Test_Array := ((+"Adjust", Adjust_Check'Access), (+"Equals", Equals_Check'Access), (+"Storage", Store_Check'Access)); end Rat_Tests.Tokens;