functional-light-service 6.2.0 → 6.3.0

data/spec/examples/controller_spec.rb

@@ -1,63 +0,0 @@
-require 'spec_helper'
-
-module FunctionalLightService
-  module Procify
-    def py(m, *args)
-      args.any? ? method(m).to_proc.curry[*args] : method(m)
-    end
-  end
-end
-
-class BookingController
-  include FunctionalLightService::Prelude::Result
-  include FunctionalLightService::Procify
-
-  Context = Struct.new(:booking, :ability, :format)
-
-  def index(id, format = :html)
-    get_booking(id) << log(:booking) >>
-      py(:ability)              << log(:ability) >>
-      py(:present, format)      << log(:presenter) >>
-      py(:render)               << log(:render)
-  end
-
-  def log(step)
-    ->(data) { [step, data] }
-  end
-
-  def ability(ctx)
-    ctx.ability = {} # Ability.new(@booking)
-    Success(ctx)
-  end
-
-  def present(format, ctx)
-    ctx.format = format
-
-    Success(ctx)
-  end
-
-  def render(ctx)
-    send(ctx.format, ctx)
-  end
-
-  def html(ctx)
-    Success(ctx)
-  end
-
-  def get_booking(id)
-    ctx = Context.new
-    ctx.booking = { :ref_anixe => id }
-    Success(ctx)
-    # @booking = @bms.booking_by_id(id)
-    # rescue BSON::InvalidObjectId => ex
-    # @booking = nil
-    # @ui.error(404, ex.message)
-  end
-end
-
-describe BookingController do
-  it "does something" do
-    bc = BookingController.new
-    bc.index('1234', :html)
-  end
-end

data/spec/examples/validate_address_spec.rb

@@ -1,38 +0,0 @@
-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/i18n_localization_adapter_spec.rb

@@ -1,83 +0,0 @@
-require "spec_helper"
-require 'test_doubles'
-
-describe FunctionalLightService::I18n::LocalizationAdapter do
-  let(:action_class) { TestDoubles::AnAction }
-  let(:adapter) { described_class.new }
-
-  describe "#failure" do
-    subject { adapter.failure(message_or_key, action_class) }
-
-    context "when provided a Symbol" do
-      let(:message_or_key) { :not_found }
-
-      it "translates the message" do
-        expected_scope = "test_doubles/an_action.light_service.failures"
-
-        expect(I18n).to receive(:t)
-          .with(message_or_key, :scope => expected_scope)
-          .and_return("message")
-
-        expect(subject).to eq("message")
-      end
-
-      it "allows passing interpolation options to I18n layer" do
-        expect(I18n).to receive(:t)
-          .with(message_or_key, hash_including(:i18n_variable => "value"))
-          .and_return("message")
-
-        subject = adapter.failure(message_or_key,
-                                  action_class,
-                                  :i18n_variable => "value")
-
-        expect(subject).to eq("message")
-      end
-    end
-
-    context "when provided a String" do
-      let(:message_or_key) { "action failed" }
-
-      it "returns the message" do
-        expect(subject).to eq(message_or_key)
-      end
-    end
-  end
-
-  describe "#success" do
-    subject { adapter.success(message_or_key, action_class) }
-
-    context "when provided a Symbol" do
-      let(:message_or_key) { :not_found }
-
-      it "translates the message" do
-        expected_scope = "test_doubles/an_action.light_service.successes"
-
-        expect(I18n).to receive(:t)
-          .with(message_or_key, :scope => expected_scope)
-          .and_return("message")
-
-        expect(subject).to eq("message")
-      end
-
-      it "allows passing interpolation options to I18n layer" do
-        expect(I18n).to receive(:t)
-          .with(message_or_key, hash_including(:i18n_variable => "value"))
-          .and_return("message")
-
-        subject = adapter.success(message_or_key,
-                                  action_class,
-                                  :i18n_variable => "value")
-
-        expect(subject).to eq("message")
-      end
-    end
-
-    context "when provided a String" do
-      let(:message_or_key) { "action failed" }
-
-      it "returns the message" do
-        expect(subject).to eq(message_or_key)
-      end
-    end
-  end
-end

data/spec/lib/deterministic/class_mixin_spec.rb

@@ -1,24 +0,0 @@
-require 'spec_helper'
-
-describe 'Class Mixin' do
-  describe 'try' do
-    module MyApp
-      class Thing
-        include FunctionalLightService::Prelude::Result
-
-        def run
-          Success(11) >> method(:double)
-        end
-
-        def double(num)
-          Success(num * 2)
-        end
-      end
-    end
-
-    it "cleanly mixes into a class" do
-      result = MyApp::Thing.new.run
-      expect(result).to eq FunctionalLightService::Result::Success.new(22)
-    end
-  end
-end

data/spec/lib/deterministic/currify_spec.rb

@@ -1,90 +0,0 @@
-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/monad_axioms.rb

@@ -1,46 +0,0 @@
-shared_examples 'a Monad' do
-  describe 'axioms' do
-    it '1st monadic law: left-identity' do
-      f = ->(value) { monad.new(value + 1) }
-      expect(
-        monad.new(1).bind do |value|
-          f.call(value)
-        end
-      ).to eq f.call(1)
-    end
-
-    it '2nd monadic law: right-identy - new and bind do not change the value' do
-      expect(
-        monad.new(1).bind do |value|
-          monad.new(value)
-        end
-      ).to eq monad.new(1)
-    end
-
-    it '3rd monadic law: associativity' do
-      f = ->(value) { monad.new(value + 1)   }
-      g = ->(value) { monad.new(value + 100) }
-
-      id1 = monad.new(1).bind { |a| f.call(a) }.bind { |b| g.call(b) }
-
-      id2 = monad.new(1).bind do |a|
-        f.call(a).bind do |b|
-          g.call(b)
-        end
-      end
-
-      expect(id1).to eq id2
-    end
-
-    it '#bind must return a monad' do
-      expect(monad.new(1).bind { |v| monad.new(v) }).to eq monad.new(1)
-      # rubocop:disable Lint/EmptyBlock
-      expect { monad.new(1).bind {} }.to raise_error(FunctionalLightService::Monad::NotMonadError)
-      # rubocop:enable Lint/EmptyBlock
-    end
-
-    it '#new must return a monad' do
-      expect(monad.new(1)).to be_a monad
-    end
-  end
-end

data/spec/lib/deterministic/monad_spec.rb

@@ -1,47 +0,0 @@
-require 'spec_helper'
-require_relative 'monad_axioms'
-
-describe FunctionalLightService::Monad do
-  class Identity
-    include FunctionalLightService::Monad
-  end
-
-  let(:monad) { Identity }
-  it_behaves_like 'a Monad' do
-    # let(:monad) { monad }
-  end
-
-  specify { expect(Identity.new(1).inspect).to eq 'Identity(1)' }
-  specify { expect(Identity.new(1).to_s).to eq '1' }
-  specify { expect(Identity.new(nil).inspect).to eq 'Identity(nil)' }
-  specify { expect(Identity.new(nil).to_s).to eq '' }
-  specify { expect(Identity.new([1, 2]).fmap(&:to_s)).to eq Identity.new("[1, 2]") }
-  specify { expect(Identity.new(1).fmap { |v| v + 2 }).to eq Identity.new(3) }
-  specify { expect(Identity.new('foo').fmap(&:upcase)).to eq Identity.new('FOO') }
-
-  context '#bind' do
-    it "raises an error if the passed function does not return a monad of the same class" do
-      # rubocop:disable Lint/EmptyBlock
-      expect { Identity.new(1).bind {} }.to \
-        raise_error(FunctionalLightService::Monad::NotMonadError)
-      # rubocop:enable Lint/EmptyBlock
-    end
-    specify { expect(Identity.new(1).bind { |value| Identity.new(value) }).to eq Identity.new(1) }
-
-    it "passes the monad class, this is ruby-fu?!" do
-      Identity.new(1)
-              .bind do |v|
-        expect(monad).to eq Identity
-        monad.new(v)
-      end
-    end
-
-    specify do
-      expect(
-        monad.new(1).bind { |value| monad.new(value + 1) }
-      ).to eq Identity.new(2)
-    end
-  end
-  specify { expect(Identity.new(Identity.new(1))).to eq Identity.new(1) }
-end
-

data/spec/lib/deterministic/null_spec.rb

@@ -1,65 +0,0 @@
-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'/)
-  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
-    expect(Null.to_s).to eq 'Null'
-    expect(Null.inspect).to eq 'Null'
-  end
-
-  it "answer if Null is null" do
-    expect(Null.null?).to eq true
-  end
-
-  it "answer if Null is some" do
-    expect(Null.some?).to eq false
-  end
-
-  it "compares to Null" do
-    # rubocop:disable Style/CaseEquality
-    expect(Null === Null.instance).to be_truthy
-    expect(Null.instance === Null).to be_truthy
-    expect(Null.instance).to eq Null
-    expect(Null).to eq Null.instance
-    expect(1).not_to be Null
-    expect(1).not_to be Null.instance
-    expect(Null.instance).not_to be 1
-    expect(Null).not_to be 1
-    expect(Null.instance).not_to be_nil
-    expect(Null).not_to be_nil
-    # rubocop:enable Style/CaseEquality
-  end
-
-  it "implicit conversions" do
-    null = Null.instance
-    expect(null.to_str).to eq ""
-    expect(null.to_ary).to eq []
-    # rubocop:disable Style/StringConcatenation
-    expect("" + null).to eq ""
-    # rubocop:enable Style/StringConcatenation
-
-    a, b, c = null
-    expect(a).to be_nil
-    expect(b).to be_nil
-    expect(c).to be_nil
-  end
-
-  it "mimicks other classes and returns Null for their public methods" do
-    class UnderMimickTest
-      def test; end
-    end
-
-    mimick = Null.mimic(UnderMimickTest)
-    expect(mimick.test).to be_null
-    expect { mimick.i_dont_exist }.to raise_error(NoMethodError)
-  end
-end

data/spec/lib/deterministic/option_spec.rb

@@ -1,140 +0,0 @@
-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

data/spec/lib/deterministic/result/failure_spec.rb

@@ -1,65 +0,0 @@
-require 'spec_helper'
-require_relative '../monad_axioms'
-require_relative 'result_shared'
-
-describe FunctionalLightService::Result::Failure do
-  include FunctionalLightService::Prelude::Result
-
-  it_behaves_like 'a Monad' do
-    let(:monad) { described_class }
-  end
-
-  subject { described_class.new(1) }
-
-  specify { expect(subject).to be_an_instance_of described_class }
-  specify { expect(subject).to be_failure }
-  specify { expect(subject).not_to be_success }
-  specify { expect(subject.success?).to be_falsey }
-  specify { expect(subject.failure?).to be_truthy }
-
-  specify { expect(subject).to be_an_instance_of described_class }
-  specify { expect(subject).to eq(described_class.new(1)) }
-  specify { expect(subject.fmap { |v| v + 1 }).to eq Failure(2) }
-  specify { expect(subject.map { |v| Success(v + 1) }).to eq Failure(1) }
-  specify { expect(subject.map_err { |v| Success(v + 1) }).to eq Success(2) }
-  specify do
-    expect(subject.pipe { |v| raise RuntimeError unless v == Failure(1) }).to eq Failure(1)
-  end
-
-  specify { expect(subject.or(Success(2))).to eq Success(2) }
-  specify { expect(subject.or(Failure(2))).to eq Failure(2) }
-  specify { expect(subject.or_else { Success(2) }).to eq Success(2) }
-  specify { expect(subject.or_else { Failure(2) }).to eq Failure(2) }
-
-  specify { expect(subject.and(Success(2))).to eq Failure(1) }
-  specify { expect(subject.and_then { Success(2) }).to eq Failure(1) }
-
-  it_behaves_like 'Result' do
-    let(:result) { described_class }
-  end
-
-  it "#or" do
-    expect(Success(1).or(Failure(2))).to eq Success(1)
-    expect(Failure(1).or(Success(2))).to eq Success(2)
-    expect { Failure(1).or(2) }.to raise_error(FunctionalLightService::Monad::NotMonadError)
-  end
-
-  it "#or_else" do
-    expect(Success(1).or_else { Failure(2) }).to eq Success(1)
-    expect(Failure(1).or_else { |v| Success(v + 1) }).to eq Success(2)
-    expect { Failure(1).or_else { 2 } }.to raise_error(FunctionalLightService::Monad::NotMonadError)
-  end
-
-  it "#and" do
-    expect(Success(1).and(Success(2))).to eq Success(2)
-    expect(Failure(1).and(Success(2))).to eq Failure(1)
-    expect { Success(1).and(2) }.to raise_error(FunctionalLightService::Monad::NotMonadError)
-  end
-
-  it "#and_then" do
-    expect(Success(1).and_then { Success(2) }).to eq Success(2)
-    expect(Failure(1).and_then { Success(2) }).to eq Failure(1)
-    expect { Success(1).and_then { 2 } }.to \
-      raise_error(FunctionalLightService::Monad::NotMonadError)
-  end
-end