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