From b9c7820e64d4e5b86c837b25800cf61094ad2517 Mon Sep 17 00:00:00 2001 From: David Miller Date: Fri, 16 Oct 2009 22:32:06 -0500 Subject: Removing ClojureCLR (Moved to http://github.com/richhickey/clojure-clr) --- .../LibTests/PersistentHashMapTests.cs | 242 --------------------- 1 file changed, 242 deletions(-) delete mode 100644 ClojureCLR/Clojure/Clojure.Tests/LibTests/PersistentHashMapTests.cs (limited to 'ClojureCLR/Clojure/Clojure.Tests/LibTests/PersistentHashMapTests.cs') diff --git a/ClojureCLR/Clojure/Clojure.Tests/LibTests/PersistentHashMapTests.cs b/ClojureCLR/Clojure/Clojure.Tests/LibTests/PersistentHashMapTests.cs deleted file mode 100644 index 27996263..00000000 --- a/ClojureCLR/Clojure/Clojure.Tests/LibTests/PersistentHashMapTests.cs +++ /dev/null @@ -1,242 +0,0 @@ -/** - * Copyright (c) David Miller. All rights reserved. - * The use and distribution terms for this software are covered by the - * Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) - * which can be found in the file epl-v10.html at the root of this distribution. - * By using this software in any fashion, you are agreeing to be bound by - * the terms of this license. - * You must not remove this notice, or any other, from this software. - **/ - -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; - - -using NUnit.Framework; -using Rhino.Mocks; - -using clojure.lang; - -using RMExpect = Rhino.Mocks.Expect; -using System.Collections; - - -namespace Clojure.Tests.LibTests -{ - [TestFixture] - public class PersistentHashMapTests : AssertionHelper - { - - #region C-tor tests - - [Test] - public void CreateOnEmptyDictionaryReturnsEmptyMap() - { - Dictionary d = new Dictionary(); - IPersistentMap m = PersistentHashMap.create(d); - - Expect(m.count(), EqualTo(0)); - } - - [Test] - public void CreateOnDictionaryReturnsMap() - { - Dictionary d = new Dictionary(); - d[1] = "a"; - d[2] = "b"; - - IPersistentMap m = PersistentHashMap.create(d); - - Expect(m.count(), EqualTo(2)); - Expect(m.valAt(1), EqualTo("a")); - Expect(m.valAt(2), EqualTo("b")); - Expect(m.containsKey(3), False); - } - - [Test] - public void CreateOnEmptyListReturnsEmptyMap() - { - ArrayList a = new ArrayList(); - IPersistentMap m = PersistentHashMap.create1(a); - - Expect(m.count(), EqualTo(0)); - } - - [Test] - public void CreateOnListReturnsMap() - { - object[] items = new object[] { 1, "a", 2, "b" }; - ArrayList a = new ArrayList(items); - - IPersistentMap m = PersistentHashMap.create1(a); - - Expect(m.count(), EqualTo(2)); - Expect(m.valAt(1), EqualTo("a")); - Expect(m.valAt(2), EqualTo("b")); - Expect(m.containsKey(3), False); - } - - [Test] - public void CreateOnEmptyISeqReturnsEmptyMap() - { - object[] items = new object[] {}; - ArrayList a = new ArrayList(items); - ISeq s = PersistentList.create(a).seq(); - IPersistentMap m = PersistentHashMap.create(s); - - Expect(m.count(), EqualTo(0)); - } - - [Test] - public void CreateOnISeqReturnsMap() - { - object[] items = new object[] { 1, "a", 2, "b" }; - ArrayList a = new ArrayList(items); - ISeq s = PersistentList.create(a).seq(); - IPersistentMap m = PersistentHashMap.create(s); - - Expect(m.count(), EqualTo(2)); - Expect(m.valAt(1), EqualTo("a")); - Expect(m.valAt(2), EqualTo("b")); - Expect(m.containsKey(3), False); - } - - [Test] - public void CreateOnNoArgsReturnsEmptyMap() - { - PersistentHashMap m = PersistentHashMap.create(); - - Expect(m.count(), EqualTo(0)); - Expect(m.meta(), Null); - } - - [Test] - public void CreateOnNoArgsReturnsMap() - { - PersistentHashMap m = PersistentHashMap.create(1, "a", 2, "b"); - - Expect(m.count(), EqualTo(2)); - Expect(m.valAt(1), EqualTo("a")); - Expect(m.valAt(2), EqualTo("b")); - Expect(m.containsKey(3), False); - Expect(m.meta(), Null); - } - - - [Test] - public void CreateOnMetaNoArgsReturnsEmptyMap() - { - MockRepository mocks = new MockRepository(); - IPersistentMap meta = mocks.StrictMock(); - mocks.ReplayAll(); - - PersistentHashMap m = PersistentHashMap.create(meta); - - Expect(m.count(), EqualTo(0)); - Expect(m.meta(), SameAs(meta)); - mocks.VerifyAll(); - } - - [Test] - public void CreateOnMetaNoArgsReturnsMap() - { - MockRepository mocks = new MockRepository(); - IPersistentMap meta = mocks.StrictMock(); - mocks.ReplayAll(); - - PersistentHashMap m = PersistentHashMap.create(meta,1, "a", 2, "b"); - - Expect(m.count(), EqualTo(2)); - Expect(m.valAt(1), EqualTo("a")); - Expect(m.valAt(2), EqualTo("b")); - Expect(m.containsKey(3), False); - Expect(m.meta(), SameAs(meta)); - mocks.VerifyAll(); - } - - #endregion - - #region Associative tests - - #endregion - - #region IPersistentMap tests - - #endregion - - #region IPersistentCollection tests - - #endregion - - #region Big tests - - [Test] - public void DoSomeBigTests() - { - DoBigTest(100); - DoBigTest(1000); - DoBigTest(10000); - DoBigTest(100000); - } - - public void DoBigTest(int numEntries) - { - System.Console.WriteLine("Testing {0} items.", numEntries); - - Random rnd = new Random(); - Dictionary dict = new Dictionary(numEntries); - for (int i = 0; i < numEntries; i++) - { - int r = rnd.Next(); - dict[r] = r; - } - PersistentHashMap m = (PersistentHashMap) PersistentHashMap.create(dict); - - Expect(m.count(),EqualTo(dict.Count)); - - foreach ( int key in dict.Keys ) - { - Expect(m.containsKey(key)); - Expect(m.valAt(key),EqualTo(key)); - } - - for ( ISeq s = m.seq(); s != null; s = s.next() ) - Expect(dict.ContainsKey((int)((IMapEntry)s.first()).key())); - - } - - #endregion - - } - - [TestFixture] - public class PersistentHashMap_IObj_Tests : IObjTests - { - MockRepository _mocks; - - [SetUp] - public void Setup() - { - _mocks = new MockRepository(); - IPersistentMap meta = _mocks.StrictMock(); - _mocks.ReplayAll(); - - PersistentHashMap m = PersistentHashMap.create(1, "a", 2, "b"); - - - _objWithNullMeta = (IObj)m; - _obj = _objWithNullMeta.withMeta(meta); - _expectedType = typeof(PersistentHashMap); - } - - [TearDown] - public void Teardown() - { - _mocks.VerifyAll(); - } - - } - -} -- cgit v1.2.3-18-g5258