Container-AVL/src/Containers-AVL-Tree-Tests/CTAVLNodeTest.class.st at 3e164e0592bdd86a4b879e029cd148deb86b1a64 · HossamSaberr/Container-AVL · GitHub

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
Class {
	#name : 'CTAVLNodeTest',
	#superclass : 'TestCase',
	#category : 'Containers-AVL-Tree-Tests',
	#package : 'Containers-AVL-Tree-Tests'
}

{ #category : 'tests' }
CTAVLNodeTest >> testCopyLeafNode [
	| node copiedNode |
	node := CTAVLNode new contents: 42.

	copiedNode := node copy.

	self assert: copiedNode contents equals: 42.
	self deny: node == copiedNode.

	self assert: copiedNode height equals: 1.
	self assert: copiedNode left isNilNode.
	self assert: copiedNode right isNilNode
]

{ #category : 'tests' }
CTAVLNodeTest >> testIsLeaf [
    | parentNode childNode |
    parentNode := CTAVLNode new contents: 50.
    self assert: parentNode isLeaf.

    childNode := CTAVLNode new contents: 30.
    parentNode left: childNode.

    self deny: parentNode isLeaf.
    self assert: childNode isLeaf.
]

{ #category : 'tests' }
CTAVLNodeTest >> testParentChildRelationships [
    | root leftChild rightChild |
    root := CTAVLNode new contents: 50.
    leftChild := CTAVLNode new contents: 30.
    rightChild := CTAVLNode new contents: 70.

    root left: leftChild.
    root right: rightChild.

    self assert: root parent isNil.
    self assert: leftChild parent equals: root.
    self assert: rightChild parent equals: root.
]