From 4e42761354c2de557c0166d46aabe9dcd9b77073 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 15 Jan 2019 19:34:37 +1100 Subject: Redesigned Lexer Scan functions slightly, added tests for them --- test/ratnest-tests.ads | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) (limited to 'test/ratnest-tests.ads') diff --git a/test/ratnest-tests.ads b/test/ratnest-tests.ads index f795340..e72bfe7 100644 --- a/test/ratnest-tests.ads +++ b/test/ratnest-tests.ads @@ -90,21 +90,30 @@ package Ratnest.Tests is function Ignore_Check return Test_Result; function Scan_Check return Test_Result; - function Scan_Set_Check return Test_Result; function Scan_Only_Check return Test_Result; - function Scan_Set_Only_Check return Test_Result; function Scan_With_Check return Test_Result; + function Scan_Set_Check return Test_Result; function Scan_Set_With_Check return Test_Result; + function Scan_Error_Check return Test_Result; + function Scan_Only_Error_Check return Test_Result; + function Scan_With_Error_Check return Test_Result; + function Scan_Set_Error_Check return Test_Result; + function Scan_Set_With_Error_Check return Test_Result; + Lexer_Tests : Test_Array := ((+"Stamp", Stamp_Check'Access), (+"Ignore", Ignore_Check'Access), (+"Scan", Scan_Check'Access), - (+"Scan_Set", Scan_Set_Check'Access), (+"Scan_Only", Scan_Only_Check'Access), - (+"Scan_Set_Only", Scan_Set_Only_Check'Access), (+"Scan_With", Scan_With_Check'Access), - (+"Scan_Set_With", Scan_Set_With_Check'Access)); + (+"Scan_Set", Scan_Set_Check'Access), + (+"Scan_Set_With", Scan_Set_With_Check'Access), + (+"Scan Exception", Scan_Error_Check'Access), + (+"Scan_Only Exception", Scan_Only_Error_Check'Access), + (+"Scan_With Exception", Scan_With_Error_Check'Access), + (+"Scan_Set Exception", Scan_Set_Error_Check'Access), + (+"Scan_Set_With Exception", Scan_Set_With_Error_Check'Access)); end Lexer; -- cgit