unsound 0.1.2 → 0.1.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 969cc5da6572e62fb76773536cd7bc3da5a0df11
-  data.tar.gz: 32ed2346c15304d27addb2b0d623ca68738f9f84
+  metadata.gz: 8032f0925e0db77e85eaa9d2f3fe0b052ab73a1f
+  data.tar.gz: 90a75d957569e6cb264240b7f28f561cc17e56cb
 SHA512:
-  metadata.gz: ee5567a88fe014b0c6afa9652d71a52e00575017206fd4319d0c8bf018f87b646cddc8aa3ade4e29cad9e612743aa8322caf13a62376c8e3524735090fbb03ef
-  data.tar.gz: 3f0ac46526183250bbe08f3bcaf8946f9dc6eff7760265c9cdb1cc10e0c0f9f67f149b006bfa7a539e497b197bf7ed0315bcfacf0f0706aec395d6822e9ea440
+  metadata.gz: 6cfe4311ce77b5fa378febd2156965a2aaa23416fe010c21d89a1eb53b16d74bda4ed2a51ba63983e33e348478f7eac8842fa3b155a5deb20d2fc7226de0c937
+  data.tar.gz: af4704334655a2adc6dd688e6412f0d97c1d43f230c0d8a00d588f3d9a1fa49632ddf87b0d5f0bc9ab8e8f23d8da2b36ac36b5ca540075361652fc2ad5e4a7b6

data/lib/unsound/control.rb

@@ -17,6 +17,15 @@ module Unsound
       Data::Left.new($ERROR_INFO)
     end
 
+
+    # Like .try, but wraps the block in a Proc for lazy execution
+    # @param block [Block] the block to execute
+    # @return [Proc] a proc which will execute the supplied block using .try
+    #   when executed.
+    def wrap_with_try(&block)
+      ->(*args) { try { block.call(*args) } }
+    end
+
     # Execute the block. If the block
     # results in Nil, return {Data::Nothing},
     # otherwise wrap the result in a {Data::Just}
@@ -30,5 +39,13 @@ module Unsound
         Data::Just.new(result)
       end
     end
+
+    # Like .maybe, but wraps the block in a Proc for lazy execution
+    # @param block [Block] the block to execute
+    # @return [Proc] a proc which will execute the supplied block using .maybe
+    #   when executed.
+    def wrap_with_maybe(&block)
+      ->(*args) { maybe{ block.call(*args) } }
+    end
   end
 end

data/lib/unsound/version.rb

@@ -1,3 +1,3 @@
 module Unsound
-  VERSION = "0.1.2"
+  VERSION = "0.1.3"
 end

data/spec/unit/unsound/control_spec.rb

@@ -25,6 +25,32 @@ RSpec.describe Unsound::Control do
     end
   end
 
+  describe Unsound::Control, ".wrap_with_try" do
+    subject(:wrapped_try) { Unsound::Control.wrap_with_try(&blk) }
+
+    context "the block executes successfully" do
+      let(:blk) { ->(argument) { result } }
+      let(:result) { double(:result) }
+
+      it "returns the result wrapped in a Right when it is called" do
+        result_of_call = wrapped_try.call("foo")
+        expect(result_of_call).to be_a(Unsound::Data::Right)
+        expect(result_of_call.value).to eq(result)
+      end
+    end
+
+    context "the block raises an exception" do
+      let(:blk) { ->(argument) { fail error } }
+      let(:error) { StandardError.new("Something went wrong") }
+
+      it "returns the exception wrapped in a Left when it is called" do
+        result_of_call = wrapped_try.call("foo")
+        expect(result_of_call).to be_a(Unsound::Data::Left)
+        expect(result_of_call.value).to eq(error)
+      end
+    end
+  end
+
   describe Unsound::Control, ".maybe" do
     subject(:run_maybe) { Unsound::Control.maybe(&blk) }
 
@@ -46,4 +72,28 @@ RSpec.describe Unsound::Control do
       end
     end
   end
+
+  describe Unsound::Control, ".wrap_with_maybe" do
+    subject(:wrapped_maybe) { Unsound::Control.wrap_with_maybe(&blk) }
+
+    context "the block returns nil" do
+      let(:blk) { ->(argument) { nil } }
+
+      it "returns Nothing when it is called" do
+        result_of_call = wrapped_maybe.call("foo")
+        expect(result_of_call).to be_a(Unsound::Data::Nothing)
+      end
+    end
+
+    context "the block does not return nil" do
+      let(:blk) { ->(argument) { result } }
+      let(:result) { double(:result) }
+
+      it "returns the result wrapped in a Just when it is called" do
+        result_of_call = wrapped_maybe.call("foo")
+        expect(result_of_call).to be_a(Unsound::Data::Just)
+        expect(result_of_call.value).to eq(result)
+      end
+    end
+  end
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: unsound
 version: !ruby/object:Gem::Version
-  version: 0.1.2
+  version: 0.1.3
 platform: ruby
 authors:
 - Peter Swan
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-04-28 00:00:00.000000000 Z
+date: 2016-05-11 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: concord