functional-light-service 0.4.4 → 6.0.0

data/spec/examples/validate_address_spec.rb

@@ -1,37 +1,38 @@
-require 'spec_helper'
-
-# A Unit of Work for validating an address
-module ValidateAddress
-  extend FunctionalLightService::Prelude::Result
-
-  def self.call(candidate)
-    errors = {}
-    errors[:street] = "Street cannot be empty" unless candidate.key? :street
-    errors[:city]   = "Street cannot be empty" unless candidate.key? :city
-    errors[:postal] = "Street cannot be empty" unless candidate.key? :postal
-
-    errors.empty? ? Success(candidate) : Failure(errors)
-  end
-end
-
-describe ValidateAddress do
-  include FunctionalLightService
-  subject { ValidateAddress.call(candidate) }
-  context 'sunny day' do
-    let(:candidate) do
-      { :title => "Hobbiton",
-        :street => "501 Buckland Rd",
-        :city => "Matamata",
-        :postal => "3472",
-        :country => "nz" }
-    end
-    specify { expect(subject).to be_a FunctionalLightService::Result::Success }
-    specify { expect(subject.value).to eq candidate }
-  end
-
-  context 'empty data' do
-    let(:candidate) { {} }
-    specify { expect(subject).to be_a FunctionalLightService::Result::Failure }
-    specify { expect(subject.value).to include(:street, :city, :postal) }
-  end
-end
+require 'spec_helper'
+
+# A Unit of Work for validating an address
+module ValidateAddress
+  extend FunctionalLightService::Prelude::Result
+
+  def self.call(candidate)
+    errors = {}
+    errors[:street] = "Street cannot be empty" unless candidate.key? :street
+    errors[:city]   = "Street cannot be empty" unless candidate.key? :city
+    errors[:postal] = "Street cannot be empty" unless candidate.key? :postal
+
+    errors.empty? ? Success(candidate) : Failure(errors)
+  end
+end
+
+describe ValidateAddress do
+  include FunctionalLightService
+
+  subject { ValidateAddress.call(candidate) }
+  context 'sunny day' do
+    let(:candidate) do
+      { :title => "Hobbiton",
+        :street => "501 Buckland Rd",
+        :city => "Matamata",
+        :postal => "3472",
+        :country => "nz" }
+    end
+    specify { expect(subject).to be_a FunctionalLightService::Result::Success }
+    specify { expect(subject.value).to eq candidate }
+  end
+
+  context 'empty data' do
+    let(:candidate) { {} }
+    specify { expect(subject).to be_a FunctionalLightService::Result::Failure }
+    specify { expect(subject.value).to include(:street, :city, :postal) }
+  end
+end

data/spec/lib/deterministic/currify_spec.rb

@@ -1,88 +1,90 @@
-require 'spec_helper'
-require 'pry'
-
-module FunctionalLightService
-  module Currify
-    module ClassMethods
-      def currify(*names)
-        names.each do |name|
-          unbound_method = instance_method(name)
-
-          define_method(name) do |*args|
-            curried_method = unbound_method.bind(self).to_proc.curry
-            curried_method[*args]
-          end
-        end
-      end
-    end
-
-    def self.included(curried)
-      curried.extend ClassMethods
-    end
-  end
-end
-
-class Object
-  class Proc
-    def self.compose(f, g)
-      ->(*args) { f[g[*args]] }
-    end
-
-    # rubocop:disable Naming/BinaryOperatorParameterName
-    # Compose left to right
-    def |(g)
-      Proc.compose(g, self)
-    end
-
-    # Compose right to left
-    def *(g)
-      Proc.compose(self, g)
-    end
-    # rubocop:enable Naming/BinaryOperatorParameterName
-  end
-end
-
-class Booking
-  include FunctionalLightService::Currify
-  include FunctionalLightService::Prelude::Result
-
-  def initialize(deps)
-    @deps = deps
-  end
-
-  def build(id, format)
-    validate(id) | req | find | render(format)
-
-    validate(id) | request(id) | find
-  end
-
-  def validate(id)
-    Success(id)
-  end
-
-  def req(a, id)
-    Success(:id => id + a)
-  end
-
-  def find(req)
-    Success(:found => req)
-  end
-
-  def render(format, req)
-    Success("rendered in #{format}: #{req[:found]}")
-  end
-
-  currify :find, :render, :req
-end
-
-describe "Pref" do
-  include FunctionalLightService::Prelude::Result
-
-  it "does something" do
-    b = Booking.new(1)
-    actual = b.validate(1) >> b.req(2) >> b.find >> b.render(:html)
-
-    expected = FunctionalLightService::Result::Success.new("rendered in html: {:id=>3}")
-    expect(actual).to eq expected
-  end
-end
+require 'spec_helper'
+require 'pry'
+
+module FunctionalLightService
+  module Currify
+    module ClassMethods
+      def currify(*names)
+        names.each do |name|
+          unbound_method = instance_method(name)
+
+          define_method(name) do |*args|
+            curried_method = unbound_method.bind(self).to_proc.curry
+            curried_method[*args]
+          end
+        end
+      end
+    end
+
+    def self.included(curried)
+      curried.extend ClassMethods
+    end
+  end
+end
+
+class Object
+  class Proc
+    def self.compose(f, g)
+      ->(*args) { f[g[*args]] }
+    end
+
+    # rubocop:disable Naming/BinaryOperatorParameterName
+    # Compose left to right
+    def |(g)
+      Proc.compose(g, self)
+    end
+
+    # Compose right to left
+    def *(g)
+      Proc.compose(self, g)
+    end
+    # rubocop:enable Naming/BinaryOperatorParameterName
+  end
+end
+
+class Booking
+  include FunctionalLightService::Currify
+  include FunctionalLightService::Prelude::Result
+
+  def initialize(deps)
+    @deps = deps
+  end
+
+  def build(id, format)
+    validate(id) | req | find | render(format)
+
+    validate(id) | request(id) | find
+  end
+
+  def validate(id)
+    Success(id)
+  end
+
+  def req(a, id)
+    Success(:id => id + a)
+  end
+
+  def find(req)
+    Success(:found => req)
+  end
+
+  def render(format, req)
+    Success("rendered in #{format}: #{req[:found]}")
+  end
+
+  currify :find, :render, :req
+end
+
+describe "Pref" do
+  include FunctionalLightService::Prelude::Result
+
+  it "does something" do
+    b = Booking.new(1)
+    actual = b.validate(1) >> b.req(2) >> b.find >> b.render(:html)
+
+    # il formato di Hash#to_s cambia tra Ruby 3.3 e 3.4: costruiamo l'atteso dinamicamente
+    rendered_params = { :id => 3 }
+    expected = FunctionalLightService::Result::Success.new("rendered in html: #{rendered_params}")
+    expect(actual).to eq expected
+  end
+end

data/spec/lib/deterministic/null_spec.rb

@@ -3,7 +3,12 @@ require "spec_helper"
 describe Null do
   it "Null is a Singleton" do
     expect(Null.instance).to be_a Null
-    expect { Null.new }.to raise_error(NoMethodError, "private method `new' called for Null:Class")
+    expect { Null.new }.to raise_error(NoMethodError, /private method [`']new'/)
+  end
+
+  it "respond_to? accepts the standard two-argument form" do
+    expect(Null.instance.respond_to?(:anything, true)).to be(true)
+    expect(Null.instance.respond_to?(:anything)).to be(true)
   end
 
   it "explicit conversions" do

data/spec/lib/deterministic/option_spec.rb

@@ -1,133 +1,140 @@
-require 'spec_helper'
-
-# rubocop:disable Style/MixinUsage
-include FunctionalLightService::Prelude::Option
-# rubocop:enable Style/MixinUsage
-
-describe FunctionalLightService::Option do
-  specify { expect(described_class::Some.new(0)).to be_a described_class::Some }
-  specify { expect(described_class::Some.new(0)).to be_a described_class }
-  specify { expect(described_class::Some.new(0)).to eq Some(0) }
-
-  specify { expect(described_class::None.new).to eq described_class::None.new }
-  specify { expect(described_class::None.new).to be_a described_class::None }
-  specify { expect(described_class::None.new).to be_a described_class }
-  specify { expect(described_class::None.new).to eq None }
-
-  it "join" do
-    expect(Some(Some(1))).to eq Some(1)
-  end
-
-  it "fmap" do
-    expect(Some(1).fmap { |n| n + 1 }).to eq Some(2)
-    expect(None.fmap { |n| n + 1 }).to eq None
-  end
-
-  it "map" do
-    expect(Some(1).map { |n| Some(n + 1) }).to eq Some(2)
-    expect(Some(1).map { |_n| None }).to eq None
-    expect(None.map { |n| Some(n + 1) }).to eq None
-  end
-
-  it "some?" do
-    expect(Some(1).some?).to be_truthy
-    expect(None.some?).to be_falsey
-  end
-
-  it "none?" do
-    expect(None.none?).to be_truthy
-    expect(Some(1).none?).to be_falsey
-  end
-
-  it "value" do
-    expect(Some(1).value).to eq 1
-    expect { None.value }.to raise_error NoMethodError
-  end
-
-  it "value_or" do
-    expect(Some(1).value_or(2)).to eq 1
-    expect(None.value_or(0)).to eq 0
-  end
-
-  it "+" do
-    expect(Some([1]) + None).to eq Some([1])
-    expect(Some(1) + None + None).to eq Some(1)
-    expect(Some(1) + Some(1)).to eq Some(2)
-    expect(None + Some(1)).to eq Some(1)
-    expect(None + None + Some(1)).to eq Some(1)
-    expect(None + None + Some(1) + None).to eq Some(1)
-    expect(None + Some(:foo => 1)).to eq Some(:foo => 1)
-    expect(Some([1]) + Some([1])).to eq Some([1, 1])
-    expect { Some([1]) + Some(1) }.to raise_error TypeError
-  end
-
-  it "inspect" do
-    expect(Some(1).inspect).to eq "Some(1)"
-    expect(described_class::None.new.inspect).to eq "None"
-  end
-
-  it "to_s" do
-    expect(Some(1).to_s).to eq "1"
-    expect(described_class::None.new.to_s).to eq ""
-  end
-
-  it "match" do
-    # expect(
-    #   Some(0).match do
-    #     Some(where { s == 1 }) { |_s| 99 }
-    #     Some(where { s == 0 }) { |s| s + 1 }
-    #     None() {}
-    #   end
-    # ).to eq 1
-
-    expect(
-      Some(1).match do
-        None() { 0 }
-        Some() { |_s| 1 }
-      end
-    ).to eq 1
-
-    # expect(
-    #   Some(1).match do
-    #     None() { 0 }
-    #     Some(where { s.is_a? Integer }) { |_s| 1 }
-    #   end
-    # ).to eq 1
-
-    expect(
-      None.match do
-        None() { 0 }
-        Some() { 1 }
-      end
-    ).to eq 0
-  end
-
-  it "nil?" do
-    expect(described_class.some?(nil)).to eq None
-    expect(described_class.some?(1)).to be_some
-    expect(described_class.some?(1)).to eq Some(1)
-  end
-
-  it "any?" do
-    expect(described_class.any?(nil)).to be_none
-    expect(described_class.any?(None)).to be_none
-    expect(described_class.any?("")).to  be_none
-    expect(described_class.any?([])).to  be_none
-    expect(described_class.any?({})).to  be_none
-    expect(described_class.any?([1])).to eq Some([1])
-    expect(described_class.any?(:foo => 1)).to eq Some(:foo => 1)
-    expect(described_class.any?(1)).to eq Some(1)
-  end
-
-  it "try!" do
-    expect(described_class.try! { raise "error" }).to be_none
-  end
-end
-
-require_relative 'monad_axioms'
-
-describe FunctionalLightService::Option::Some do
-  it_behaves_like 'a Monad' do
-    let(:monad) { described_class }
-  end
-end
+require 'spec_helper'
+
+include FunctionalLightService::Prelude::Option
+
+describe FunctionalLightService::Option do
+  it "Some cannot wrap nil" do
+    expect { described_class::Some.new(nil) }
+      .to raise_error(ArgumentError, /use None instead/)
+  end
+
+  specify { expect(described_class::Some.new(0)).to be_a described_class::Some }
+  specify { expect(described_class::Some.new(0)).to be_a described_class }
+  specify { expect(described_class::Some.new(0)).to eq Some(0) }
+
+  specify { expect(described_class::None.new).to eq described_class::None.new }
+  specify { expect(described_class::None.new).to be_a described_class::None }
+  specify { expect(described_class::None.new).to be_a described_class }
+  specify { expect(described_class::None.new).to eq None }
+
+  it "join" do
+    expect(Some(Some(1))).to eq Some(1)
+  end
+
+  it "fmap" do
+    expect(Some(1).fmap { |n| n + 1 }).to eq Some(2)
+    expect(None.fmap { |n| n + 1 }).to eq None
+  end
+
+  it "map" do
+    expect(Some(1).map { |n| Some(n + 1) }).to eq Some(2)
+    expect(Some(1).map { |_n| None }).to eq None
+    expect(None.map { |n| Some(n + 1) }).to eq None
+  end
+
+  it "some?" do
+    expect(Some(1).some?).to be_truthy
+    expect(None.some?).to be_falsey
+  end
+
+  it "none?" do
+    expect(None.none?).to be_truthy
+    expect(Some(1).none?).to be_falsey
+  end
+
+  it "value" do
+    expect(Some(1).value).to eq 1
+    expect { None.value }.to raise_error NoMethodError
+  end
+
+  it "value_or" do
+    expect(Some(1).value_or(2)).to eq 1
+    expect(None.value_or(0)).to eq 0
+  end
+
+  it "+" do
+    expect(Some([1]) + None).to eq Some([1])
+    expect(Some(1) + None + None).to eq Some(1)
+    expect(Some(1) + Some(1)).to eq Some(2)
+    expect(None + Some(1)).to eq Some(1)
+    expect(None + None + Some(1)).to eq Some(1)
+    expect(None + None + Some(1) + None).to eq Some(1)
+    expect(None + Some(:foo => 1)).to eq Some(:foo => 1)
+    expect(Some([1]) + Some([1])).to eq Some([1, 1])
+    expect { Some([1]) + Some(1) }.to raise_error TypeError
+  end
+
+  it "inspect" do
+    expect(Some(1).inspect).to eq "Some(1)"
+    expect(described_class::None.new.inspect).to eq "None"
+  end
+
+  it "to_s" do
+    expect(Some(1).to_s).to eq "1"
+    expect(described_class::None.new.to_s).to eq ""
+  end
+
+  it "match" do
+    expect(
+      # rubocop:disable Lint/UnusedBlockArgument
+      # rubocop:disable Lint/EmptyBlock
+      Some(0).match do
+        Some(where { s == 1 }) { |s| 99 }
+        Some(where { s == 0 }) { |s| s + 1 }
+        None() {}
+      end
+    ).to eq 1
+
+    expect(
+      Some(1).match do
+        None() { 0 }
+        Some() { |s| 1 }
+      end
+    ).to eq 1
+
+    expect(
+      Some(1).match do
+        None() { 0 }
+        Some(where { s.is_a? Integer }) { |s| 1 }
+      end
+      # rubocop:enable Lint/UnusedBlockArgument
+      # rubocop:enable Lint/EmptyBlock
+    ).to eq 1
+
+    expect(
+      None.match do
+        None() { 0 }
+        Some() { 1 }
+      end
+    ).to eq 0
+  end
+
+  it "nil?" do
+    expect(described_class.some?(nil)).to eq None
+    expect(described_class.some?(1)).to be_some
+    expect(described_class.some?(1)).to eq Some(1)
+  end
+
+  it "any?" do
+    expect(described_class.any?(nil)).to be_none
+    expect(described_class.any?(None)).to be_none
+    expect(described_class.any?("")).to  be_none
+    expect(described_class.any?([])).to  be_none
+    expect(described_class.any?({})).to  be_none
+    expect(described_class.any?([1])).to eq Some([1])
+    expect(described_class.any?(:foo => 1)).to eq Some(:foo => 1)
+    expect(described_class.any?(1)).to eq Some(1)
+  end
+
+  it "try!" do
+    expect(described_class.try! { raise "error" }).to be_none
+  end
+end
+
+require_relative 'monad_axioms'
+
+describe FunctionalLightService::Option::Some do
+  it_behaves_like 'a Monad' do
+    let(:monad) { described_class }
+  end
+end