with Unit_Tests; use Unit_Tests; package Rat_Tests.Utilities is function In_Set_Check return Test_Result; function Not_In_Set_Check return Test_Result; Set_Predicate_Tests : Test_Array := ((+"In_Set", In_Set_Check'Access), (+"Not_In_Set", Not_In_Set_Check'Access)); function Is_Digit_Check return Test_Result; function Is_Hex_Check return Test_Result; function Is_Letter_Check return Test_Result; function Is_Alphanumeric_Check return Test_Result; function Is_Punctuation_Check return Test_Result; function Is_ASCII_Check return Test_Result; function Is_Extended_ASCII_Check return Test_Result; function Is_Space_Check return Test_Result; function Is_Linespace_Check return Test_Result; function Is_End_Of_Line_Check return Test_Result; function Is_Whitespace_Check return Test_Result; function Not_Whitespace_Check return Test_Result; Predicate_Tests : Test_Array := ((+"Is_Digit", Is_Digit_Check'Access), (+"Is_Hex", Is_Hex_Check'Access), (+"Is_Letter", Is_Letter_Check'Access), (+"Is_Alphanumeric", Is_Alphanumeric_Check'Access), (+"Is_Punctuation", Is_Punctuation_Check'Access), (+"Is_ASCII", Is_ASCII_Check'Access), (+"Is_Extended_ASCII", Is_Extended_ASCII_Check'Access), (+"Is_Space", Is_Space_Check'Access), (+"Is_Linespace", Is_Linespace_Check'Access), (+"Is_End_Of_Line", Is_End_Of_Line_Check'Access), (+"Is_Whitespace", Is_Whitespace_Check'Access), (+"Not_Whitespace", Not_Whitespace_Check'Access)); end Rat_Tests.Utilities;