public void TestReservedOperator()
{
var def = new HaskellDef();
var r = Tok.Ops.ReservedOp("=>", def).Parse("=> ");
Assert.True(!r.IsFaulted);
Assert.True(r.Value.Head().Item1.Value.AsString() == "=>");
}
public void TestReserved()
{
var def = new HaskellDef();
var r = Tok.Id.Reserved(def.ReservedNames.Head(), def).Parse(def.ReservedNames.Head() + " ");
Assert.True(!r.IsFaulted);
Assert.True(r.Value.Head().Item1.Value.AsString() == def.ReservedNames.Head());
}
