From 458d695b56779d707ae8689295f334b934d3e3f5 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 8 Jan 2019 10:47:05 +1100 Subject: Tests for Packrat.Util set predicates --- test/ratnest-tests.ads | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'test/ratnest-tests.ads') diff --git a/test/ratnest-tests.ads b/test/ratnest-tests.ads index c0be0a9..fdcbe71 100644 --- a/test/ratnest-tests.ads +++ b/test/ratnest-tests.ads @@ -3,6 +3,16 @@ package Ratnest.Tests 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; @@ -16,7 +26,6 @@ package Ratnest.Tests is function Is_Whitespace_Check return Test_Result; function Not_Whitespace_Check return Test_Result; - Util_Predicate_Tests : Test_Array := ((+"Is_Digit", Is_Digit_Check'Access), (+"Is_Hex", Is_Hex_Check'Access), @@ -32,9 +41,6 @@ package Ratnest.Tests is (+"Not_Whitespace", Not_Whitespace_Check'Access)); -private - - end Ratnest.Tests; -- cgit