public void ErlListTest() { var l = new ErlList("test", 1, 1.1, true, (byte)255, 'x', new ErlAtom("a")); var r = new ErlList("test", 1, 1.1, true, (byte)255, 'x', new ErlAtom("a")); Assert.AreEqual(7, l.Count); Assert.AreEqual(ErlTypeOrder.ErlString, l[0].TypeOrder); Assert.AreEqual("test", l[0].ValueAsString); Assert.AreEqual(ErlTypeOrder.ErlLong, l[1].TypeOrder); Assert.AreEqual(1, l[1].ValueAsInt); Assert.AreEqual(ErlTypeOrder.ErlDouble, l[2].TypeOrder); Assert.AreEqual(1.1, l[2].ValueAsDouble); Assert.AreEqual(ErlTypeOrder.ErlBoolean, l[3].TypeOrder); Assert.AreEqual(true, l[3].ValueAsBool); Assert.AreEqual(ErlTypeOrder.ErlByte, l[4].TypeOrder); Assert.AreEqual(255, l[4].ValueAsInt); Assert.AreEqual(ErlTypeOrder.ErlByte, l[5].TypeOrder); Assert.AreEqual('x', l[5].ValueAsChar); Assert.AreEqual(ErlTypeOrder.ErlAtom, l[6].TypeOrder); Assert.AreEqual("a", l[6].ValueAsString); Assert.IsTrue(l.Matches(r)); Assert.AreEqual(new ErlVarBind(), l.Match(r)); Assert.AreEqual(l, r); Assert.IsTrue(l.Equals(r)); Assert.AreEqual("[\"test\",1,1.1,true,255,120,a]", l.ToString()); Assert.IsFalse(l.IsScalar); Assert.AreEqual(ErlTypeOrder.ErlList, l.TypeOrder); IErlObject temp = null; Assert.IsFalse(l.Subst(ref temp, new ErlVarBind())); Assert.IsTrue(new ErlList(new ErlVar(X), true, 1).Subst(ref temp, new ErlVarBind { { X, new ErlLong(10) } })); Assert.AreEqual("[10,true,1]", temp.ToString()); Assert.AreEqual(1, l.Visit(0, (acc, o) => acc + (o is ErlAtom ? 1 : 0))); var d = new DateTime(2013, 1, 2); var ts = new TimeSpan(1, 2, 3); Assert.DoesNotThrow(() => { var x = l.ValueAsObject; }); Assert.AreEqual(1, new ErlList("1")[0].ValueAsInt); Assert.AreEqual(1, new ErlList("1")[0].ValueAsLong); Assert.AreEqual(1, new ErlList("1")[0].ValueAsDecimal); Assert.AreEqual(d, new ErlList(d.ToString())[0].ValueAsDateTime); Assert.AreEqual(ts, new ErlList(ts.ToString())[0].ValueAsTimeSpan); Assert.AreEqual(1.0, new ErlList("1.0")[0].ValueAsDouble); Assert.AreEqual("a", new ErlList("a")[0].ValueAsString); Assert.IsTrue(new ErlList("true")[0].ValueAsBool); Assert.IsFalse(new ErlList("xxxx")[0].ValueAsBool); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsInt; }); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsLong; }); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsDecimal; }); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsDateTime; }); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsTimeSpan; }); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsDouble; }); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsString; }); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsBool; }); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsChar; }); Assert.Throws<ErlIncompatibleTypesException>(() => { var x = l.ValueAsByteArray; }); List<IErlObject> s = l; Assert.AreEqual(l.Value, s); Assert.IsFalse(new ErlTuple(1, 1.0, "a").Equals(new ErlList(1, 1.0, "a"))); Assert.IsFalse(new ErlTuple(1, 1.0, "a") == new ErlList(1, 1.0, "a")); }