Contents

require 'spec_helper'
module Myrrha
  module Domain
    describe SByC, 'when used by extension' do

      class NegInt < Integer
        extend Myrrha::Domain::SByC.new(Integer, [], lambda{|i| i<0})
      end

      specify("#name") {
        NegInt.name.should eq("Myrrha::Domain::NegInt")
      }

      specify("#new") {
        NegInt.new(-12).should eq(-12)
        lambda {
          NegInt.new(12)
        }.should raise_error(ArgumentError)
      }

      specify("#superclass"){
        NegInt.superclass.should eql(Integer)
      }

      specify("#superdomain_of?"){
        NegInt.superdomain_of?(Object).should be_false
        NegInt.superdomain_of?(Integer).should be_false
      }

      specify("#coercions"){
        NegInt.coercions.should be_a(Myrrha::Coercions)
        NegInt.coercions.main_target_domain.should eq(NegInt)
      }

      it "should be usable in a case" do
        [-12, 12].map{|i|
          case i
          when NegInt  then :negint
          when Integer then :integer
          end
        }.should eq([:negint, :integer])
      end

    end
  end
end

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
myrrha-2.0.0	spec/domain/sbyc/test_behavior.rb