PageRenderTime 49ms CodeModel.GetById 24ms RepoModel.GetById 0ms app.codeStats 1ms

/source/library/Interlace.Tests/Erlang/TermTests.cs

https://bitbucket.org/VahidN/interlace
C# | 95 lines | 56 code | 14 blank | 25 comment | 0 complexity | c106f6bac22511caaf88ac4d23e3eb91 MD5 | raw file
  1. #region Using Directives and Copyright Notice
  2. // Copyright (c) 2007-2010, Computer Consultancy Pty Ltd
  3. // All rights reserved.
  4. //
  5. // Redistribution and use in source and binary forms, with or without
  6. // modification, are permitted provided that the following conditions are met:
  7. // * Redistributions of source code must retain the above copyright
  8. // notice, this list of conditions and the following disclaimer.
  9. // * Redistributions in binary form must reproduce the above copyright
  10. // notice, this list of conditions and the following disclaimer in the
  11. // documentation and/or other materials provided with the distribution.
  12. // * Neither the name of the Computer Consultancy Pty Ltd nor the
  13. // names of its contributors may be used to endorse or promote products
  14. // derived from this software without specific prior written permission.
  15. //
  16. // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  17. // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18. // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19. // ARE DISCLAIMED. IN NO EVENT SHALL COMPUTER CONSULTANCY PTY LTD BE LIABLE
  20. // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21. // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  22. // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  23. // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24. // LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25. // OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
  26. // DAMAGE.
  27. using System;
  28. using System.Collections;
  29. using System.Collections.Generic;
  30. using System.IO;
  31. using System.Text;
  32. using MbUnit.Framework;
  33. using Interlace.Erlang;
  34. #endregion
  35. namespace Interlace.Tests.Erlang
  36. {
  37. [TestFixture()]
  38. public class TermTests
  39. {
  40. public object RoundTripObject(object term)
  41. {
  42. byte[] binaryTerm = TermWriter.TermToBinary(term);
  43. TermReader reader = new TermReader(new MemoryStream(binaryTerm, false));
  44. return reader.ReadTerm();
  45. }
  46. public void AssertTermSerializes(object term)
  47. {
  48. Assert.AreEqual(term, RoundTripObject(term));
  49. }
  50. public void AssertListSerializes(object term)
  51. {
  52. CollectionAssert.AreEqual(term as ICollection, RoundTripObject(term) as ICollection);
  53. }
  54. public void AssertDictionarySerializes(object term)
  55. {
  56. ErlangDictionary recoveredDictionary = new ErlangDictionary(RoundTripObject(term));
  57. Assert.AreEqual(term, recoveredDictionary);
  58. }
  59. [Test()]
  60. public void SimpleTests()
  61. {
  62. AssertTermSerializes(12);
  63. AssertTermSerializes(-4);
  64. AssertTermSerializes(0);
  65. AssertTermSerializes("");
  66. AssertTermSerializes("Test String");
  67. AssertListSerializes(new List<object>(new object[] { }));
  68. AssertListSerializes(new List<object>(new object[] { "Test", 34, 12 }));
  69. AssertListSerializes(new List<object>(new object[] { new Tuple(1, 2, 3, 4) }));
  70. }
  71. [Test()]
  72. public void DictionaryTests()
  73. {
  74. AssertDictionarySerializes(new ErlangDictionary());
  75. ErlangDictionary dictionary = new ErlangDictionary();
  76. dictionary["test"] = "best";
  77. dictionary["nest"] = 34;
  78. AssertDictionarySerializes(dictionary);
  79. }
  80. }
  81. }