From 67f56f0795ac0214f9828c42f8face229e204c1d Mon Sep 17 00:00:00 2001 From: David Miller Date: Sat, 21 Feb 2009 06:55:20 +0000 Subject: ClojureCLR: added ClojureCLR project to repo. --- .../Clojure/Clojure.Tests/LibTests/ObjTests.cs | 68 ++++++++++++++++++++++ 1 file changed, 68 insertions(+) create mode 100644 ClojureCLR/Clojure/Clojure.Tests/LibTests/ObjTests.cs (limited to 'ClojureCLR/Clojure/Clojure.Tests/LibTests/ObjTests.cs') diff --git a/ClojureCLR/Clojure/Clojure.Tests/LibTests/ObjTests.cs b/ClojureCLR/Clojure/Clojure.Tests/LibTests/ObjTests.cs new file mode 100644 index 00000000..bf7423ba --- /dev/null +++ b/ClojureCLR/Clojure/Clojure.Tests/LibTests/ObjTests.cs @@ -0,0 +1,68 @@ +/** + * 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; + + +namespace Clojure.Tests.LibTests +{ + [TestFixture] + public class ObjTests : IObjTests + { + + class MockObj : Obj + { + public MockObj() + { + } + + public MockObj(IPersistentMap meta) + : base(meta) + { + } + + public override IObj withMeta(IPersistentMap meta) + { + return meta == _meta + ? this + : new MockObj(meta); + } + } + + MockRepository _mocks; + + [SetUp] + public void Setup() + { + _mocks = new MockRepository(); + IPersistentMap meta = _mocks.StrictMock(); + _mocks.ReplayAll(); + + _objWithNullMeta = new MockObj(); + _obj = new MockObj(meta); + _expectedType = typeof(MockObj); + } + + [TearDown] + public void Teardown() + { + _mocks.VerifyAll(); + } + } +} + -- cgit v1.2.3-18-g5258