switchyard 7.0.0

data/spec/examples/amount_spec.rb

@@ -0,0 +1,77 @@
+require 'spec_helper'
+require 'switchyard/functional/enum'
+
+Amount = Switchyard.enum do
+  Due(:amount)
+  Paid(:amount)
+  Info(:amount)
+end
+
+class Amount
+  def self.from_f(f)
+    f >= 0 ? Amount::Due.new(f) : Amount::Paid.new(-1 * f)
+  end
+end
+
+Switchyard.impl(Amount) do
+  def to_s
+    match do
+      Due()  { |a| format("%0.2f", a) }
+      Paid() { |a| format("-%0.2f", a) }
+      Info() { |a| format("(%0.2f)", a) }
+    end
+  end
+
+  def to_f
+    match do
+      Info() { |_a| 0 }
+      Due()  { |a| a }
+      Paid() { |a| -1 * a }
+    end
+  end
+
+  def +(other)
+    raise TypeError "Expected other to be an Amount, got #{other.class}" unless other.is_a? Amount
+
+    Amount.from_f(to_f + other.to_f)
+  end
+end
+
+describe Amount do
+  # rubocop:disable Naming/MethodName
+  def Due(a)
+    Amount::Due.new(a)
+  end
+
+  def Paid(a)
+    Amount::Paid.new(a)
+  end
+
+  def Info(a)
+    Amount::Info.new(a)
+  end
+  # rubocop:enable Naming/MethodName
+
+  it "due" do
+    amount = Amount::Due.new(100.2)
+    expect(amount.to_s).to eq "100.20"
+  end
+
+  it "paid" do
+    amount = Amount::Paid.new(100.1)
+    expect(amount.to_s).to eq "-100.10"
+  end
+
+  it "paid" do
+    amount = Amount::Info.new(100.31)
+    expect(amount.to_s).to eq "(100.31)"
+  end
+
+  it "+" do
+    expect(Due(10) + Paid(20)).to eq Paid(10)
+    expect(Due(10) + Paid(10)).to eq Due(0)
+    expect(Due(10) + Due(10)).to eq Due(20)
+    expect(Paid(10) + Paid(10)).to eq Paid(20)
+    expect(Paid(10) + Due(1) + Info(99)).to eq Paid(9)
+  end
+end

data/spec/examples/controller_spec.rb

@@ -0,0 +1,63 @@
+require 'spec_helper'
+
+module Switchyard
+  module Procify
+    def py(m, *args)
+      args.any? ? method(m).to_proc.curry[*args] : method(m)
+    end
+  end
+end
+
+class BookingController
+  include Switchyard::Prelude::Result
+  include Switchyard::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

@@ -0,0 +1,38 @@
+require 'spec_helper'
+
+# A Unit of Work for validating an address
+module ValidateAddress
+  extend Switchyard::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 Switchyard
+
+  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 Switchyard::Result::Success }
+    specify { expect(subject.value).to eq candidate }
+  end
+
+  context 'empty data' do
+    let(:candidate) { {} }
+    specify { expect(subject).to be_a Switchyard::Result::Failure }
+    specify { expect(subject.value).to include(:street, :city, :postal) }
+  end
+end

data/spec/i18n_localization_adapter_spec.rb

@@ -0,0 +1,83 @@
+require "spec_helper"
+require 'test_doubles'
+
+describe Switchyard::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.switchyard.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.switchyard.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

@@ -0,0 +1,24 @@
+require 'spec_helper'
+
+describe 'Class Mixin' do
+  describe 'try' do
+    module MyApp
+      class Thing
+        include Switchyard::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 Switchyard::Result::Success.new(22)
+    end
+  end
+end

data/spec/lib/deterministic/currify_spec.rb

@@ -0,0 +1,90 @@
+require 'spec_helper'
+require 'pry'
+
+module Switchyard
+  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 Switchyard::Currify
+  include Switchyard::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 Switchyard::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 = Switchyard::Result::Success.new("rendered in html: #{rendered_params}")
+    expect(actual).to eq expected
+  end
+end

data/spec/lib/deterministic/monad_axioms.rb

@@ -0,0 +1,46 @@
+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(Switchyard::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

@@ -0,0 +1,47 @@
+require 'spec_helper'
+require_relative 'monad_axioms'
+
+describe Switchyard::Monad do
+  class Identity
+    include Switchyard::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(Switchyard::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

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

@@ -0,0 +1,140 @@
+require 'spec_helper'
+
+include Switchyard::Prelude::Option
+
+describe Switchyard::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 Switchyard::Option::Some do
+  it_behaves_like 'a Monad' do
+    let(:monad) { described_class }
+  end
+end