erlectricity-funbox 1.1.2

data/test/encode_spec.rb

@@ -0,0 +1,146 @@
+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 boolean should be encoded to an erlang atom" do
+    get{@encoder.write_boolean true}.should == get_erl("true")
+    get{@encoder.write_boolean false}.should == get_erl("false")
+    write_any(true).should == get_erl_with_magic("true")
+    write_any(false).should == get_erl_with_magic("false")
+  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(10_000_000_000_000_000_000)}.should == get_erl("10000000000000000000")
+    get{@encoder.write_fixnum(1254976067)}.should == get_erl("1254976067")
+    get{@encoder.write_fixnum(-1254976067)}.should == get_erl("-1254976067")
+    # 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)}")
+    #
+    # #LARGE_BIGNUMS
+    x = 1254976067 ** 256
+    get{@encoder.write_fixnum(x)}.should == get_erl("#{x}")
+    get{@encoder.write_fixnum(-x)}.should == get_erl("-#{x}")
+    # 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.decode(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.decode(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("<< \"\" >>")
+    get{@encoder.write_binary "c\000c"}.should == get_erl("<< 99,0,99 >>")
+
+    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,81 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+def false_match(matcher, arg)
+   matcher.matches?(arg).should == false
+end
+
+context "A matcher whose condition is a String (the class object" do
+  setup do
+    @matcher = Erlectricity::Matcher.new(nil, Erlectricity::TypeCondition.new(String), nil)
+  end
+
+  specify "should match any string" do
+    @matcher.matches?("foo").should == true
+  end
+
+  specify "should not match symbols" do
+    @matcher.matches?(:foo).should == false
+  end
+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
+
+  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,34 @@
+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,103 @@
+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

data/test/spec_suite.rb

@@ -0,0 +1,2 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+Dir[File.dirname(__FILE__) + '/*_spec.rb'].each{ |f| require f}

data/test/test_helper.rb

@@ -0,0 +1,46 @@
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+
+require 'erlectricity'
+require 'rubygems'
+require 'test/unit'
+require 'test/spec'
+require 'stringio'
+
+$stdout.sync = true
+
+class Test::Unit::TestCase
+  def run_erl(code)
+    cmd = %Q{erl -noshell -eval "A = #{code.split.join(' ')}, io:put_chars(binary_to_list(A))." -s erlang halt}
+    `#{cmd}`
+  end
+
+  def encode_packet(code)
+    bin = run_erl("term_to_binary(#{code})")
+    [bin.length, bin].pack("Na#{bin.length}")
+  end
+
+  def word_length
+    (1.size * 8) - 2
+  end
+end
+
+class FakePort < Erlectricity::Port
+  attr_reader :sent
+  attr_reader :terms
+
+  def initialize(*terms)
+    @terms = terms
+    @sent = []
+    super(StringIO.new(""), StringIO.new(""))
+  end
+
+  def send(term)
+    sent << term
+  end
+
+  private
+
+  def read_from_input
+    @terms.shift
+  end
+end

metadata

@@ -0,0 +1,116 @@
+--- !ruby/object:Gem::Specification
+name: erlectricity-funbox
+version: !ruby/object:Gem::Version
+  version: 1.1.2
+  prerelease: 
+platform: ruby
+authors:
+- Scott Fleckenstein
+- Tom Preston-Werner
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2009-10-28 00:00:00.000000000 Z
+dependencies: []
+description: 
+email: tom@mojombo.com
+executables: []
+extensions:
+- ext/extconf.rb
+extra_rdoc_files:
+- LICENSE
+- README.md
+files:
+- .gitignore
+- History.txt
+- LICENSE
+- README.md
+- Rakefile
+- VERSION.yml
+- benchmarks/bench.rb
+- erlectricity.gemspec
+- examples/echo/README.md
+- examples/echo/echo.erl
+- examples/echo/echo.rb
+- examples/gruff/gruff.erl
+- examples/gruff/gruff_provider.rb
+- examples/gruff/gruff_run.sh
+- examples/gruff/stat_run.sh
+- examples/gruff/stat_writer.erl
+- examples/simple/README.md
+- examples/simple/rerl.rb
+- examples/simple/rerl.sh
+- examples/tinderl/README.md
+- examples/tinderl/tinderl.erl
+- examples/tinderl/tinderl.rb
+- ext/decoder.c
+- ext/extconf.rb
+- lib/erlectricity.rb
+- lib/erlectricity/condition.rb
+- lib/erlectricity/conditions/boolean.rb
+- lib/erlectricity/conditions/hash.rb
+- lib/erlectricity/conditions/static.rb
+- lib/erlectricity/conditions/type.rb
+- lib/erlectricity/constants.rb
+- lib/erlectricity/decoder.rb
+- lib/erlectricity/encoder.rb
+- lib/erlectricity/errors/decode_error.rb
+- lib/erlectricity/errors/encode_error.rb
+- lib/erlectricity/errors/erlectricity_error.rb
+- lib/erlectricity/matcher.rb
+- lib/erlectricity/port.rb
+- lib/erlectricity/receiver.rb
+- lib/erlectricity/types/function.rb
+- lib/erlectricity/types/list.rb
+- lib/erlectricity/types/new_function.rb
+- lib/erlectricity/types/new_reference.rb
+- lib/erlectricity/types/pid.rb
+- lib/erlectricity/types/reference.rb
+- lib/erlectricity/version.rb
+- test/condition_spec.rb
+- test/decode_spec.rb
+- test/encode_spec.rb
+- test/matcher_spec.rb
+- test/port_spec.rb
+- test/receiver_spec.rb
+- test/spec_suite.rb
+- test/test_helper.rb
+homepage: http://github.com/mojombo/erlectricity
+licenses: []
+post_install_message: 
+rdoc_options:
+- --charset=UTF-8
+require_paths:
+- lib
+- ext
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: erlectricity
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: A library to interface erlang and ruby through the erlang port system
+test_files:
+- test/condition_spec.rb
+- test/decode_spec.rb
+- test/encode_spec.rb
+- test/matcher_spec.rb
+- test/port_spec.rb
+- test/receiver_spec.rb
+- test/spec_suite.rb
+- test/test_helper.rb
+- examples/echo/echo.rb
+- examples/gruff/gruff_provider.rb
+- examples/simple/rerl.rb
+- examples/tinderl/tinderl.rb