aboutsummaryrefslogtreecommitdiff
path: root/ClojureCLR/Clojure/Clojure.Tests/LibTests/AReferenceTests.cs
blob: 8f621ae2ddc06d757b508fe3ef0a021d2e9f370a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
/**
 *   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;

namespace Clojure.Tests.LibTests
{

    [TestFixture]
    public class AReferenceTests : AssertionHelper
    {
        // AReference is abstract.  We need a class to instantiate.

        class ConcreteAReference : AReference
        {
            public ConcreteAReference() : base() { }
            public ConcreteAReference(IPersistentMap meta) : base(meta) { }
        }


        #region C-tor tests

        [Test]
        public void Default_ctor_creates_with_null_metadata()
        {
            ConcreteAReference c = new ConcreteAReference();
            Expect(c.meta(), Null);
        }

        [Test]
        public void Map_ctor_creates_with_given_metadata()
        {
            MockRepository mocks = new MockRepository();
            IPersistentMap meta = mocks.StrictMock<IPersistentMap>();
            mocks.ReplayAll();

            ConcreteAReference c = new ConcreteAReference(meta);
            Expect(c.meta(), EqualTo(meta));

            mocks.VerifyAll();
        }

        #endregion


        #region IReference tests

        [Test]
        public void AlterMeta_changes_meta()
        {
            MockRepository mocks = new MockRepository();
            IPersistentMap meta = mocks.StrictMock<IPersistentMap>();
            IFn fn = mocks.StrictMock<IFn>();
            RMExpect.Call(fn.applyTo(null)).IgnoreArguments().Return(meta);
            mocks.ReplayAll();

            ConcreteAReference c = new ConcreteAReference();
            c.alterMeta(fn, null);

            Expect(c.meta(), EqualTo(meta));
            mocks.VerifyAll();
        }

        [Test]
        public void ResetMeta_sets_meta()
        {
            MockRepository mocks = new MockRepository();
            IPersistentMap meta = mocks.StrictMock<IPersistentMap>();
            mocks.ReplayAll();

            ConcreteAReference c = new ConcreteAReference();
            c.resetMeta(meta);

            Expect(c.meta(), EqualTo(meta));
            mocks.VerifyAll();
        }


        #endregion
    }
}