-------------------------------------------------------------------------------
--
-- Copyright (C) 1999, 2009, 2012, 2014 Stephe Leake
-- Copyright (C) 1999 FlightSafety International and Ted Dennison
--
-- This file is part of the OpenToken package.
--
-- The OpenToken package is free software; you can redistribute it and/or
-- modify it under the terms of the  GNU General Public License as published
-- by the Free Software Foundation; either version 3, or (at your option)
-- any later version. The OpenToken package is distributed in the hope that
-- it will be useful, but WITHOUT ANY WARRANTY; without even the implied
-- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for  more details.  You should have received
-- a copy of the GNU General Public License  distributed with the OpenToken
-- package;  see file GPL.txt.  If not, write to  the Free Software Foundation,
-- 59 Temple Place - Suite 330,  Boston, MA 02111-1307, USA.
--
--  As a special exception, if other files instantiate generics from
--  this unit, or you link this unit with other files to produce an
--  executable, this unit does not by itself cause the resulting
--  executable to be covered by the GNU General Public License. This
--  exception does not however invalidate any other reasons why the
--  executable file might be covered by the GNU Public License.
--
-------------------------------------------------------------------------------

--  Test driver for the token anlayzer's default token functionality
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
with Ada.Command_Line;
with Ada.Text_IO;
with OpenToken.Text_Feeder.Text_IO;
procedure Token_Analyzer_CTD.Run is
   Test_File_Name : constant String := "Test.txt";
begin

   ----------------------------------------------------------------------------
   --  Test Case 1
   --
   --  Inputs           : A syntax with a normal and a default token, and a file
   --                     containing a token amidst unmatchable test.
   --
   --  Expected Results : The analyzer should retrieve the default token, the
   --                     normal token, and the default token.
   --  Purpose          : Verify that default tokens are properly read without
   --                     disrupting normal token processing.
   Test_Case_1 : declare

      Text_Line_1 : constant String := "39045trjkjklgr dfsjkl ";
      Text_Line_2 : constant String := "(more garbage)5 689035 6t78905858 9 45:";

      Test_File : Ada.Text_IO.File_Type;

   begin

      Ada.Text_IO.Put ("Testing default token processing...");
      Ada.Text_IO.Flush;

      --  Create the test file
      Ada.Text_IO.Create
        (File => Test_File,
         Mode => Ada.Text_IO.Out_File,
         Name => Test_File_Name
        );
      Ada.Text_IO.Put_Line (File => Test_File, Item => Text_Line_1 & Normal_Text);
      Ada.Text_IO.Put_Line (File => Test_File, Item => Text_Line_2);
      Ada.Text_IO.Close (Test_File);

      --  Setup the analyzer
      Ada.Text_IO.Open
        (File => Test_File,
         Mode => Ada.Text_IO.In_File,
         Name => Test_File_Name);

      Ada.Text_IO.Set_Input (Test_File);
      Analyzer.Set_Text_Feeder (OpenToken.Text_Feeder.Text_IO.Create (Ada.Text_IO.Current_Input));

      --  Analyze the file
      Analyzer.Find_Next;

      if Analyzer.ID /= Default then
         Ada.Text_IO.Put_Line ("failed.");
         Ada.Text_IO.Put_Line ("First token was not default.");
         Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
         return;
      end if;
      if Analyzer.Lexeme /= Text_Line_1 then
         Ada.Text_IO.Put_Line ("failed.");
         Ada.Text_IO.Put_Line ("First lexeme was """ & Analyzer.Lexeme &
                                 """ not """ & Text_Line_1 & """.");
         Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
         return;
      end if;

      Analyzer.Find_Next;

      if Analyzer.ID /= Normal then
         Ada.Text_IO.Put_Line ("failed.");
         Ada.Text_IO.Put_Line ("Second token was not Normal.");
         Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
         return;
      end if;

      Analyzer.Find_Next;

      if Analyzer.ID /= Default then
         Ada.Text_IO.Put_Line ("failed.");
         Ada.Text_IO.Put_Line ("Third token was not default.");
         Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
         return;
      end if;
      if Analyzer.Lexeme /= OpenToken.EOL_Character & Text_Line_2 & OpenToken.EOF_Character then
         Ada.Text_IO.Put_Line ("failed.");
         Ada.Text_IO.Put_Line
           ("Third lexeme was """ & Analyzer.Lexeme &
              """ not """ & OpenToken.EOL_Character & Text_Line_2 & OpenToken.EOF_Character & """.");
         Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
         return;
      end if;

      Ada.Text_IO.Close (Test_File);
      Ada.Text_IO.Put_Line ("passed");
   end Test_Case_1;


end Token_Analyzer_CTD.Run;