tmm1-erlectricity 0.2.1

data/test/condition_spec.rb

@@ -0,0 +1,73 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+context "Erlectricity::StaticConditions" do
+  specify "should satisfy on the same value" do
+    Erlectricity::StaticCondition.new(:foo).satisfies?(:foo).should == true
+    Erlectricity::StaticCondition.new([:foo]).satisfies?([:foo]).should == true
+    Erlectricity::StaticCondition.new(3).satisfies?(3).should == true
+  end
+  
+  specify "should not satisfy on different values" do
+    Erlectricity::StaticCondition.new(:foo).satisfies?("foo").should == false
+    Erlectricity::StaticCondition.new([:foo]).satisfies?(:foo).should == false
+    Erlectricity::StaticCondition.new(Object.new).satisfies?(Object.new).should == false
+    Erlectricity::StaticCondition.new(3).satisfies?(3.0).should == false
+  end
+  
+  specify "should not produce any bindings" do
+    s = Erlectricity::StaticCondition.new(:foo)
+    s.binding_for(:foo).should == nil
+  end
+end
+
+context "Erlectricity::TypeConditions" do
+  specify "should be satisfied when the arg has the same class" do
+    Erlectricity::TypeCondition.new(Symbol).satisfies?(:foo).should == true
+    Erlectricity::TypeCondition.new(Symbol).satisfies?(:bar).should == true
+    Erlectricity::TypeCondition.new(String).satisfies?("foo").should == true
+    Erlectricity::TypeCondition.new(String).satisfies?("bar").should == true
+    Erlectricity::TypeCondition.new(Array).satisfies?([]).should == true
+    Erlectricity::TypeCondition.new(Fixnum).satisfies?(3).should == true
+  end
+  
+  specify "should be satisfied when the arg is of a descendent class" do
+    Erlectricity::TypeCondition.new(Object).satisfies?(:foo).should == true
+    Erlectricity::TypeCondition.new(Object).satisfies?("foo").should == true
+    Erlectricity::TypeCondition.new(Object).satisfies?(3).should == true
+  end
+  
+  specify "should not be satisfied when the arg is of a different class" do
+    Erlectricity::TypeCondition.new(String).satisfies?(:foo).should == false
+    Erlectricity::TypeCondition.new(Symbol).satisfies?("foo").should == false
+    Erlectricity::TypeCondition.new(Fixnum).satisfies?(3.0).should == false
+  end
+  
+  specify "should bind the arg with no transormations" do
+    s = Erlectricity::TypeCondition.new(Symbol)
+    s.binding_for(:foo).should == :foo
+    s.binding_for(:bar).should == :bar
+  end
+
+end
+
+context "Erlectricity::HashConditions" do
+  specify "should satisfy an args of the form [[key, value], [key, value]]" do
+    Erlectricity::HashCondition.new.satisfies?([[:foo, 3], [:bar, Object.new]]).should == true
+    Erlectricity::HashCondition.new.satisfies?([[:foo, 3]]).should == true
+  end
+  
+  specify "should satisfy on empty arrays" do
+    Erlectricity::HashCondition.new.satisfies?([]).should == true
+  end
+  
+  specify "should nat satisfy other args" do
+     Erlectricity::HashCondition.new.satisfies?(:foo).should == false
+     Erlectricity::HashCondition.new.satisfies?("foo").should == false
+     Erlectricity::HashCondition.new.satisfies?(3.0).should == false
+  end
+  
+  specify "should bind to a Hash" do
+    s = Erlectricity::HashCondition.new()
+    s.binding_for([[:foo, 3], [:bar, [3,4,5]]]).should == {:foo => 3, :bar => [3,4,5] }
+  end
+end

data/test/decode_spec.rb

@@ -0,0 +1,129 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+context "When unpacking from a binary stream" do
+  setup do
+  end
+  
+  specify "an erlang atom should decode to a ruby symbol" do
+    get("haha").should == :haha
+  end
+  
+  specify "an erlang number encoded as a small_int (< 255) should decode to a fixnum" do
+    get("0").should == 0
+    get("255").should == 255
+  end
+  
+  specify "an erlang number encoded as a int (signed 27-bit number) should decode to a fixnum" do
+    get("256").should == 256
+    get("#{(1 << 27) -1}").should == (1 << 27) -1
+    get("-1").should == -1
+    get("#{-(1 << 27)}").should == -(1 << 27)
+  end
+  
+  
+  specify "an erlang number encoded as a small bignum (1 byte length) should decode to fixnum if it can" do
+    get("#{(1 << 27)}").should == (1 << 27)
+    get("#{-(1 << 27) - 1}").should == -(1 << 27) - 1
+    get("#{(1 << word_length) - 1}").should == (1 << word_length) - 1
+    get("#{-(1 << word_length)}").should == -(1 << word_length)
+  end
+  
+  specify "an erlang number encoded as a small bignum (1 byte length) should decode to bignum if it can't be a fixnum" do
+    get("#{(1 << word_length)}").should == (1 << word_length)
+    get("#{-(1 << word_length) - 1}").should == -(1 << word_length) - 1
+    get("#{(1 << (255 * 8)) - 1}").should == (1 << (255 * 8)) - 1
+    get("#{-((1 << (255 * 8)) - 1)}").should == -((1 << (255 * 8)) - 1)
+  end
+  
+  
+  specify "an erlang number encoded as a big bignum (4 byte length) should decode to bignum" do
+    get("#{(1 << (255 * 8)) }").should == (1 << (255 * 8))
+    get("#{-(1 << (255 * 8))}").should == -(1 << (255 * 8))
+    get("#{(1 << (512 * 8)) }").should == (1 << (512 * 8))
+    get("#{-(1 << (512 * 8))}").should == -(1 << (512 * 8))
+  end
+  
+  specify "an erlang float should decode to a Float" do
+    get("#{1.0}").should == 1.0
+    get("#{-1.0}").should == -1.0
+    get("#{123.456}").should == 123.456
+    get("#{123.456789012345}").should == 123.456789012345
+  end
+  
+  
+  specify "an erlang reference should decode to a Reference object" do
+    ref = get("make_ref()")
+    ref.should.be.instance_of Erlectricity::NewReference
+    ref.node.should.be.instance_of Symbol
+  end
+  
+  specify "an erlang pid should decode to a Pid object" do
+    pid = get("spawn(fun() -> 3 end)")
+    pid.should.be.instance_of Erlectricity::Pid
+    pid.node.should.be.instance_of Symbol
+  end
+  
+  
+  specify "an erlang tuple encoded as a small tuple (1-byte length) should decode to an array" do
+    ref = get("{3}")
+    ref.length.should == 1
+    ref.first.should == 3
+  
+    ref = get("{3, a, make_ref()}")
+    ref.length.should == 3
+    ref[0].should == 3
+    ref[1].should == :a
+    ref[2].class.should == Erlectricity::NewReference
+  
+    tuple_meat = (['3'] * 255).join(', ')
+    ref = get("{#{tuple_meat}}")
+    ref.length.should == 255
+    ref.each{|r| r.should == 3}
+  end
+  
+  
+  specify "an erlang tuple encoded as a large tuple (4-byte length) should decode to an array" do
+    tuple_meat = (['3'] * 256).join(', ')
+    ref = get("{#{tuple_meat}}")
+    ref.length.should == 256
+    ref.each{|r| r.should == 3}
+    
+    tuple_meat = (['3'] * 512).join(', ')
+    ref = get("{#{tuple_meat}}")
+    ref.length.should == 512
+    ref.each{|r| r.should == 3}
+  end
+  
+  
+  specify "an empty erlang list encoded as a nil should decode to an array" do
+    get("[]").should == []
+  end
+  
+  specify "an erlang list encoded as a string should decode to an array of bytes (less than ideal, but consistent)" do
+    get("\"asdasd\"").should == "asdasd".split('').map{|c| c[0]}
+    get("\"#{'a' * 65534}\"").should == ['a'[0]] * 65534
+  end
+  
+  specify "an erlang list encoded as a list should decode to a array" do
+    get("[3,4,256]").should == [3,4,256]
+    get("\"#{'a' * 65535 }\"").should == [97] * 65535
+    get("[3,4, foo, {3,4,5,bar}, 256]").should == [3,4, :foo, [3,4,5,:bar], 256]
+  end
+  
+  
+  specify "an erlang binary should decode to a string" do
+    get("<< 3,4,255 >>").should == "\003\004\377"
+    get("<< \"whatup\" >>").should == "whatup"
+  end
+  
+  specify "a good thing should be awesome" do
+    get(%Q-[{options,{struct,[{test,<<"I'm chargin' mah lazer">>}]}},{passage,<<"Why doesn't this work?">>}]-).should ==
+    [[:options, [:struct, [[:test, "I'm chargin' mah lazer"]]]], [:passage, "Why doesn't this work?"]]
+  end
+  
+  def get(str)
+    x = "term_to_binary(#{str.gsub(/"/, '\\\"')})"
+    bin = run_erl(x)
+    Erlectricity::Decoder.read_any_from(bin)
+  end
+end

data/test/encode_spec.rb

@@ -0,0 +1,132 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+context "When packing to a binary stream" do
+  setup do
+    @out = StringIO.new('', 'w')
+    @encoder = Erlectricity::Encoder.new(@out)
+  end
+  specify "A symbol should be encoded to an erlang atom" do
+    get{@encoder.write_symbol :haha}.should == get_erl("haha")
+    write_any(:haha).should == get_erl_with_magic("haha")
+  end
+  
+  specify "A number should be encoded as an erlang number would be" do
+    
+    #SMALL_INTS
+    get{@encoder.write_fixnum 0}.should == get_erl("0")
+    get{@encoder.write_fixnum 255}.should == get_erl("255")
+    write_any(0).should == get_erl_with_magic("0")
+    write_any(255).should == get_erl_with_magic("255")
+    
+    #INTS
+    get{@encoder.write_fixnum 256}.should == get_erl("256")
+    get{@encoder.write_fixnum((1 << 27) - 1)}.should == get_erl("#{(1 << 27) - 1}")
+    get{@encoder.write_fixnum(-1)}.should == get_erl("-1")
+    get{@encoder.write_fixnum(-(1 << 27))}.should == get_erl("#{-(1 << 27)}")
+    write_any(256).should == get_erl_with_magic("256")
+    write_any((1 << 27) - 1).should == get_erl_with_magic("#{(1 << 27) - 1}")
+    write_any(-1).should == get_erl_with_magic("-1")
+    write_any(-(1 << 27)).should == get_erl_with_magic("#{-(1 << 27)}")
+    
+    # #SMALL_BIGNUMS
+    # get{@encoder.write_fixnum((1 << word_length))}.should == get_erl("#{(1 << word_length)}")
+    # get{@encoder.write_fixnum(-(1 << word_length) - 1)}.should == get_erl("#{-(1 << word_length) - 1}")
+    # get{@encoder.write_fixnum((1 << (255 * 8)) - 1)}.should == get_erl("#{(1 << (255 * 8)) - 1}")
+    # get{@encoder.write_fixnum(-((1 << (255 * 8)) - 1))}.should == get_erl("#{-((1 << (255 * 8)) - 1)}")
+    # 
+    # write_any((1 << word_length)).should == get_erl_with_magic("#{(1 << word_length)}")
+    # write_any(-(1 << word_length) - 1).should == get_erl_with_magic("#{-(1 << word_length) - 1}")
+    # write_any((1 << (255 * 8)) - 1).should == get_erl_with_magic("#{(1 << (255 * 8)) - 1}")
+    # write_any(-((1 << (255 * 8)) - 1)).should == get_erl_with_magic("#{-((1 << (255 * 8)) - 1)}")
+    # 
+    # #LARG_BIGNUMS
+    # get{@encoder.write_fixnum((1 << (255 * 8)))}.should == get_erl("#{(1 << (255 * 8))}")
+    # get{@encoder.write_fixnum(-(1 << (255 * 8))}.should == get_erl("#{-(1 << (255 * 8)}")
+    # get{@encoder.write_fixnum((1 << (512 * 8))}.should == get_erl("#{(1 << (512 * 8))}")
+    # get{@encoder.write_fixnum(-((1 << (512 * 8)) - 1))}.should == get_erl("#{-((1 << (512 * 8)) - 1)}")
+    # 
+    # write_any((1 << (255 * 8))).should == get_erl_with_magic("#{(1 << (255 * 8))}")
+    # write_any(-(1 << (255 * 8)).should == get_erl_with_magic("#{-(1 << (255 * 8)}")
+    # write_any((1 << (512 * 8))).should == get_erl_with_magic("#{(1 << (512 * 8))}")
+    # write_any(-((1 << (512 * 8)) - 1)).should == get_erl_with_magic("#{-((1 << (512 * 8)) - 1)}")
+  end
+  
+  # specify "A float (that is within the truncated precision of ruby compared to erlang) should encode as erlang does" do
+  #   get{@encoder.write_float 1.0}.should == get_erl("1.0")
+  #   get{@encoder.write_float -1.0}.should == get_erl("-1.0")
+  #   get{@encoder.write_float 123.456}.should == get_erl("123.456")
+  #   get{@encoder.write_float 123.456789012345}.should == get_erl("123.456789012345")
+  # end
+  
+  specify "An Erlectiricity::NewReference should encode back to its original form" do
+    ref_bin = run_erl("term_to_binary(make_ref())")
+    ruby_ref = Erlectricity::Decoder.read_any_from(ref_bin)
+    
+    get{@encoder.write_new_reference(ruby_ref)}.should == ref_bin[1..-1]
+    write_any(ruby_ref).should == ref_bin
+  end
+  
+  specify "An Erlectiricity::Pid should encode back to its original form" do
+    pid_bin = run_erl("term_to_binary(spawn(fun() -> 3 end))")
+    ruby_pid = Erlectricity::Decoder.read_any_from(pid_bin)
+    
+    get{@encoder.write_pid(ruby_pid)}.should == pid_bin[1..-1]
+    write_any(ruby_pid).should == pid_bin
+  end
+  
+  specify "An array written with write_tuple should encode as erlang would a tuple" do
+    get{@encoder.write_tuple [1,2,3]}.should == get_erl("{1,2,3}")
+    get{@encoder.write_tuple [3] * 255}.should == get_erl("{#{([3] * 255).join(',')}}")
+    get{@encoder.write_tuple [3] * 256}.should == get_erl("{#{([3] * 256).join(',')}}")
+    get{@encoder.write_tuple [3] * 512}.should == get_erl("{#{([3] * 512).join(',')}}")
+  end
+  
+  specify "An array should by default be written as a tuple" do
+    write_any([1,2,3]).should == get_erl_with_magic("{1,2,3}")
+    write_any([3] * 255).should == get_erl_with_magic("{#{([3] * 255).join(',')}}")
+    write_any([3] * 256).should == get_erl_with_magic("{#{([3] * 256).join(',')}}")
+    write_any([3] * 512).should == get_erl_with_magic("{#{([3] * 512).join(',')}}")
+  end
+  
+  specify "An Erlectricity::List should by default be written as a list" do
+    write_any(Erl::List.new([1,2,300])).should == get_erl_with_magic("[1,2,300]")
+    write_any(Erl::List.new([300] * 255)).should == get_erl_with_magic("[#{([300] * 255).join(',')}]")
+    write_any(Erl::List.new([300] * 256)).should == get_erl_with_magic("[#{([300] * 256).join(',')}]")
+    write_any(Erl::List.new([300] * 512)).should == get_erl_with_magic("[#{([300] * 512).join(',')}]")
+  end
+  
+  specify "An array written with write_list should encode as erlang would a list" do
+    get{@encoder.write_list [1,2,300]}.should == get_erl("[1,2,300]")
+    get{@encoder.write_list [300] * 255}.should == get_erl("[#{([300] * 255).join(',')}]")
+    get{@encoder.write_list [300] * 256}.should == get_erl("[#{([300] * 256).join(',')}]")
+    get{@encoder.write_list [300] * 512}.should == get_erl("[#{([300] * 512).join(',')}]")
+  end
+  
+  specify "a string should be encoded as a erlang binary would be" do
+    get{@encoder.write_binary "hey who"}.should == get_erl("<< \"hey who\" >>")
+    get{@encoder.write_binary ""}.should == get_erl("<< \"\" >>")
+    
+    write_any("hey who").should == get_erl_with_magic("<< \"hey who\" >>")
+    write_any("").should == get_erl_with_magic("<< \"\" >>")
+  end
+  
+  def get
+    @encoder.out = StringIO.new('', 'w')
+    yield
+    @encoder.out.string
+  end
+  
+  def write_any(term)
+    @encoder.out = StringIO.new('', 'w')
+    @encoder.write_any term
+    @encoder.out.string
+  end
+  
+  def get_erl(str)
+    get_erl_with_magic(str)[1..-1] #[1..-1] to chop off the magic number
+  end
+  
+  def get_erl_with_magic(str)
+    run_erl("term_to_binary(#{str.gsub(/"/, '\\\"')})")
+  end
+end

data/test/matcher_spec.rb

@@ -0,0 +1,69 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+def false_match(matcher, arg)
+   matcher.matches?(arg).should == false
+end
+
+context "A matcher whose condition is Symbol (the class object)" do
+  setup do
+    @matcher = Erlectricity::Matcher.new(nil, Erlectricity::TypeCondition.new(Symbol), nil)
+  end
+  
+  specify "should match any symbol" do
+    @matcher.matches?(:foo).should == true
+    @matcher.matches?(:bar).should == true
+    @matcher.matches?(:baz).should == true
+  end
+  
+  specify "should not match strings" do
+    @matcher.matches?("foo").should == false
+    @matcher.matches?("bar").should == false
+    @matcher.matches?("baz").should == false
+  end
+  
+  specify "should not match a arrays" do
+    @matcher.matches?([:foo]).should == false
+    @matcher.matches?([:foo, :bar]).should == false
+    @matcher.matches?([:foo, :bar, :baz]).should == false
+  end
+end
+
+context "a matcher whose condition is a symbol" do
+  setup do
+    @matcher = Erlectricity::Matcher.new(nil, Erlectricity::StaticCondition.new(:foo), nil)
+  end
+  
+  specify "should match that symbol" do
+    @matcher.matches?(:foo).should == true
+  end
+  
+  specify "should not match any other symbol" do
+    @matcher.matches?(:bar).should == false
+    @matcher.matches?(:baz).should == false
+  end
+end
+
+context "a matcher whose matcher is an array" do
+  setup do
+  end
+  
+  specify "should match if all of its children match" do
+    Erlectricity::Matcher.new(nil, [Erlectricity::StaticCondition.new(:speak), Erlectricity::TypeCondition.new(Object)], nil).matches?([:paste, "haha"]).should == false
+    
+    matcher = Erlectricity::Matcher.new(nil, [Erlectricity::StaticCondition.new(:foo), Erlectricity::StaticCondition.new(:bar)], nil)
+    matcher.matches?([:foo, :bar]).should == true
+  end
+  
+  specify "should not match any of its children dont match" do
+    matcher = Erlectricity::Matcher.new(nil, [Erlectricity::StaticCondition.new(:foo), Erlectricity::StaticCondition.new(:bar)], nil)
+    matcher.matches?([:foo]).should == false
+    matcher.matches?([:foo, :bar, :baz]).should == false
+    matcher.matches?([:fooo, :barr]).should == false
+    matcher.matches?([3, :bar]).should == false
+  end
+  
+  specify "should not match if arg isn't an array" do
+    matcher = Erlectricity::Matcher.new(nil, [Erlectricity::StaticCondition.new(:foo), Erlectricity::StaticCondition.new(:bar)], nil)
+    matcher.matches?(:foo).should == false
+  end
+end

data/test/port_spec.rb

@@ -0,0 +1,35 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+context "A port" do
+  specify "should return terms from the queue if it is not empty" do
+    port = FakePort.new()
+    port.queue.clear
+    port.queue << :foo << :bar
+    port.receive.should == :foo
+    port.receive.should == :bar
+    port.receive.should == nil
+  end
+  
+  specify "should read_from_input if the queue gets empty" do
+    port = FakePort.new(:bar)
+    port.queue.clear
+    port.queue << :foo
+    port.receive.should == :foo
+    port.receive.should == :bar
+    port.receive.should == nil
+  end
+  
+  specify "should put the terms in skipped at the front of queue when restore_skipped is called" do
+    port = FakePort.new(:baz)
+    port.queue.clear
+    port.queue << :bar
+    port.skipped << :foo
+    port.restore_skipped
+    
+    port.receive.should == :foo
+    port.receive.should == :bar
+    port.receive.should == :baz
+    port.receive.should == nil
+    
+  end
+end

data/test/receiver_spec.rb

@@ -0,0 +1,105 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+def simple_receiver_and_port(*terms, &block)
+  port = FakePort.new(*terms)
+  receiver = if block
+      Erlectricity::Receiver.new(port, &block)
+    else
+      Erlectricity::Receiver.new(port) do |f|
+        f.when Erl.any do
+          :matched
+        end
+      end
+    end
+end
+
+
+context "When a receiver is passed a message that matches two match blocks it" do
+  setup do
+    @port = FakePort.new([:foo, :foo])
+    @receiver = Erlectricity::Receiver.new(@port) do |f|
+      f.when(:foo, :foo) do
+        :first
+      end
+      
+      f.when(:foo, Erl.any) do
+        :second
+      end
+    end
+  end
+  
+  specify "should run the first matching receiver's block" do
+    @receiver.run.should == :first
+  end
+end
+
+context "A receiver" do
+  specify "should return the result of the match block when finished" do
+    simple_receiver_and_port(:foo).run.should == :matched
+    simple_receiver_and_port(:bar).run.should == :matched
+    simple_receiver_and_port(:bar, :baz).run.should == :matched
+  end
+  
+  specify "should process another message if the matched block returns the results of receive_loop" do
+    recv = simple_receiver_and_port(:foo, :bar, :baz) do |f|
+      f.when(:bar) {  }
+      f.when(Erl.any) { f.receive_loop }
+    end
+    
+    recv.run
+    recv.port.terms.should == [:baz]
+  end
+  
+  specify "should properly nest" do
+    @port = FakePort.new(:foo, :bar, :baz)
+    @receiver = Erlectricity::Receiver.new(@port) do |f|
+      f.when(:foo) do
+        f.receive do |g|
+          g.when(:bar){ :ok }
+        end
+        f.receive_loop  
+      end
+      
+      f.when(:baz) do
+        :done
+      end
+    end
+    
+    @receiver.run.should == :done
+    @port.terms.should == []
+  end
+  
+  specify "should queue up skipped results and restore them when a match happens" do
+    @port = FakePort.new(:foo, :baz, :bar)
+    @receiver = Erlectricity::Receiver.new(@port) do |f|
+      f.when(:foo) do
+        f.receive do |g|
+          g.when(:bar){ :ok }
+        end
+        f.receive_loop  
+      end
+      
+      f.when(:baz) do
+        :done
+      end
+    end
+    
+    @receiver.run.should == :done
+    @port.terms.should == []  
+  end
+  
+  specify "should expose bindings to the matched block" do
+    @port = FakePort.new(:foo, :bar, :baz)
+    results = []
+    @receiver = Erlectricity::Receiver.new(@port) do |f|
+      f.when(Erl.atom) do |bindinated|
+        results << bindinated
+        f.receive_loop  
+      end
+    end
+    
+    @receiver.run.should == nil
+    results.should == [:foo, :bar, :baz]
+  end
+
+end