spec/shared/liftable.rb in lambda_driver-1.2.1 vs spec/shared/liftable.rb in lambda_driver-1.2.2

@@ -15,30 +15,46 @@
     else
       (x.to_s * 2) + "_g"
     end
     }
   }
+  let(:h) { lambda{|x| (x.to_s * 3) + "_h" } }
 
-  it('" f >= g" returns function that does not call g if args is mzero'){
-    (subject >= g).should be_a_kind_of Proc
-  }
+  context 'lift on default-context' do
+    it('" f >= g" returns function that does not call g if args is mzero'){
+      (subject >= g).should be_a_kind_of Proc
+    }
 
-  it('"(f >= g).call(nil) returns nil and does not call g'){
-    (subject >= g).call(nil).should be_nil
-  }
-  it('"(f >= g).call(x) should be g(f(x))'){
-    (subject >= g).call(x).should == g.call(subject.to_proc.call(x))
-  }
-  it('"(f >= g).call([]) returns [] and does not call g'){
-    (subject >= g).call([]).should == []
-  }
-  it('"(f >= g).call([1,2]) should be g(f([1,2]))'){
-    (subject >= g).call(y).should == g.call(subject.to_proc.call(y))
-  }
-  it('"(f >= g).call({}) returns {} and does not call g'){
-    (subject >= g).call({}).should == {}
-  }
-  it('"(f >= g).call({:a => 1,:b => 2}) should be g(f({:a => 1,  :b => 2}))'){
-    (subject >= g).call(z).should == g.call(subject.to_proc.call(z))
-  }
+    it('"(f >= g).call(nil) returns nil and does not call g'){
+      (subject >= g).call(nil).should be_nil
+    }
+    it('"(f >= g).call(x) should be g(f(x))'){
+      (subject >= g).call(x).should == g.call(subject.to_proc.call(x))
+    }
+    it('"(f >= g).call([]) returns [] and does not call g'){
+      (subject >= g).call([]).should == []
+    }
+    it('"(f >= g).call([1,2]) should be g(f([1,2]))'){
+      (subject >= g).call(y).should == g.call(subject.to_proc.call(y))
+    }
+    it('"(f >= g).call({}) returns {} and does not call g'){
+      (subject >= g).call({}).should == {}
+    }
+    it('"(f >= g).call({:a => 1,:b => 2}) should be g(f({:a => 1,  :b => 2}))'){
+      (subject >= g).call(z).should == g.call(subject.to_proc.call(z))
+    }
+  end
 
+  context 'lift on given context' do
+    let(:ctx) { lambda{|f,x| f.call(x) + "_ctx_" }}
+
+    it(" f.lift(ctx) >= g returns funciton that compose with ctx"){
+      (subject.lift(ctx) >= g).should be_a_kind_of Proc
+    }
+    it('"(f.flit(ctx) >= g).call(x) should be ctx(g, f(x))'){
+      (subject.lift(ctx) >= g).call(x).should == ctx.call(g, subject.to_proc.call(x))
+    }
+    it('"(f.flit(ctx) >= g >= h).call(x) should be ctx(h, ctx(g, f(x)))'){
+      (subject.lift(ctx) >= g >= h).call(x).should == ctx.call(h, ctx.call(g, subject.to_proc.call(x)))
+    }
+  end
 end