Merge branch 'release/0.0.4'

Caprice/Lens.swift

@@ -31,6 +31,15 @@ public prefix func ^<Root, Value>(_ kp: KeyPath<Root, Value>) -> (Root) -> Value
     get(kp)
 }
 
+// users.filter(by(^\User.id, 1))
+
+public func by<Root, Value: Equatable>(
+    _ f: @escaping (Root) -> Value,
+    _ x: Value
+) -> (Root) -> Bool {
+    return { $0 |> f == x }
+}
+
 public func their<Root, Value>(
     _ f: @escaping (Root) -> Value,
     _ g: @escaping (Value, Value) -> Bool
@@ -50,13 +59,14 @@ public func their<Root, Value>(
 
  */
 
-
 public func their<Root, Value: Comparable>(
     _ f: @escaping (Root) -> Value
 ) -> (Root, Root)-> Bool {
     return their(f, <)
 }
 
+// _ = episodes.reduce(0, combining(^\.viewCount, by: +))
+
 func combining<Root, Value>(
     _ f: @escaping (Root) -> Value,
     by g: @escaping (Value, Value) -> Value

Caprice/PrecedenceGroups.swift

@@ -9,7 +9,7 @@ import Foundation
 
 precedencegroup ForwardApplication {
     associativity: left
-    higherThan: AssignmentPrecedence
+    higherThan: AssignmentPrecedence, ComparisonPrecedence
 }
 
 precedencegroup EffectfulComposition {

CapriceDemoTests/CapriceDemoTests.swift

@@ -44,6 +44,12 @@ class AppThemeTests: XCTestCase {
         XCTAssertTrue(users.filter(get(\.isStaff)).isEmpty)
     }
 
+    func test_get() {
+        let id = user |> ^\.id
+
+        XCTAssertEqual(id, 1)
+    }
+
     func test_map_composition() {
         _ = users
             .map(\.email)
@@ -69,16 +75,28 @@ class AppThemeTests: XCTestCase {
         }
     }
 
+    func test_filter() {
+        let userOne = users.filter { $0 |> ^\User.id == 1 }.first!
+
+        XCTAssertEqual(userOne, User(id: 1, email: "[email protected]"))
+
+        let authors = books.filter(by(^\.author.name, "Massimo"))
+
+        let surname = books
+            .filter(by(^\.author.name, "Massimo"))
+            .map(^\.author)
+            .map(^\.surname)
+            .reduce("", +)
+            .lowercased()
+
+        XCTAssertEqual(authors.first?.author, .max)
+        XCTAssertEqual(surname, "pigliucci")
+    }
+
     func test_filter_composition_2() {
-        self.measure {
-
-            let result = users
-                .filter(get(\.isStaff) >>> { $0 == true })
-            //                .filter(^\User.isStaff)
-            //                .filter { $0.isStaff == false }
-
-            XCTAssertEqual(result.count, 0)
-        }
+        let r = users.filter(by(^\.id, 1)).first!
+
+        XCTAssertEqual(r, User(id: 1, email: "[email protected]"))
     }
 
     func test_sorting() {

CapriceDemoTests/Models.swift

@@ -26,6 +26,33 @@ public struct User: Equatable {
     }
 }
 
+let books: [Book] = [
+    .it,
+    .stoicism
+]
+
+public struct Book: Equatable {
+    let id: Int
+    let title: String
+
+    let author: Author
+}
+
+extension Book {
+    static var stoicism = Book(id: 0, title: "Come essere stoico", author: .max)
+    static var it = Book(id: 1, title: "IT", author: .king)
+}
+
+public struct Author: Equatable {
+    let name: String
+    let surname: String
+}
+
+extension Author {
+    static var king = Author(name: "Stephen", surname: "King")
+    static var max = Author(name: "Massimo", surname: "Pigliucci")
+}
+
 extension User {
     var isStaff: Bool {
         return self.email.hasSuffix("@syn.com")