erlang-etf 1.0.0

data/spec/erlang/etf/nil_spec.rb

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

data/spec/erlang/etf/pid_spec.rb

@@ -0,0 +1,61 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::Pid do
+  let(:term_class) { Erlang::ETF::Pid }
+
+  let(:node)     { Erlang::ETF::Atom.new("node@host").tap(&:serialize) }
+  let(:id)       { 1234 }
+  let(:serial)   { 13 }
+  let(:creation) { 1 }
+
+  describe '[class]' do
+    describe 'deserialize' do
+      let(:buffer) { StringIO.new(bytes.pack('C*')) }
+      subject { term_class.deserialize(buffer) }
+
+      let(:bytes) { [100, 0, 9, 110, 111, 100, 101, 64, 104, 111, 115, 116, 0, 0, 4, 210, 0, 0, 0, 13, 1] }
+
+      its(:node)     { should eq(node) }
+      its(:id)       { should eq(id) }
+      its(:serial)   { should eq(serial) }
+      its(:creation) { should eq(creation) }
+    end
+
+    describe 'new' do
+      subject { term_class.new(node, id, serial, creation) }
+
+      its(:node)     { should eq(node) }
+      its(:id)       { should eq(id) }
+      its(:serial)   { should eq(serial) }
+      its(:creation) { should eq(creation) }
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(node, id, serial, creation) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      let(:bytes) { [103, 100, 0, 9, 110, 111, 100, 101, 64, 104, 111, 115, 116, 0, 0, 4, 210, 0, 0, 0, 13, 1].pack('C*') }
+
+      it { should eq(bytes) }
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      it { should eq(:pid) }
+    end
+
+    describe '__ruby_evolve__' do
+      let(:ruby_obj) { ::Erlang::Pid.new(:'node@host', 1234, 13, 1) }
+      subject { term.__ruby_evolve__ }
+
+      it { should eq(ruby_obj) }
+    end
+  end
+
+end

data/spec/erlang/etf/port_spec.rb

@@ -0,0 +1,58 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::Port do
+  let(:term_class) { Erlang::ETF::Port }
+
+  let(:node)     { Erlang::ETF::Atom.new("node@host").tap(&:serialize) }
+  let(:id)       { 1234 }
+  let(:creation) { 1 }
+
+  describe '[class]' do
+    describe 'deserialize' do
+      let(:buffer) { StringIO.new(bytes.pack('C*')) }
+      subject { term_class.deserialize(buffer) }
+
+      let(:bytes) { [100, 0, 9, 110, 111, 100, 101, 64, 104, 111, 115, 116, 0, 0, 4, 210, 1] }
+
+      its(:node)     { should eq(node) }
+      its(:id)       { should eq(id) }
+      its(:creation) { should eq(creation) }
+    end
+
+    describe 'new' do
+      subject { term_class.new(node, id, creation) }
+
+      its(:node)     { should eq(node) }
+      its(:id)       { should eq(id) }
+      its(:creation) { should eq(creation) }
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(node, id, creation) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      let(:bytes) { [102, 100, 0, 9, 110, 111, 100, 101, 64, 104, 111, 115, 116, 0, 0, 4, 210, 1].pack('C*') }
+
+      it { should eq(bytes) }
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      it { should eq(:port) }
+    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/reference_spec.rb

@@ -0,0 +1,58 @@
+# encoding: utf-8
+
+require 'spec_helper'
+
+describe Erlang::ETF::Reference do
+  let(:term_class) { Erlang::ETF::Reference }
+
+  let(:node)     { Erlang::ETF::Atom.new("node@host").tap(&:serialize) }
+  let(:id)       { 1234 }
+  let(:creation) { 1 }
+
+  describe '[class]' do
+    describe 'deserialize' do
+      let(:buffer) { StringIO.new(bytes.pack('C*')) }
+      subject { term_class.deserialize(buffer) }
+
+      let(:bytes) { [100, 0, 9, 110, 111, 100, 101, 64, 104, 111, 115, 116, 0, 0, 4, 210, 1] }
+
+      its(:node)     { should eq(node) }
+      its(:id)       { should eq(id) }
+      its(:creation) { should eq(creation) }
+    end
+
+    describe 'new' do
+      subject { term_class.new(node, id, creation) }
+
+      its(:node)     { should eq(node) }
+      its(:id)       { should eq(id) }
+      its(:creation) { should eq(creation) }
+    end
+  end
+
+  describe '[instance]' do
+    let(:term) { term_class.new(node, id, creation) }
+
+    describe 'serialize' do
+      subject { term.serialize }
+
+      let(:bytes) { [101, 100, 0, 9, 110, 111, 100, 101, 64, 104, 111, 115, 116, 0, 0, 4, 210, 1].pack('C*') }
+
+      it { should eq(bytes) }
+    end
+
+    describe '__erlang_type__' do
+      subject { term.__erlang_type__ }
+
+      it { should eq(:reference) }
+    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/small_atom_spec.rb

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

data/spec/erlang/etf/small_atom_utf8_spec.rb

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

data/spec/erlang/etf/small_big_spec.rb

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