/source/library/Interlace.Tests/Erlang/TermTests.cs
C# | 95 lines | 56 code | 14 blank | 25 comment | 0 complexity | c106f6bac22511caaf88ac4d23e3eb91 MD5 | raw file
- #region Using Directives and Copyright Notice
-
- // Copyright (c) 2007-2010, Computer Consultancy Pty Ltd
- // All rights reserved.
- //
- // Redistribution and use in source and binary forms, with or without
- // modification, are permitted provided that the following conditions are met:
- // * Redistributions of source code must retain the above copyright
- // notice, this list of conditions and the following disclaimer.
- // * Redistributions in binary form must reproduce the above copyright
- // notice, this list of conditions and the following disclaimer in the
- // documentation and/or other materials provided with the distribution.
- // * Neither the name of the Computer Consultancy Pty Ltd nor the
- // names of its contributors may be used to endorse or promote products
- // derived from this software without specific prior written permission.
- //
- // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
- // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- // ARE DISCLAIMED. IN NO EVENT SHALL COMPUTER CONSULTANCY PTY LTD BE LIABLE
- // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
- // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
- // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- // LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- // OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
- // DAMAGE.
-
- using System;
- using System.Collections;
- using System.Collections.Generic;
- using System.IO;
- using System.Text;
-
- using MbUnit.Framework;
-
- using Interlace.Erlang;
-
- #endregion
-
- namespace Interlace.Tests.Erlang
- {
- [TestFixture()]
- public class TermTests
- {
- public object RoundTripObject(object term)
- {
- byte[] binaryTerm = TermWriter.TermToBinary(term);
- TermReader reader = new TermReader(new MemoryStream(binaryTerm, false));
-
- return reader.ReadTerm();
- }
-
- public void AssertTermSerializes(object term)
- {
- Assert.AreEqual(term, RoundTripObject(term));
- }
-
- public void AssertListSerializes(object term)
- {
- CollectionAssert.AreEqual(term as ICollection, RoundTripObject(term) as ICollection);
- }
-
- public void AssertDictionarySerializes(object term)
- {
- ErlangDictionary recoveredDictionary = new ErlangDictionary(RoundTripObject(term));
- Assert.AreEqual(term, recoveredDictionary);
- }
-
- [Test()]
- public void SimpleTests()
- {
- AssertTermSerializes(12);
- AssertTermSerializes(-4);
- AssertTermSerializes(0);
- AssertTermSerializes("");
- AssertTermSerializes("Test String");
- AssertListSerializes(new List<object>(new object[] { }));
- AssertListSerializes(new List<object>(new object[] { "Test", 34, 12 }));
- AssertListSerializes(new List<object>(new object[] { new Tuple(1, 2, 3, 4) }));
- }
-
- [Test()]
- public void DictionaryTests()
- {
- AssertDictionarySerializes(new ErlangDictionary());
-
- ErlangDictionary dictionary = new ErlangDictionary();
- dictionary["test"] = "best";
- dictionary["nest"] = 34;
-
- AssertDictionarySerializes(dictionary);
- }
- }
- }