            vec) => (contains #{1 2 3 4 5}))
 
       (fact
-       "distinct returns distinct elements of an RDD with the give number of partitions"
+       "distinct returns distinct elements of an RDD with the given number of partitions"
        (-> (f/parallelize c [1 2 1 3 4 5 4])
            (f/distinct 2)
            f/collect

                              ["key3" 5]])
            f/group-by-key
            f/collect
            vec) => [["key3" [5]] ["key1" [1 2]] ["key2" [3 4]]])

      (fact
        "flat-map-to-pair"

              ]
          (-> (f/join LDATA RDATA)
              f/collect
              vec)) => (just [["key3" [[5] [33]]]
                              ["key4" [[1] [44]]]
                              ["key1" [[2] [22]]]] :in-any-order))

      (fact
        "left-outer-join returns an RDD of (K, (V, W)) when called on RDDs of type (K, V) and (K, W)"
