1
1
mirror of https://github.com/github/semantic.git synced 2024-12-29 01:42:43 +03:00

Test simple updates to subtrees.

This commit is contained in:
Rob Rix 2015-11-05 11:46:01 -05:00
parent 336c2b87b2
commit b948f10dc1

View File

@ -47,6 +47,10 @@ final class LocationTests: XCTestCase {
func testSequenceIsPreOrderDepthFirstTraversal() {
assert(term.explore().map { $0.it.extract }, ==, [ 0, 1, 2, 3, 5, 4 ])
}
func testModifyReplacesSubtrees() {
assert(term.explore().down?.modify(const(leafB)).right?.up?.it, ==, Cofree(0, .Indexed([ leafB, leafB, keyed ])))
}
}
@ -67,4 +71,5 @@ private let term: Cofree<String, Int> = Cofree(0, .Indexed([
import Assertions
@testable import Doubt
import Prelude
import XCTest