Public Sub AddCommand( _
   ByVal command As ICommand _
) 

public void AddCommand( 
   ICommand command
)

string result;
CommandInterpreter ci = new CommandInterpreter(DefaultCommands.None, new TestCommands(), typeof(StaticTestFilter));
Assert.AreEqual(1, ci.Filters.Length);
Assert.AreEqual("AddLineNumbers", ci.Filters[0].DisplayName);

result = Capture(ci, "Count 2 /linenumbers");
Assert.AreEqual("1: 1\r\n2: 2", result);

int cmds = ci.Commands.Length;
ci.AddCommand(ci.Filters[0]);
Assert.AreEqual(cmds + 1, ci.Commands.Length);

result = Capture(ci, "AddLineNumbers");
Assert.AreEqual("2", result);

Dim result As String
Dim ci As New CommandInterpreter(DefaultCommands.None, New TestCommands(), GetType(StaticTestFilter))
Assert.AreEqual(1, ci.Filters.Length)
Assert.AreEqual("AddLineNumbers", ci.Filters(0).DisplayName)

result = Capture(ci, "Count 2 /linenumbers")
Assert.AreEqual("1: 1" & vbCr & vbLf & "2: 2", result)

Dim cmds As Integer = ci.Commands.Length
ci.AddCommand(ci.Filters(0))
Assert.AreEqual(cmds + 1, ci.Commands.Length)

result = Capture(ci, "AddLineNumbers")
Assert.AreEqual("2", result)