Natools

Check-in [db048daa0f]
Login
Overview
Comment:s_expressions-interpreter_tests: use the new Add procedure, to keep complete coverage
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: db048daa0faf7b8a64db62404da16b62f453ec0b
User & Date: nat on 2014-05-12 17:22:54
Other Links: manifest | tags
Context
2014-05-13
20:33
s_expressions-dynamic_interpreter: backup of the current Interpreter interface before making it read-only check-in: d9a7acb07a user: nat tags: trunk
2014-05-12
17:22
s_expressions-interpreter_tests: use the new Add procedure, to keep complete coverage check-in: db048daa0f user: nat tags: trunk
2014-05-11
20:04
s_expressions-interpreters: add a String-based command addition, since it's the overwhelmingly most common use case check-in: 179da1f3db user: nat tags: trunk
Changes

Modified tests/natools-s_expressions-interpreter_tests.adb from [7fea09b85b] to [60961f16a8].

48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
   end Invalid_Commands;


   function Test_Interpreter return Test_Interpreters.Interpreter is
      Template : Recorder;
   begin
      return Inter : Test_Interpreters.Interpreter do
         Inter.Add_Command (To_Atom ("cmd"), Template);
         Inter.Add_Command (To_Atom ("command"), Template);
      end return;
   end Test_Interpreter;



   ----------------------
   -- Recorder Command --







|
|







48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
   end Invalid_Commands;


   function Test_Interpreter return Test_Interpreters.Interpreter is
      Template : Recorder;
   begin
      return Inter : Test_Interpreters.Interpreter do
         Inter.Add ("cmd", Template);
         Inter.Add ("command", Template);
      end return;
   end Test_Interpreter;



   ----------------------
   -- Recorder Command --