erlang-etf 1.0.0

data/spec/erlang/etf/extensions/time_spec.rb

@@ -0,0 +1,32 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::Extensions::Time do
+  let(:klass) { ::Time }
+
+  describe '[instance]' do
+    let(:instance) { klass.at(1363190400) }
+
+    describe '__erlang_type__' do
+      subject { instance.__erlang_type__ }
+
+      it { should eq(:bert_time) }
+    end
+
+    describe '__erlang_evolve__' do
+      subject { instance.__erlang_evolve__ }
+
+      it { should eq(
+        Erlang::ETF::SmallTuple.new([
+          Erlang::ETF::SmallAtom.new("bert"),
+          Erlang::ETF::SmallAtom.new("time"),
+          Erlang::ETF::Integer.new(1363),
+          Erlang::ETF::Integer.new(190400),
+          Erlang::ETF::SmallInteger.new(0)
+        ])
+      ) }
+    end
+  end
+
+end

data/spec/erlang/etf/extensions/true_class_spec.rb

@@ -0,0 +1,29 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::Extensions::TrueClass do
+  let(:klass) { ::TrueClass }
+
+  describe '[instance]' do
+    let(:instance) { true }
+
+    describe '__erlang_type__' do
+      subject { instance.__erlang_type__ }
+
+      it { should eq(:bert_boolean) }
+    end
+
+    describe '__erlang_evolve__' do
+      subject { instance.__erlang_evolve__ }
+
+      it { should eq(
+        Erlang::ETF::SmallTuple.new([
+          Erlang::ETF::SmallAtom.new("bert"),
+          Erlang::ETF::SmallAtom.new("true")
+        ])
+      ) }
+    end
+  end
+
+end

data/spec/erlang/etf/float_spec.rb

@@ -0,0 +1,92 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::Float do
+  let(:term_class) { Erlang::ETF::Float }
+
+  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_string) { "1.10000000000000000000e+00\0\0\0\0\0" }
+        let(:bytes) { [49, 46, 49, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 101, 43, 48, 48, 0, 0, 0, 0, 0] }
+
+        its(:float_string) { should eq(float_string) }
+      end
+
+      context 'with 21 significant digits' do
+        let(:float_string) { "1.12233445566778899001e-03\0\0\0\0\0" }
+        let(:bytes) { [49, 46, 49, 50, 50, 51, 51, 52, 52, 53, 53, 54, 54, 55, 55, 56, 56, 57, 57, 48, 48, 49, 101, 45, 48, 51, 0, 0, 0, 0, 0] }
+
+        its(:float_string) { should eq(float_string) }
+      end
+    end
+
+    describe 'new' do
+      subject { term_class.new(float_string) }
+
+      context 'with 2 significant digits as BigDecimal' do
+        let(:float_string) { BigDecimal.new("-1.1") }
+
+        its(:float_string) { should eq(float_string) }
+      end
+
+      context 'with 21 significant digits as String' do
+        let(:float_string) { "1.12233445566778899001e-03\0\0\0\0\0" }
+
+        its(:float_string) { should eq(float_string) }
+      end
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(float_string) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      context 'with 2 significant digits as BigDecimal' do
+        let(:float_string) { BigDecimal.new("-1.1") }
+        let(:bytes) { [99, 45, 49, 46, 49, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 56, 56, 56, 50, 101, 43, 48, 48, 0, 0, 0, 0].pack('C*') }
+
+        it { should eq(bytes) }
+      end
+
+      context 'with 21 significant digits as String' do
+        let(:float_string) { "1.12233445566778899001e-03\0\0\0\0\0" }
+        let(:bytes) { [99, 49, 46, 49, 50, 50, 51, 51, 52, 52, 53, 53, 54, 54, 55, 55, 56, 56, 57, 57, 48, 48, 49, 101, 45, 48, 51, 0, 0, 0, 0, 0].pack('C*') }
+
+        it { should eq(bytes) }
+      end
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      let(:float_string) { BigDecimal.new("1.1") }
+      it { should eq(:float) }
+    end
+
+    describe '__ruby_evolve__' do
+      subject { term.__ruby_evolve__ }
+
+      context 'with 2 significant digits as BigDecimal' do
+        let(:ruby_obj)     { BigDecimal.new("1.1") }
+        let(:float_string) { BigDecimal.new("1.1") }
+
+        it { should eq(ruby_obj) }
+      end
+
+      context 'with 21 significant digits as String' do
+        let(:ruby_obj)     { BigDecimal.new("0.00112233445566778899001") }
+        let(:float_string) { "1.12233445566778899001e-03\0\0\0\0\0" }
+
+        it { should eq(ruby_obj) }
+      end
+    end
+  end
+
+end

data/spec/erlang/etf/fun_spec.rb

@@ -0,0 +1,132 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::Fun do
+  let(:term_class) { Erlang::ETF::Fun }
+
+  let(:pid)       { Erlang::ETF::Pid.new(Erlang::ETF::Atom.new("nonode@nohost"), 2, 0, 0) }
+  let(:mod)       { Erlang::ETF::Atom.new("erl_eval") }
+  let(:index)     { Erlang::ETF::SmallInteger.new(6) }
+  let(:uniq)      { Erlang::ETF::Integer.new(17052888) }
+  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) }
+
+      # this has actually been deprecated since R10B, but here's the spec anyway
+      #
+      let(:bytes) { [
+        0,4,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,100,0,8,101,114,108,95,101,118,97,108,97,6,98,1,4,52,216,
+        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(:num_free)  { should eq(4) }
+      its(:pid)       { should eq(pid) }
+      its(:mod)       { should eq(mod) }
+      its(:index)     { should eq(index) }
+      its(:uniq)      { should eq(uniq) }
+      its(:free_vars) { should eq(free_vars) }
+    end
+
+    describe 'new' do
+      subject { term_class.new(pid, mod, index, uniq, free_vars) }
+
+      its(:num_free)  { should eq(4) }
+      its(:pid)       { should eq(pid) }
+      its(:mod)       { should eq(mod) }
+      its(:index)     { should eq(index) }
+      its(:uniq)      { should eq(uniq) }
+      its(:free_vars) { should eq(free_vars) }
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(pid, mod, index, uniq, free_vars) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      let(:bytes) { [
+        117,0,4,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,100,0,8,101,114,108,95,101,118,97,108,97,6,98,1,4,52,216,
+        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(: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/integer_spec.rb

@@ -0,0 +1,57 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::Integer do
+  let(:term_class) { Erlang::ETF::Integer }
+
+  describe '[class]' do
+    describe 'deserialize' do
+      let(:buffer) { StringIO.new(bytes.pack('C*')) }
+      subject { term_class.deserialize(buffer) }
+
+      let(:int) { 3_13_1988 }
+      let(:bytes) { [0, 47, 202, 84] }
+
+      its(:int) { should eq(int) }
+    end
+
+    describe 'new' do
+      subject { term_class.new(int) }
+
+      let(:int) { 3_13_1988 }
+
+      its(:int) { should eq(int) }
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(int) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      let(:int) { 3_13_1988 }
+      let(:bytes) { [98, 0, 47, 202, 84].pack('C*') }
+
+      it { should eq(bytes) }
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      let(:int) { 3_13_1988 }
+      it { should eq(:integer) }
+    end
+
+    describe '__ruby_evolve__' do
+      subject { term.__ruby_evolve__ }
+
+      let(:ruby_obj) { 3_13_1988 }
+      let(:int)      { 3_13_1988 }
+
+      it { should eq(ruby_obj) }
+    end
+  end
+
+end

data/spec/erlang/etf/large_big_spec.rb

@@ -0,0 +1,67 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::LargeBig do
+  let(:term_class) { Erlang::ETF::LargeBig }
+
+  describe '[class]' do
+    describe 'deserialize' do
+      let(:buffer) { StringIO.new(bytes.pack('C*')) }
+      subject { term_class.deserialize(buffer) }
+
+      let(:n)       { 256 }
+      let(:sign)    { 0 }
+      let(:integer) { (+1 << (256 * 8)) - 1 }
+      let(:bytes)   { [0, 0, 1, 0, 0, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255] }
+
+      its(:n)       { should eq(n) }
+      its(:sign)    { should eq(sign) }
+      its(:integer) { should eq(integer) }
+    end
+
+    describe 'new' do
+      subject { term_class.new(integer).tap(&:serialize) }
+
+      let(:n)       { 256 }
+      let(:sign)    { 1 }
+      let(:integer) { (-1 << (256 * 8)) + 1 }
+
+      its(:n)       { should eq(n) }
+      its(:sign)    { should eq(sign) }
+      its(:integer) { should eq(integer) }
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(integer) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      let(:n)       { 256 }
+      let(:sign)    { 1 }
+      let(:integer) { (-1 << (256 * 8)) + 1 }
+      let(:bytes)   { [111, 0, 0, 1, 0, 1, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255].pack('C*') }
+
+      it { should eq(bytes) }
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      let(:integer) { (+1 << (256 * 8)) - 1 }
+      it { should eq(:large_big) }
+    end
+
+    describe '__ruby_evolve__' do
+      subject { term.__ruby_evolve__ }
+
+      let(:ruby_obj) { (+1 << (256 * 8)) - 1 }
+      let(:integer)  { (+1 << (256 * 8)) - 1 }
+
+      it { should eq(ruby_obj) }
+    end
+  end
+
+end

data/spec/erlang/etf/large_tuple_spec.rb

@@ -0,0 +1,119 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::LargeTuple do
+  let(:term_class) { Erlang::ETF::LargeTuple }
+
+  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 item tuple' do
+        let(:bytes) { [0, 0, 0, 1, 100, 0, 1, 97] }
+        let(:atom_a) { Erlang::ETF::Atom.new("a").tap(&:serialize) }
+
+        its(:arity)    { should eq(1) }
+        its(:elements) { should eq([atom_a]) }
+      end
+
+      context 'multiple item tuple' 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] }
+
+        its(:arity)    { should eq(6) }
+        its(:elements) { should eq([atom, binary, new_float, small_integer, small_tuple, small_list]) }
+      end
+
+      context 'very large tuple' do
+        let(:bytes) { [0, 0, 1, 0, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106] }
+
+        its(:arity)    { should eq(256) }
+        its(:elements) { should eq([erlang_nil] * 256) }
+      end
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(elements) }
+
+    let(:atom_a) { Erlang::ETF::Atom.new("a").tap(&:serialize) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      context 'single item tuple' do
+        let(:bytes) { [105, 0, 0, 0, 1, 100, 0, 1, 97].pack('C*') }
+
+        let(:elements) { [atom_a] }
+
+        it { should eq(bytes) }
+      end
+
+      context 'multiple item tuple' do
+        let(:bytes) { [105, 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].pack('C*') }
+
+        let(:elements) { [atom, binary, new_float, small_integer, small_tuple, small_list] }
+
+        it { should eq(bytes) }
+      end
+    end
+
+    describe 'serialize_header' do
+      subject { term.serialize_header("") }
+
+      context 'single item tuple' do
+        let(:bytes) { [105, 0, 0, 0, 1].pack('C*') }
+
+        let(:elements) { [atom_a] }
+
+        it { should eq(bytes) }
+      end
+
+      context 'multiple item tuple' do
+        let(:bytes) { [105, 0, 0, 0, 6].pack('C*') }
+
+        let(:elements) { [atom, binary, new_float, small_integer, small_tuple, small_list] }
+
+        it { should eq(bytes) }
+      end
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      let(:elements) { [atom_a] }
+      it { should eq(:large_tuple) }
+    end
+
+    describe '__ruby_evolve__' do
+      context 'single item tuple' do
+        let(:ruby_obj) { ::Erlang::Tuple[:a] }
+        subject { term.__ruby_evolve__ }
+
+        let(:elements) { [atom_a] }
+
+        it { should eq(ruby_obj) }
+      end
+
+      context 'multiple item tuple' do
+        let(:ruby_obj) { ::Erlang::Tuple[: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] }
+
+        it { should eq(ruby_obj) }
+      end
+    end
+  end
+
+end