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()); }