public void TestStringLength() { var prim = PrimitiveFactory.Get("string-length"); ScheminString test = new ScheminString("test"); ScheminInteger result = (ScheminInteger) prim.Execute(null, null, new ScheminPair(test)); ScheminInteger expected = new ScheminInteger(4); Assert.AreEqual(result.IntegerValue(), expected.IntegerValue()); }
public void TestStringRef() { var prim = PrimitiveFactory.Get("string-ref"); ScheminString test = new ScheminString("test"); ScheminPair args = new ScheminPair(test); args = args.Append(new ScheminInteger(0)); ScheminChar result = (ScheminChar) prim.Execute(null, null, args); char expected = 't'; Assert.AreEqual(result.Value, expected); }