erlang-etf 1.1.1 → 2.0.0

data/spec/erlang/etf/small_big_spec.rb

@@ -1,67 +0,0 @@
-# encoding: utf-8
-
-require 'spec_helper'
-
-describe Erlang::ETF::SmallBig do
-  let(:term_class) { Erlang::ETF::SmallBig }
-
-  describe '[class]' do
-    describe 'deserialize' do
-      let(:buffer) { StringIO.new(bytes.pack('C*')) }
-      subject { term_class.deserialize(buffer) }
-
-      let(:n)       { 128 }
-      let(:sign)    { 0 }
-      let(:integer) { (+1 << (128 * 8)) - 1 }
-      let(:bytes)   { [128, 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] }
-
-      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)       { 128 }
-      let(:sign)    { 1 }
-      let(:integer) { (-1 << (128 * 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)       { 128 }
-      let(:sign)    { 1 }
-      let(:integer) { (-1 << (128 * 8)) + 1 }
-      let(:bytes)   { [110, 128, 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].pack('C*') }
-
-      it { should eq(bytes) }
-    end
-
-    describe '__erlang_type__' do
-      subject { term.__erlang_type__ }
-
-      let(:integer) { (+1 << (128 * 8)) - 1 }
-      it { should eq(:small_big) }
-    end
-
-    describe '__ruby_evolve__' do
-      subject { term.__ruby_evolve__ }
-
-      let(:ruby_obj) { (+1 << (128 * 8)) - 1 }
-      let(:integer)  { (+1 << (128 * 8)) - 1 }
-
-      it { should eq(ruby_obj) }
-    end
-  end
-
-end

data/spec/erlang/etf/small_integer_spec.rb

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

data/spec/erlang/etf/small_tuple_spec.rb

@@ -1,112 +0,0 @@
-# encoding: utf-8
-
-require 'spec_helper'
-
-describe Erlang::ETF::SmallTuple do
-  let(:term_class) { Erlang::ETF::SmallTuple }
-
-  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) { [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) { [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
-    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) { [104, 1, 100, 0, 1, 97].pack('C*') }
-
-        let(:elements) { [atom_a] }
-
-        it { should eq(bytes) }
-      end
-
-      context 'multiple item tuple' do
-        let(:bytes) { [104, 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) { [104, 1].pack('C*') }
-
-        let(:elements) { [atom_a] }
-
-        it { should eq(bytes) }
-      end
-
-      context 'multiple item tuple' do
-        let(:bytes) { [104, 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(:small_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

data/spec/erlang/etf/string_spec.rb

@@ -1,92 +0,0 @@
-# encoding: utf-8
-
-require 'spec_helper'
-
-describe Erlang::ETF::String do
-  let(:term_class) { Erlang::ETF::String }
-
-  describe '[class]' do
-    describe 'deserialize' do
-      let(:buffer) { StringIO.new(bytes.pack('C*')) }
-      subject { term_class.deserialize(buffer) }
-
-      context "ASCII bytes" do
-        let(:bytes) { [0, 4, 116, 101, 115, 116] }
-
-        its(:len)       { should eq(4) }
-        its(:characters) { should eq("test") }
-      end
-
-      context "UTF-8 bytes" do
-        let(:bytes) { [0, 2, 206, 169] }
-
-        its(:len)       { should eq(2) }
-        its(:characters) { should eq("Ω") }
-      end
-    end
-
-    describe 'new' do
-      subject { term_class.new(characters) }
-
-      context "ASCII" do
-        let(:characters) { "test" }
-
-        its(:characters) { should eq(characters) }
-      end
-
-      context "UTF-8" do
-        let(:characters) { "Ω" }
-
-        its(:characters) { should eq(characters) }
-      end
-    end
-  end
-
-  describe '[instance]' do
-    let(:term) { term_class.new(characters) }
-
-    describe 'serialize' do
-      subject { term.serialize }
-
-      context "ASCII" do
-        let(:characters) { "test" } 
-        let(:bytes)     { [107, 0, 4, 116, 101, 115, 116].pack('C*') }
-
-        it { should eq(bytes) }
-      end
-
-      context "UTF-8" do
-        let(:characters) { "Ω" } 
-        let(:bytes)     { [107, 0, 2, 206, 169].pack('C*') }
-
-        it { should eq(bytes) }
-      end
-    end
-
-    describe '__erlang_type__' do
-      subject { term.__erlang_type__ }
-
-      let(:characters) { "test" }
-      it { should eq(:string) }
-    end
-
-    describe '__ruby_evolve__' do
-      subject { term.__ruby_evolve__ }
-
-      context "ASCII" do
-        let(:ruby_obj)   { ::Erlang::String.new("test") }
-        let(:characters) { "test" }
-
-        it { should eq(ruby_obj) }
-      end
-
-      context "UTF-8" do
-        let(:ruby_obj)   { ::Erlang::String.new("Ω") }
-        let(:characters) { "Ω" }
-
-        it { should eq(ruby_obj) }
-      end
-    end
-  end
-
-end

data/spec/erlang/etf/term_spec.rb

@@ -1,27 +0,0 @@
-# encoding: utf-8
-
-require 'spec_helper'
-
-describe Erlang::ETF::Term do
-  let(:term_class) do
-    Class.new do
-      include Erlang::ETF::Term
-
-      term :atom,   always:  -> { Erlang::ETF::Atom.new("atom") }
-      term :binary, default: -> { Erlang::ETF::Binary.new("binary") }
-
-      finalize
-    end
-  end
-  let(:term) { term_class.new }
-
-  describe '__erlang_evolve__' do
-    subject { term.__erlang_evolve__ }
-    it { should eq(term) }
-  end
-
-  describe '__ruby_evolve__' do
-    subject { term.__ruby_evolve__ }
-    it { should eq(term) }
-  end
-end

data/spec/erlang/etf/terms_spec.rb

@@ -1,23 +0,0 @@
-# encoding: utf-8
-
-require 'spec_helper'
-
-describe Erlang::ETF::Terms do
-  describe 'deserialize' do
-    context 'with unknown Erlang External Format tag' do
-      subject { -> { Erlang::ETF::Terms.deserialize(buffer) } }
-      let(:buffer) { StringIO.new([82].pack('C*')) }
-
-      it { should raise_error(NotImplementedError) }
-    end
-  end
-
-  describe 'evolve' do
-    context 'with unknown Erlang External Format tag' do
-      subject { -> { Erlang::ETF::Terms.evolve(buffer) } }
-      let(:buffer) { StringIO.new([82].pack('C*')) }
-
-      it { should raise_error(NotImplementedError) }
-    end
-  end
-end

data/spec/erlang/etf_spec.rb

@@ -1,23 +0,0 @@
-# encoding: utf-8
-
-require 'spec_helper'
-
-describe Erlang::ETF do
-  it 'has a version number' do
-    expect(Erlang::ETF::VERSION).to_not be_nil
-  end
-
-  describe 'decode' do
-    context 'without magic byte' do
-      subject { -> { Erlang::ETF.decode(StringIO.new("")) } }
-      it { should raise_error(NotImplementedError) }
-    end
-  end
-
-  describe 'encode' do
-    context 'when term cannot evolve' do
-      subject { -> { Erlang::ETF.encode(Object.new) } }
-      it { should raise_error(NotImplementedError) }
-    end
-  end
-end

data/spec/erlang_spec.rb

@@ -1,95 +0,0 @@
-# encoding: utf-8
-
-require 'spec_helper'
-
-describe Erlang do
-  describe 'binary_to_term' do
-    context 'without magic byte' do
-      subject { -> { Erlang.binary_to_term("") } }
-      it { should raise_error(NotImplementedError) }
-    end
-  end
-
-  describe 'term_to_binary' do
-    context 'when term cannot evolve' do
-      subject { -> { Erlang.term_to_binary(Object.new) } }
-      it { should raise_error(NotImplementedError) }
-    end
-  end
-
-  def roundtrip(term)
-    expect(term).to eq(Erlang.binary_to_term(Erlang.term_to_binary(term)))
-  end
-
-  def roundtrip_compressed(term, compression)
-    expect(term).to eq(Erlang.binary_to_term(Erlang.term_to_binary(term, compressed: compression)))
-  end
-
-  roundtrip_variables = [
-    1,
-    1.0,
-    :a,
-    Erlang::Tuple[],
-    Erlang::Tuple[:a],
-    Erlang::Tuple[:a, :b],
-    Erlang::Tuple[Erlang::Tuple[:a, 1], Erlang::Tuple[:b, 2]],
-    Erlang::Tuple[:bert, :unknown],
-    Erlang::Tuple[:bert, "bad value"],
-    [],
-    [:a],
-    [:a, 1],
-    [[:a, 1], [:b, 2]],
-    Erlang::List[:a].tail(:b),
-    Erlang::List[:a, :b],
-    "a",
-    Erlang::String.new("a"),
-    Erlang::Nil.new,
-    nil,
-    true,
-    false,
-    {},
-    {:a => 1},
-    {:a => 1, :b => 2},
-    {a: {b: 1}},
-    Erlang::Tuple[:bert, :dict, :invalid],
-    Erlang::Tuple[:bert, :dict],
-    Erlang::Tuple[:bert, :dict, Erlang::Tuple[:a]],
-    # Time.now,
-    Time.at(1363190400, 31388),
-    Erlang::Tuple[:bert, :time],
-    Erlang::Tuple[:bert, :time, 1, 1],
-    Erlang::Tuple[:bert, :time, 1, 1, 1, 1],
-    /^c(a)t$/imx,
-    Erlang::Tuple[:bert, :regex, ".", "invalid"],
-    Erlang::Tuple[:bert, :regex],
-    178,
-    (256 ** 256) - 1,
-    :true,
-    :false,
-    :nil,
-    Erlang::Tuple[:bert, *([0] * 256)],
-
-    Erlang::Export.new(:erlang, :now, 0),
-    Erlang::Pid.new(:'node@host', 100, 10, 1),
-    Erlang::String.new("test"),
-    Erlang::Map[],
-    Erlang::Map[:atom, 1],
-    Erlang::Map[Erlang::Map[:atom, 1], 2]
-  ]
-
-  roundtrip_variables.each do |roundtrip_variable|
-    it "roundtrips #{roundtrip_variable.inspect}" do
-      roundtrip(roundtrip_variable)
-    end
-  end
-
-  [false, true, *Erlang::ETF::Compressed::LEVEL_RANGE].each do |compression|
-    context "when compression is #{compression}" do
-      roundtrip_variables.each do |roundtrip_variable|
-        it "roundtrips #{roundtrip_variable.inspect}" do
-          roundtrip_compressed(roundtrip_variable, compression)
-        end
-      end
-    end
-  end
-end