erlang-etf 1.0.0

data/spec/erlang/etf/list_spec.rb

@@ -0,0 +1,159 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::List do
+  let(:term_class) { Erlang::ETF::List }
+
+  let(:atom)          { Erlang::ETF::SmallAtom.new("test").tap(&:serialize) }
+  let(:binary)        { Erlang::ETF::Binary.new("test").tap(&:serialize) }
+  let(:new_float)     { Erlang::ETF::NewFloat.new(1.1) }
+  let(:small_integer) { Erlang::ETF::SmallInteger.new(13) }
+  let(:small_list)    { Erlang::ETF::List.new([atom, binary, new_float, small_integer]) }
+  let(:small_tuple)   { Erlang::ETF::SmallTuple.new([atom, binary, new_float, small_integer, small_list]) }
+
+  let(:erlang_nil) { Erlang::ETF::Nil.new }
+
+  describe '[class]' do
+    describe 'deserialize' do
+      let(:buffer) { StringIO.new(bytes.pack('C*')) }
+      subject { term_class.deserialize(buffer) }
+
+      context 'single improper list' do
+        let(:bytes) { [0, 0, 0, 1, 100, 0, 1, 97, 100, 0, 1, 98] }
+        let(:atom_a) { Erlang::ETF::Atom.new("a").tap(&:serialize) }
+        let(:atom_b) { Erlang::ETF::Atom.new("b").tap(&:serialize) }
+
+        it { should be_improper }
+        its(:len)      { should eq(1) }
+        its(:elements) { should eq([atom_a]) }
+        its(:tail)     { should eq(atom_b) }
+      end
+
+      context 'single proper list' do
+        let(:bytes) { [0, 0, 0, 1, 97, 13, 106] }
+
+        it { should_not be_improper }
+        its(:len)      { should eq(1) }
+        its(:elements) { should eq([small_integer]) }
+        its(:tail)     { should eq(erlang_nil) }
+      end
+
+      context 'complex improper list' do
+        let(:bytes) { [0, 0, 0, 6, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 104, 5, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106] }
+
+        it { should be_improper }
+        its(:len)      { should eq(6) }
+        its(:elements) { should eq([atom, binary, new_float, small_integer, small_tuple, small_list]) }
+        its(:tail)     { should eq(small_list) }
+      end
+
+      context 'complex proper list' do
+        let(:bytes) { [0, 0, 0, 6, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 104, 5, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106, 106] }
+
+        it { should_not be_improper }
+        its(:len)      { should eq(6) }
+        its(:elements) { should eq([atom, binary, new_float, small_integer, small_tuple, small_list]) }
+        its(:tail)     { should eq(erlang_nil) }
+      end
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(elements, tail) }
+
+    let(:atom_a) { Erlang::ETF::Atom.new("a").tap(&:serialize) }
+    let(:atom_b) { Erlang::ETF::Atom.new("b").tap(&:serialize) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      context 'single improper list' do
+        let(:bytes) { [108, 0, 0, 0, 1, 100, 0, 1, 97, 100, 0, 1, 98].pack('C*') }
+
+        let(:elements) { [atom_a] }
+        let(:tail)     { atom_b }
+
+        it { should eq(bytes) }
+      end
+
+      context 'single proper list' do
+        let(:bytes) { [108, 0, 0, 0, 1, 100, 0, 1, 97, 106].pack('C*') }
+
+        let(:elements) { [atom_a] }
+        let(:tail)     { erlang_nil }
+
+        it { should eq(bytes) }
+      end
+
+      context 'complex improper list' do
+        let(:bytes) { [108, 0, 0, 0, 6, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 104, 5, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106].pack('C*') }
+
+        let(:elements) { [atom, binary, new_float, small_integer, small_tuple, small_list] }
+        let(:tail)     { small_list }
+
+        it { should eq(bytes) }
+      end
+
+      context 'complex proper list' do
+        let(:bytes) { [108, 0, 0, 0, 6, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 104, 5, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106, 108, 0, 0, 0, 4, 115, 4, 116, 101, 115, 116, 109, 0, 0, 0, 4, 116, 101, 115, 116, 70, 63, 241, 153, 153, 153, 153, 153, 154, 97, 13, 106, 106].pack('C*') }
+
+        let(:elements) { [atom, binary, new_float, small_integer, small_tuple, small_list] }
+        let(:tail)     { erlang_nil }
+
+        it { should eq(bytes) }
+      end
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      let(:elements) { [atom_a] }
+      let(:tail)     { erlang_nil }
+      it { should eq(:list) }
+    end
+
+    describe '__ruby_evolve__' do
+      context 'single improper list' do
+        let(:ruby_obj) { ::Erlang::List[:a].tail(:b) }
+        subject { term.__ruby_evolve__ }
+
+        let(:elements) { [atom_a] }
+        let(:tail)     { atom_b }
+
+        it { should eq(ruby_obj) }
+      end
+
+      context 'single proper list' do
+        let(:ruby_obj) { [:a] }
+        subject { term.__ruby_evolve__ }
+
+        let(:elements) { [atom_a] }
+        let(:tail)     { erlang_nil }
+
+        it { should eq(ruby_obj) }
+      end
+
+      context 'complex improper list' do
+        let(:ruby_obj) { ::Erlang::List[:test, "test", 1.1, 13, ::Erlang::Tuple[:test, "test", 1.1, 13, ::Erlang::List[:test, "test", 1.1, 13]], ::Erlang::List[:test, "test", 1.1, 13]].tail(::Erlang::List[:test, "test", 1.1, 13]) }
+        subject { term.__ruby_evolve__ }
+
+        let(:elements) { [atom, binary, new_float, small_integer, small_tuple, small_list] }
+        let(:tail)     { small_list }
+
+        it { should eq(ruby_obj) }
+      end
+
+      context 'complex proper list' do
+        let(:ruby_obj) { ::Erlang::List[:test, "test", 1.1, 13, ::Erlang::Tuple[:test, "test", 1.1, 13, ::Erlang::List[:test, "test", 1.1, 13]], ::Erlang::List[:test, "test", 1.1, 13]] }
+        subject { term.__ruby_evolve__ }
+
+        let(:elements) { [atom, binary, new_float, small_integer, small_tuple, small_list] }
+        let(:tail)     { erlang_nil }
+
+        it { should eq(ruby_obj) }
+      end
+    end
+  end
+
+end

data/spec/erlang/etf/new_float_spec.rb

@@ -0,0 +1,92 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::NewFloat do
+  let(:term_class) { Erlang::ETF::NewFloat }
+
+  describe '[class]' do
+    describe 'deserialize' do
+      let(:buffer) { StringIO.new(bytes.pack('C*')) }
+      subject { term_class.deserialize(buffer) }
+
+      context 'with 2 significant digits' do
+        let(:float) { 1.1 }
+        let(:bytes) { [63, 241, 153, 153, 153, 153, 153, 154] }
+
+        its(:float) { should eq(float) }
+      end
+
+      context 'with 16 significant digits' do
+        let(:float) { 0.001122334455667789 }
+        let(:bytes) { [63, 82, 99, 105, 114, 16, 170, 24] }
+
+        its(:float) { should eq(float) }
+      end
+    end
+
+    describe 'new' do
+      subject { term_class.new(float) }
+
+      context 'with 2 significant digits' do
+        let(:float) { -1.1 }
+
+        its(:float) { should eq(float) }
+      end
+
+      context 'with 16 significant digits' do
+        let(:float) { 0.001122334455667789 }
+
+        its(:float) { should eq(float) }
+      end
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(float) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      context 'with 2 significant digits' do
+        let(:float) { -1.1 }
+        let(:bytes) { [70, 191, 241, 153, 153, 153, 153, 153, 154].pack('C*') }
+
+        it { should eq(bytes) }
+      end
+
+      context 'with 16 significant digits' do
+        let(:float) { 0.001122334455667789 }
+        let(:bytes) { [70, 63, 82, 99, 105, 114, 16, 170, 24].pack('C*') }
+
+        it { should eq(bytes) }
+      end
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      let(:float) { 1.1 }
+      it { should eq(:new_float) }
+    end
+
+    describe '__ruby_evolve__' do
+      subject { term.__ruby_evolve__ }
+
+      context 'with 2 significant digits' do
+        let(:ruby_obj) { -1.1 }
+        let(:float)    { -1.1 }
+
+        it { should eq(ruby_obj) }
+      end
+
+      context 'with 16 significant digits' do
+        let(:ruby_obj) { 0.001122334455667789 }
+        let(:float)    { 0.001122334455667789 }
+
+        it { should eq(ruby_obj) }
+      end
+    end
+  end
+
+end

data/spec/erlang/etf/new_fun_spec.rb

@@ -0,0 +1,146 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::NewFun do
+  let(:term_class) { Erlang::ETF::NewFun }
+
+  let(:arity)     { 1 }
+  let(:uniq)      { [32, 134, 155, 11, 165, 194, 128, 94, 159, 150, 25, 37, 107, 162, 125, 47] }
+  let(:index)     { 6 }
+  let(:mod)       { Erlang::ETF::Atom.new("erl_eval") }
+  let(:old_index) { Erlang::ETF::SmallInteger.new(6) }
+  let(:old_uniq)  { Erlang::ETF::Integer.new(17052888) }
+  let(:pid)       { Erlang::ETF::Pid.new(Erlang::ETF::Atom.new("nonode@nohost"), 2, 0, 0) }
+  let(:free_vars) {
+    [
+      Erlang::ETF::Nil.new,
+      Erlang::ETF::Atom.new("none"),
+      Erlang::ETF::Atom.new("none"),
+      Erlang::ETF::List.new([
+        Erlang::ETF::SmallTuple.new([
+          Erlang::ETF::Atom.new("clause"),
+          Erlang::ETF::SmallInteger.new(1),
+          Erlang::ETF::List.new([
+            Erlang::ETF::SmallTuple.new([
+              Erlang::ETF::Atom.new("atom"),
+              Erlang::ETF::SmallInteger.new(1),
+              Erlang::ETF::Atom.new("a")
+            ])
+          ]),
+          Erlang::ETF::Nil.new,
+          Erlang::ETF::List.new([
+            Erlang::ETF::SmallTuple.new([
+              Erlang::ETF::Atom.new("atom"),
+              Erlang::ETF::SmallInteger.new(1),
+              Erlang::ETF::Atom.new("true")
+            ])
+          ])
+        ]),
+        Erlang::ETF::SmallTuple.new([
+          Erlang::ETF::Atom.new("clause"),
+          Erlang::ETF::SmallInteger.new(1),
+          Erlang::ETF::List.new([
+            Erlang::ETF::SmallTuple.new([
+              Erlang::ETF::Atom.new("var"),
+              Erlang::ETF::SmallInteger.new(1),
+              Erlang::ETF::Atom.new("_")
+            ])
+          ]),
+          Erlang::ETF::Nil.new,
+          Erlang::ETF::List.new([
+            Erlang::ETF::SmallTuple.new([
+              Erlang::ETF::Atom.new("atom"),
+              Erlang::ETF::SmallInteger.new(1),
+              Erlang::ETF::Atom.new("false")
+            ])
+          ])
+        ])
+      ])
+    ]
+  }
+
+  describe '[class]' do
+    describe 'deserialize' do
+      let(:buffer) { StringIO.new(bytes.pack('C*')) }
+      subject { term_class.deserialize(buffer) }
+
+      # generated using:
+      #   erl -noshell -eval 'io:format("~w~n", [term_to_binary(fun(a) -> true; (_) -> false end)]), init:stop().'
+      #
+      let(:bytes) { [
+        0,0,0,212,1,32,134,155,11,165,194,128,94,159,150,25,37,107,162,125,
+        47,0,0,0,6,0,0,0,4,100,0,8,101,114,108,95,101,118,97,108,97,6,98,1,4,52,216,
+        103,100,0,13,110,111,110,111,100,101,64,110,111,104,111,115,116,0,0,0,2,0,0,
+        0,0,0,106,100,0,4,110,111,110,101,100,0,4,110,111,110,101,108,0,0,0,2,104,5,
+        100,0,6,99,108,97,117,115,101,97,1,108,0,0,0,1,104,3,100,0,4,97,116,111,109,
+        97,1,100,0,1,97,106,106,108,0,0,0,1,104,3,100,0,4,97,116,111,109,97,1,100,0,
+        4,116,114,117,101,106,104,5,100,0,6,99,108,97,117,115,101,97,1,108,0,0,0,1,
+        104,3,100,0,3,118,97,114,97,1,100,0,1,95,106,106,108,0,0,0,1,104,3,100,0,4,
+        97,116,111,109,97,1,100,0,5,102,97,108,115,101,106,106
+      ] }
+
+      its(:size)      { should eq(212) }
+      its(:arity)     { should eq(arity) }
+      its(:uniq)      { should eq(uniq) }
+      its(:index)     { should eq(index) }
+      its(:num_free)  { should eq(4) }
+      its(:mod)       { should eq(mod) }
+      its(:old_index) { should eq(old_index) }
+      its(:old_uniq)  { should eq(old_uniq) }
+      its(:pid)       { should eq(pid) }
+      its(:free_vars) { should eq(free_vars) }
+    end
+
+    describe 'new' do
+      subject { term_class.new(arity, uniq, index, mod, old_index, old_uniq, pid, free_vars).tap(&:serialize) }
+
+      its(:size)      { should eq(212) }
+      its(:arity)     { should eq(arity) }
+      its(:uniq)      { should eq(uniq) }
+      its(:index)     { should eq(index) }
+      its(:num_free)  { should eq(4) }
+      its(:mod)       { should eq(mod) }
+      its(:old_index) { should eq(old_index) }
+      its(:old_uniq)  { should eq(old_uniq) }
+      its(:pid)       { should eq(pid) }
+      its(:free_vars) { should eq(free_vars) }
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(arity, uniq, index, mod, old_index, old_uniq, pid, free_vars) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      let(:bytes) { [
+        112,0,0,0,212,1,32,134,155,11,165,194,128,94,159,150,25,37,107,162,125,
+        47,0,0,0,6,0,0,0,4,100,0,8,101,114,108,95,101,118,97,108,97,6,98,1,4,52,216,
+        103,100,0,13,110,111,110,111,100,101,64,110,111,104,111,115,116,0,0,0,2,0,0,
+        0,0,0,106,100,0,4,110,111,110,101,100,0,4,110,111,110,101,108,0,0,0,2,104,5,
+        100,0,6,99,108,97,117,115,101,97,1,108,0,0,0,1,104,3,100,0,4,97,116,111,109,
+        97,1,100,0,1,97,106,106,108,0,0,0,1,104,3,100,0,4,97,116,111,109,97,1,100,0,
+        4,116,114,117,101,106,104,5,100,0,6,99,108,97,117,115,101,97,1,108,0,0,0,1,
+        104,3,100,0,3,118,97,114,97,1,100,0,1,95,106,106,108,0,0,0,1,104,3,100,0,4,
+        97,116,111,109,97,1,100,0,5,102,97,108,115,101,106,106
+      ].pack('C*') }
+
+      it { should eq(bytes) }
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      it { should eq(:new_fun) }
+    end
+
+    describe '__ruby_evolve__' do
+      let(:ruby_obj) { term }
+      subject { term.__ruby_evolve__ }
+
+      it { should eq(ruby_obj) }
+    end
+  end
+
+end

data/spec/erlang/etf/new_reference_spec.rb

@@ -0,0 +1,60 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::NewReference do
+  let(:term_class) { Erlang::ETF::NewReference }
+
+  let(:node)     { Erlang::ETF::Atom.new("node@host").tap(&:serialize) }
+  let(:ids)      { [1234, 5678] }
+  let(:creation) { 1 }
+
+  describe '[class]' do
+    describe 'deserialize' do
+      let(:buffer) { StringIO.new(bytes.pack('C*')) }
+      subject { term_class.deserialize(buffer) }
+
+      let(:bytes) { [0, 2, 100, 0, 9, 110, 111, 100, 101, 64, 104, 111, 115, 116, 1, 0, 0, 4, 210, 0, 0, 22, 46] }
+
+      its(:node)     { should eq(node) }
+      its(:len)      { should eq(2) }
+      its(:creation) { should eq(creation) }
+      its(:ids)      { should eq(ids) }
+    end
+
+    describe 'new' do
+      subject { term_class.new(node, creation, ids) }
+
+      its(:node)     { should eq(node) }
+      its(:len)      { should eq(2) }
+      its(:creation) { should eq(creation) }
+      its(:ids)      { should eq(ids) }
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(node, creation, ids) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      let(:bytes) { [114, 0, 2, 100, 0, 9, 110, 111, 100, 101, 64, 104, 111, 115, 116, 1, 0, 0, 4, 210, 0, 0, 22, 46].pack('C*') }
+
+      it { should eq(bytes) }
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      it { should eq(:new_reference) }
+    end
+
+    describe '__ruby_evolve__' do
+      let(:ruby_obj) { term }
+      subject { term.__ruby_evolve__ }
+
+      it { should eq(ruby_obj) }
+    end
+  end
+
+end