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