public void ParseProtoObjectSubclassObject()
{
Lexer lexer = new Lexer(new StreamReader("ProtoObject.st"));
ModelParser parser = new ModelParser(lexer);
IExpression expression = parser.ParseExpression();
Assert.IsNotNull(expression);
Assert.IsInstanceOfType(expression, typeof(MessageExpression));
MessageExpression mexpression = (MessageExpression)expression;
Assert.AreEqual("subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:", mexpression.Selector);
}