Natools

Check-in [db048daa0f]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

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 2014-05-12 17:22:54
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/natools-s_expressions-interpreter_tests.adb.

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 --