Public Function New( _
   ByVal comparer As IComparer(Of T), _
   ByVal copyFrom As IEnumerable(Of T) _
)

public BTreeList<T>( 
   IComparer<T> comparer,
   IEnumerable<T> copyFrom
)

BTreeList<int> data = new BTreeList<int>(Comparer, GetSample());
Assert.IsFalse(data.IsReadOnly);
            
BTreeList<int> copy = data.MakeReadOnly();
Assert.IsFalse(ReferenceEquals(data, copy));
Assert.AreEqual(data.Count, copy.Count);
Assert.IsTrue(copy.IsReadOnly);

Assert.IsTrue(ReferenceEquals(copy, copy.MakeReadOnly()));
data = copy.Clone();
Assert.IsFalse(data.IsReadOnly);
Assert.IsFalse(ReferenceEquals(copy, data));
Assert.AreEqual(data.Count, copy.Count);

Dim data As New BTreeList(Of Integer)(Comparer, GetSample())
Assert.IsFalse(data.IsReadOnly)

Dim copy As BTreeList(Of Integer) = data.MakeReadOnly()
Assert.IsFalse(ReferenceEquals(data, copy))
Assert.AreEqual(data.Count, copy.Count)
Assert.IsTrue(copy.IsReadOnly)

Assert.IsTrue(ReferenceEquals(copy, copy.MakeReadOnly()))
data = copy.Clone()
Assert.IsFalse(data.IsReadOnly)
Assert.IsFalse(ReferenceEquals(copy, data))
Assert.AreEqual(data.Count, copy.Count)