erlang-etf 1.1.1 → 2.0.0

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

@@ -1,32 +0,0 @@
-# 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

@@ -1,29 +0,0 @@
-# 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

@@ -1,92 +0,0 @@
-# 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

@@ -1,132 +0,0 @@
-# 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

@@ -1,57 +0,0 @@
-# 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

@@ -1,67 +0,0 @@
-# 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

@@ -1,119 +0,0 @@
-# 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