nrser 0.0.25 → 0.0.26

data/spec/nrser/op/message_spec.rb

@@ -0,0 +1,62 @@
+require 'spec_helper'
+
+require 'nrser/refinements'
+using NRSER
+
+require 'nrser/refinements/types'
+using NRSER::Types
+
+
+describe NRSER::Message, type: :class do
+  
+  describe "#to_proc" do
+        
+    describe_section "mapping an Enumerable using &message" do
+      subject { ->( message ) { enum.map &message } }
+      
+      context_where enum: [ [], [1], [1, 2] ] do
+        
+        describe_called_with NRSER::Message.new( :length ) do
+          it { is_expected.to eq [0, 1, 2] }
+        end # called with 
+        
+        describe_called_with NRSER::Message.new( :first ) do
+          it { is_expected.to eq [nil, 1, 1] }
+        end # called with :first
+        
+      end # enum 
+      
+    end # mapping an Enumerable using &message
+    
+  end # #to_proc
+  
+  
+  describe_section "Refinements" do
+  # ========================================================================
+    
+    describe "Array#to_message" do
+      
+      subject { array.to_message }
+      
+      context_where array: [:fetch, :x] do
+        it {
+          is_expected.to be_a( NRSER::Message ).and have_attributes \
+              symbol: :fetch,
+              args:   [:x],
+              block:  nil
+        }
+        
+        describe_sent_to x: 'ex', y: 'why?' do
+          it { is_expected.to eq 'ex' }
+        end # sent to x: 1, y: 2
+        
+      end # array: [:fetch, :x]
+      
+    end # Array#to_message
+    
+    
+  end # section Refinements
+  # ************************************************************************
+  
+  
+end # NRSER::Message, type: :class

data/spec/nrser/refinements/array_spec.rb

@@ -12,6 +12,7 @@ describe 'Refinement Array#map_values' do
   end
 end # Refinement Array#map_values
 
+
 describe 'Refinement Array#find_bounded' do
   it do
     expect(
@@ -24,6 +25,7 @@ describe 'Refinement Array#find_bounded' do
   end
 end # Refinement Array#map_values
 
+
 describe 'Refinement Array#find_only' do
   it do
     expect(
@@ -35,3 +37,37 @@ describe 'Refinement Array#find_only' do
     }.to raise_error TypeError
   end
 end # Refinement Array#map_values
+
+
+describe "Refinement Array#leaves" do
+  subject { [:a, :b, :c].leaves }
+  
+  it { is_expected.to eq( {[0] => :a, [1] => :b, [2] => :c}) }
+end # Refinement Array#leaves
+
+
+describe "Refinement Array#each_branch" do
+  let( :abc_array ) { [:a, :b, :c] }
+  
+  context "called with no block" do
+    subject { abc_array.each_branch }
+    
+    it {
+      is_expected.to be_a( Enumerator ).
+        and have_attributes size: 3
+    }
+  end # called with no block
+  
+  context "called with a block" do
+    subject {
+      result = {}
+      abc_array.each_branch { |key, value|
+        result[key] = value
+      }
+      result
+    }
+    
+    it { is_expected.to eq(0 => :a, 1 => :b, 2 => :c) }
+  end # called with a block
+  
+end # Refinement Array#each_branch

data/spec/nrser/refinements/hash_spec.rb

@@ -41,3 +41,37 @@ describe 'Refinement Hash#find_only' do
     }.to raise_error TypeError
   end
 end # Refinement Hash#map_values
+
+
+describe "Refinement Hash#leaves" do
+  subject { {a: 1, b: 2, c: 3}.leaves }
+  
+  it { is_expected.to eq( {[:a] => 1, [:b] => 2, [:c] => 3}) }
+end # Refinement Hash#leaves
+
+
+describe "Refinement Hash#each_branch" do
+  let( :abc_hash ) { {a: 1, b: 2, c: 3} }
+  
+  context "called with no block" do
+    subject { abc_hash.each_branch }
+    
+    it {
+      is_expected.to be_a( Enumerator ).
+        and have_attributes size: 3
+    }
+  end # called with no block
+  
+  context "called with a block" do
+    subject {
+      result = {}
+      abc_hash.each_branch { |key, value|
+        result[key] = value * value
+      }
+      result
+    }
+    
+    it { is_expected.to eq(a: 1, b: 4, c: 9) }
+  end # called with a block
+  
+end # Refinement Hash#each_branch

data/spec/nrser/string/looks_like_spec.rb

@@ -0,0 +1,31 @@
+require 'spec_helper'
+
+
+# NRSER.looks_like_json_array?
+# ========================================================================
+# 
+describe "NRSER.looks_like_json_array?" do
+  subject { NRSER.method :looks_like_json_array? }
+  
+  multiline = <<-END
+      
+    [
+      1,
+      2,
+      3
+    ]
+    
+    END
+  
+  it_behaves_like "function",
+    mapping: {
+      ''          => false,
+      '[]'        => true,
+      '[1, 2, 3]' => true,
+      multiline   => true,
+    }
+  
+  
+end # NRSER.looks_like_json_array?
+
+# ************************************************************************

data/spec/nrser/tree/each_branch_spec.rb

@@ -0,0 +1,82 @@
+require 'spec_helper'
+
+require 'nrser/refinements'
+using NRSER
+
+describe "NRSER.each_branch" do
+  
+  subject { NRSER.method :each_branch }
+  
+  context "called without a block" do
+    context "called with arrays" do
+      when_called_with( [] ) {
+        it {
+          is_expected.to be_a( Enumerator ).
+            and have_attributes size: 0
+        }
+      }
+      
+      when_called_with( [:x, :y, :z] ) {
+        it {
+          is_expected.to be_a( Enumerator ).
+            and have_attributes size: 3
+        }
+      }
+    end # called with arrays
+    
+    context "called with hashes" do
+      when_called_with( {} ) {
+        it {
+          is_expected.to be_a( Enumerator ).
+            and have_attributes size: 0
+        }
+      }
+    end # called with hashes
+    
+    context "convert returned Enumerator to array" do
+      subject {
+        # CRASHES VM!!!
+        # ->( *args ) { super().call( *args ).to_a }
+        ->( *args ) { NRSER.each_branch( *args ).to_a }
+      }
+      
+      it_behaves_like 'function',
+        mapping: {
+          [ {x: 'ex', y: 'why?', z: 'zee!'} ] => [
+            [:x, 'ex'],
+            [:y, 'why?'],
+            [:z, 'zee!'],
+          ],
+          
+          [ [:x, :y, :z] ] => [
+            [0, :x],
+            [1, :y],
+            [2, :z],
+          ]
+        }
+    end # convert Enumerator to array
+  end # called without a block
+  
+  context "called with a block" do
+    
+    context "called with arrays" do
+      
+      subject {
+        input = [:x, :y, :z]
+        result = {}
+        super().call( input ) { |index, value|
+          result[index] = value 
+        }
+        result
+      }
+      
+      it {
+        is_expected.to eq(0 => :x, 1 => :y, 2 => :z)
+      }
+      
+    end # called with arrays
+    
+  end # called with a block
+  
+end # NRSER.each_branch
+

data/spec/nrser/tree/leaves_spec.rb

@@ -0,0 +1,112 @@
+require 'spec_helper'
+
+describe "NRSER.leaves" do
+  subject { NRSER.method :leaves }
+  
+  it_behaves_like "function",
+    mapping: {
+      # flat hash
+      [{a: 1, b: 2}] => {[:a] => 1, [:b] => 2},
+      
+      # flat array
+      [ [:a, :b, :c] ] => {
+        [0] => :a,
+        [1] => :b,
+        [2] => :c,
+      },
+      
+      # Nested, all hashes
+      [{
+        a: {
+          x: 'ex',
+          y: {
+            z: 'zee'
+          }
+        },
+        b: 'bee',  
+      }] => {
+        [:a, :x] => 'ex',
+        [:a, :y, :z] => 'zee',
+        [:b] => 'bee',
+      },
+      
+      # Mixed arrays and hashes
+      [{
+        1 => {
+          name: 'Neil',
+          likes: ['tacos', 'cats'],
+        },
+        
+        2 => {
+          name: 'Mica',
+          likes: ['cats', 'cookies'],
+        },
+      }] => {
+        [1, :name]      => 'Neil',
+        [1, :likes, 0]  => 'tacos',
+        [1, :likes, 1]  => 'cats',
+        [2, :name]      => 'Mica',
+        [2, :likes, 0]  => 'cats',
+        [2, :likes, 1]  => 'cookies',
+      },
+      
+      # Sets should be considered leaves
+      [{
+        neil: {
+          name: 'Neil',
+          likes: Set['tacos', 'cats'],
+        },
+      }] => {
+        [:neil, :name]  => 'Neil',
+        [:neil, :likes] => Set['tacos', 'cats'],
+      },
+    } # mapping
+  
+end # NRSER.leaves
+
+describe "NRSER.map_leaves" do
+  let( :source ) {
+    {
+      1 => {
+        name: 'Neil',
+        likes: ['tacos', 'cats'],
+      },
+      
+      2 => {
+        name: 'Mica',
+        likes: ['cats', 'cookies'],
+      },
+    }
+  }
+  
+  subject {
+    NRSER.map_leaves( source ) { |key_path, value|
+      case value
+      when 'tacos'
+        'tamales'
+      when 'cats'
+        'bats'
+      when 'cookies'
+        'wookies'
+      else
+        value
+      end
+    }    
+  }
+  
+  it {
+    is_expected.to eq({
+      1 => {
+        name: 'Neil',
+        likes: ['tamales', 'bats'],
+      },
+      
+      2 => {
+        name: 'Mica',
+        likes: ['bats', 'wookies'],
+      },
+    })
+  }
+  
+end # NRSER.map_leaves
+

data/spec/nrser/tree/transform_spec.rb

@@ -0,0 +1,165 @@
+require 'spec_helper'
+
+require 'nrser/refinements'
+using NRSER
+
+describe "NRSER.transform" do
+  subject { NRSER.transform tree, source }
+  
+  describe_section "Simple Examples" do
+  # ========================================================================
+    
+    describe "value swap in {x: 'ex', y: 'why?'}" do
+      
+      let( :tree ) {
+        {
+          x: :y.retriever,
+          y: :x.retriever,
+        }
+      } # let :tree
+      
+      let( :source ) {
+        {
+          x: 'ex',
+          y: 'why?'
+        }
+      } # let :source
+      
+      it { is_expected.to eq x: 'why?', y: 'ex' }
+      
+    end # value swap in {x: 'ex', y: 'why?'}
+    
+    
+    describe "transform in key" do
+      
+      let :tree do
+        {
+          users: {
+            { id: :id.retriever } => {
+              name: :name.retriever,
+            }
+          }
+        }
+      end
+      
+      let :source do
+        {
+          id: 123,
+          name: "Mr. Cat",
+        }
+      end
+      
+      it do
+        is_expected.to eq \
+          users: {
+            { id: 123 } => {
+              name: "Mr. Cat",
+            }
+          }
+      end
+      
+    end # transform in key
+    
+    # TODO  doesn't work yet... prob wants a general {NRSER#map_branches} or
+    #       something that converts the map result into a Hash only if the
+    #       tree was hash-like.
+    # 
+    # describe "arrays in tree" do
+    #   let :tree do
+    #     {
+    #       list: [
+    #         { name: :name.rtvr },
+    #         { age: :age.rtvr },
+    #       ]
+    #     }
+    #   end
+    #   
+    #   let :source do
+    #     {
+    #       name: 'Mr. Cat',
+    #       age: 2,
+    #     }
+    #   end
+    #   
+    #   it do
+    #     is_expected.to eq \
+    #       list: [
+    #         { name: 'Mr. Cat' },
+    #         { age: 2 },
+    #       ]
+    #   end
+    # end # arrays in tree
+    
+    
+  end # section simple examples
+  # ************************************************************************
+  
+  
+  describe_section "Real-World Examples" do
+  # ========================================================================
+    
+    describe "Address" do
+      
+      let :contact do
+        OpenStruct.new id: 123
+      end
+      
+      let :address do
+        OpenStruct.new \
+          id:         987,
+          parent:     contact,
+          address:    "东城区",
+          street2:    "民安小区",
+          city:       "北京市",
+          state:      "北京",
+          zip:        "100010"
+      end
+      
+      let :source do
+        address
+      end
+      
+      let :tree do
+        {
+          users: {
+            { contact_id: [ :parent, :id ].chainer } => {
+              addresses: {
+                { 
+                  address_id: [ :id ].sender } => {
+                  district:   :address.retriever,
+                  line_1:     :street2.retriever,
+                  city:       :city.retriever,
+                  province:   :state.retriever,
+                  post_code:  :zip.retriever,
+                }
+              }
+            }
+          }
+        }
+      end
+      
+      it do
+        is_expected.to eq \
+          users: {
+            { contact_id: 123 } => {
+              addresses: {
+                { address_id: 987 } => {
+                  district:   "东城区",
+                  line_1:     "民安小区",
+                  city:       "北京市",
+                  province:   "北京",
+                  post_code:  "100010",
+                }
+              }
+            }
+          }
+      end
+      
+    end # Address
+    
+  end # section Real-World Examples
+  # ************************************************************************
+  
+  
+end # NRSER.transform
+