skeem 0.2.15 → 0.2.16

data/spec/skeem/primitive/primitive_procedure_spec.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require_relative '../../spec_helper' # Use the RSpec framework
 
 # Load the class under test
@@ -9,8 +11,8 @@ module Skeem
       let(:nullary) { SkmArity.new(0, 0) }
       let(:unary) { SkmArity.new(1, 1) }
       let(:binary) { SkmArity.new(2, 2) }
-      let(:zero_or_more) {SkmArity.new(0, '*') }
-      let(:one_or_more) {SkmArity.new(1, '*') }
+      let(:zero_or_more) { SkmArity.new(0, '*') }
+      let(:one_or_more) { SkmArity.new(1, '*') }
       let(:newline_code) do
         ->(_runtime) { "\n" }
       end
@@ -49,7 +51,7 @@ module Skeem
         end
 
         it 'should complain if third argument is not a lambda' do
-          kode = Proc.new { puts '' }
+          kode = proc { puts '' }
 
           err = StandardError
           err_msg = "Primitive procedure 'newline' must be implemented with a Ruby lambda."
@@ -57,7 +59,7 @@ module Skeem
         end
 
         it 'should complain if third argument is a nullary lambda' do
-          kode = ->() { puts '' } # Missing slot for Runtime object
+          kode = -> { puts '' } # Missing slot for Runtime object
 
           err = StandardError
           err_msg = "Primitive procedure 'newline' lambda takes no parameter."
@@ -68,10 +70,10 @@ module Skeem
           err = StandardError
           msg1 = "Discrepancy in primitive procedure 'cube' "
 
-          msg2 = "between arity (0) + 1 and parameter count of lambda 2."
+          msg2 = 'between arity (0) + 1 and parameter count of lambda 2.'
           expect { PrimitiveProcedure.new('cube', nullary, cube) }.to raise_error(err, msg1 + msg2)
 
-          msg2 = "between arity (2) + 1 and parameter count of lambda 2."
+          msg2 = 'between arity (2) + 1 and parameter count of lambda 2.'
           expect { PrimitiveProcedure.new('cube', binary, cube) }.to raise_error(err, msg1 + msg2)
 
           # Nasty; this discrepancy isn't detected
@@ -79,7 +81,7 @@ module Skeem
 
           expect { PrimitiveProcedure.new('cube', unary, cube) }.not_to raise_error
 
-          msg2 = "between arity (1) + 2 and parameter count of lambda 2."
+          msg2 = 'between arity (1) + 2 and parameter count of lambda 2.'
           expect { PrimitiveProcedure.new('cube', one_or_more, cube) }.to raise_error(err, msg1 + msg2)
         end
       end # context
@@ -109,7 +111,7 @@ module Skeem
           ms2 = ' (required at least 1, got 0)'
           expect { pproc.call(rtime, []) }.to raise_error(err, ms1 + ms2)
 
-          too_much = ['foo', 'bar']
+          too_much = %w[foo bar]
           err = StandardError
           ms1 = 'Wrong number of arguments for #<Procedure cube>'
           ms2 = ' (required at least 1, got 2)'
@@ -129,7 +131,7 @@ module Skeem
           ms2 = ' (required at least 2, got 1)'
           expect { pproc.call(rtime, too_few) }.to raise_error(err, ms1 + ms2)
 
-          too_much = ['foo', 'bar', 'quux']
+          too_much = %w[foo bar quux]
           err = StandardError
           ms1 = 'Wrong number of arguments for #<Procedure sum>'
           ms2 = ' (required at least 2, got 3)'
@@ -146,11 +148,11 @@ module Skeem
           no_arg = []
           expect(pproc.call(rtime, no_arg)).to eq(0)
 
-          many = [SkmString.create('foo'), SkmString.create('bar'), 
-            SkmString.create('quux')]
-          expect( pproc.call(rtime, many)).to eq(3)
+          many = [SkmString.create('foo'), SkmString.create('bar'),
+                  SkmString.create('quux')]
+          expect(pproc.call(rtime, many)).to eq(3)
         end
       end # context
     end # describe
   end # module
-end # module
+end # module

data/spec/skeem/runtime_spec.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require_relative '../spec_helper' # Use the RSpec framework
 require_relative '../../lib/skeem/datum_dsl'
 require_relative '../../lib/skeem/s_expr_nodes'
@@ -8,7 +10,7 @@ require_relative '../../lib/skeem/runtime' # Load the class under test
 module Skeem
   describe Runtime do
     include DatumDSL
-    
+
     let(:some_env) { SkmFrame.new }
     subject { Runtime.new(some_env) }
 
@@ -20,7 +22,7 @@ module Skeem
       it 'should know the environment' do
         expect(subject.environment).to eq(some_env)
       end
-      
+
       it 'should have an empty call stack' do
         expect(subject.call_stack).to be_empty
       end
@@ -42,10 +44,10 @@ module Skeem
         expect(subject.include?('dummy')).to be_truthy
       end
     end # context
-      
+
     context 'Evaluation:' do
       include Primitive::PrimitiveBuilder
-      
+
       # it 'should evaluate a given entry' do
         # entry = integer(3)
         # result = double('fake-procedure')
@@ -54,21 +56,21 @@ module Skeem
         # subject.define('three', entry)
         # expect(subject.evaluate('three')).to eq(3)
       # end
-      
+
       it 'should evaluate a given list' do
         add_primitives(subject)
         sum = list([identifier('+'), 3, 4])
-        
+
         expect(subject.evaluate_form(sum)).to eq(7)
       end
     end # context
-      
+
     context 'Environment nesting:' do
       it 'should add nested environment' do
         expect(subject.depth).to eq(1)
         env_before = subject.environment
         subject.nest
-        
+
         expect(subject.environment).not_to eq(env_before)
         expect(subject.environment.parent).to eq(env_before)
         expect(subject.depth).to eq(2)
@@ -79,24 +81,24 @@ module Skeem
         subject.nest
         parent_before = subject.environment.parent
         expect(subject.depth).to eq(2)
-        
+
         subject.unnest
         expect(subject.environment).to eq(parent_before)
         expect(subject.depth).to eq(1)
       end
     end # context
-    
+
     context 'Call stack operations:' do
       let(:sample_call) do
         pos = double('fake-position')
-        ProcedureCall.new(pos, identifier('boolean?'), [integer(42)])      
+        ProcedureCall.new(pos, identifier('boolean?'), [integer(42)])
       end
-      
+
       it 'should push a call to the stack call' do
         expect { subject.push_call(sample_call) }.not_to raise_error
         expect(subject.call_stack.size). to eq(1)
         expect(subject.caller).to eq(sample_call)
-        
+
         subject.push_call(sample_call.clone)
         expect(subject.call_stack.size). to eq(2)
       end
@@ -105,11 +107,11 @@ module Skeem
         subject.push_call(sample_call)
         expect { subject.pop_call }.not_to raise_error
         expect(subject.call_stack).to be_empty
-        
+
         err = StandardError
         msg = 'Skeem call stack empty!'
         expect { subject.pop_call }.to raise_error(err, msg)
       end
-    end # context    
+    end # context
   end # describe
-end # module
+end # module

data/spec/skeem/s_expr_nodes_spec.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require 'ostruct'
 require_relative '../spec_helper' # Use the RSpec framework
 require_relative '../../lib/skeem/runtime'
@@ -6,7 +8,7 @@ require_relative '../../lib/skeem/s_expr_nodes' # Load the classes under test
 
 module Skeem
   describe ProcedureCall do
-     let(:pos) { double('fake-position') }
+    let(:pos) { double('fake-position') }
     let(:operator) { SkmIdentifier.create('+') }
     let(:operands) { [1, 2, 3] }
 
@@ -14,7 +16,7 @@ module Skeem
 
     context 'Initialization:' do
       it 'should be initialized with an operator symbol and its operands' do
-        expect{ ProcedureCall.new(pos, operator, operands) }.not_to raise_error
+        expect { ProcedureCall.new(pos, operator, operands) }.not_to raise_error
       end
 
       it 'should know its operator' do
@@ -45,7 +47,7 @@ module Skeem
 
     context 'Initialization:' do
       it 'should be initialized with a pos and 3 expressions' do
-        expect{ SkmCondition.new(pos, s_test, s_consequent, s_alt) }.not_to raise_error
+        expect { SkmCondition.new(pos, s_test, s_consequent, s_alt) }.not_to raise_error
       end
 
       it 'should know its test' do
@@ -76,13 +78,13 @@ module Skeem
     let(:s_formals) { double('fake-formals') }
     let(:s_defs) { double('fake-definitions') }
     let(:s_sequence) { double('fake-sequence') }
-    let(:s_body) do { defs: s_defs, sequence: s_sequence } end
+    let(:s_body) { { defs: s_defs, sequence: s_sequence } }
 
     subject { SkmLambdaRep.new(pos, s_formals, s_body) }
 
     context 'Initialization:' do
       it 'should be initialized with a pos and 3 expressions' do
-        expect{ SkmLambdaRep.new(pos, s_formals, s_body) }.not_to raise_error
+        expect { SkmLambdaRep.new(pos, s_formals, s_body) }.not_to raise_error
       end
 
       it 'should know its formals' do
@@ -106,7 +108,7 @@ module Skeem
         # Remove "unpredictable" part of actual text
         expectation = subject.inspect.gsub(/@object_id=[0-9a-z]+, /, '')
         expect(expectation).to eq(txt1 + txt2 + txt3)
-      end  
+      end
     end # context
   end # describe
 end # module

data/spec/skeem/skm_compound_datum_spec.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require_relative '../spec_helper' # Use the RSpec framework
 require_relative '../../lib/skeem/datum_dsl'
 require_relative '../../lib/skeem/skm_compound_datum' # Load the classes under test
@@ -12,7 +14,7 @@ module Skeem
 
     context 'Initialization:' do
       it 'should be initialized with its members' do
-        expect{ SkmCompoundDatum.new(sample_members) }.not_to raise_error
+        expect { SkmCompoundDatum.new(sample_members) }.not_to raise_error
       end
 
       it 'should know its members' do
@@ -28,7 +30,7 @@ module Skeem
         expect(subject).to eq(subject)
       end
 
-     it 'should assert the equality by member values' do
+      it 'should assert the equality by member values' do
         # Comparison with other instances
         expect(subject).to eq(SkmCompoundDatum.new(sample_members))
         expect(subject).not_to eq(SkmCompoundDatum.new([]))
@@ -44,12 +46,12 @@ module Skeem
         expect(visitor).to receive(:visit_compound_datum).with(subject)
         expect { subject.accept(visitor) }.not_to raise_error
       end
-      
+
       it 'should return its text representation' do
         txt1 = '<Skeem::SkmCompoundDatum: <Skeem::SkmInteger: 1>,'
         txt2 = '<Skeem::SkmInteger: 2>, <Skeem::SkmInteger: 3>>'
         expect(subject.inspect).to eq(txt1 + ' ' + txt2)
-      end     
+      end
     end # context
 
     context 'Provided runtime services:' do
@@ -78,19 +80,19 @@ module Skeem
       end
     end # context
   end # describe
-  
+
   describe SkmVector do
     let(:sample_members) { [1, 2, 3] }
     subject { SkmVector.new(sample_members) }
 
     context 'Initialization:' do
       it 'should be initialized with its members' do
-        expect{ SkmVector.new(sample_members) }.not_to raise_error
+        expect { SkmVector.new(sample_members) }.not_to raise_error
       end
-      
+
       it 'should react positively to vector? predicate' do
         expect(subject).to be_vector
-      end      
+      end
     end # context
   end # describe
-end # module
+end # module

data/spec/skeem/skm_element_spec.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require_relative '../spec_helper' # Use the RSpec framework
 require_relative '../../lib/skeem/skm_element' # Load the class under test
 
@@ -35,11 +37,11 @@ module Skeem
       let(:runtime) { double('fake-runtime') }
       let(:visitor) { double('fake-visitor') }
       let(:not_implemented) { NotImplementedError }
-      
+
       it 'should be equivalent to itself' do
         expect(subject).to be_eqv(subject)
         expect(subject).not_to be_eqv(subject.clone)
-      end     
+      end
 
       it "should ignore the 'done!' message" do
         expect { subject.done! }.not_to raise_error
@@ -52,11 +54,11 @@ module Skeem
       it "should ignore the 'unquoted!' message" do
         expect { subject.unquoted! }.not_to raise_error
       end
-      
+
       it "should complain when receiving 'skm_equal?' message" do
         msg = 'Missing implementation of method Skeem::SkmElement#skm_equal?'
         expect { subject.skm_equal?('omg') }.to raise_error(NotImplementedError, msg)
-      end       
+      end
 
       it "should complain when receiving 'evaluate' message" do
         expect { subject.evaluate(runtime) }.to raise_error(not_implemented)
@@ -71,4 +73,4 @@ module Skeem
       end
     end # context
   end # describe
-end # module
+end # module

data/spec/skeem/skm_empty_list_spec.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require_relative '../spec_helper' # Use the RSpec framework
 require_relative '../../lib/skeem/skm_empty_list' # Load the class under test
 
@@ -20,10 +22,10 @@ module Skeem
 
     context 'Provided services:' do
       let(:runtime) { double('fake-runtime') }
-      
+
       it 'should be equivalent to itself' do
         expect(subject).to be_eqv(SkmEmptyList.instance)
-        expect(subject).not_to be_eqv("()")
+        expect(subject).not_to be_eqv('()')
       end
 
       it "should return itself when receiving 'evaluate' message" do
@@ -36,14 +38,14 @@ module Skeem
 
       it "should reply to visitor's 'accept' message" do
         visitor = double('fake-visitor')
-        expect(visitor).to receive(:visit_empty_list).with(subject)      
+        expect(visitor).to receive(:visit_empty_list).with(subject)
         expect { subject.accept(visitor) }.not_to raise_error
       end
-      
+
       it 'should return its representation upon inspection' do
         predicted = '<Skeem::SkmEmptyList: ()>'
         expect(subject.inspect).to eq(predicted)
       end
     end # context
   end # describe
-end # module
+end # module

data/spec/skeem/skm_frame_spec.rb

@@ -1,5 +1,7 @@
+# frozen_string_literal: true
+
 require_relative '../spec_helper' # Use the RSpec framework
-require_relative '../../lib/skeem/datum_dsl' 
+require_relative '../../lib/skeem/datum_dsl'
 require_relative '../../lib/skeem/skm_frame' # Load the class under test
 
 module Skeem
@@ -9,7 +11,7 @@ module Skeem
     let(:sample_env) { SkmFrame.new }
     context 'Initialization:' do
       it 'could be initialized without argument' do
-        expect { SkmFrame.new() }.not_to raise_error
+        expect { SkmFrame.new }.not_to raise_error
       end
 
       it 'could be initialized with optional argument' do
@@ -114,6 +116,5 @@ module Skeem
         expect(nested.size).to eq(1)
       end
     end # context
-
   end # describe
-end # module
+end # module

data/spec/skeem/skm_pair_spec.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require_relative '../spec_helper' # Use the RSpec framework
 require_relative '../../lib/skeem/datum_dsl'
 require_relative '../../lib/skeem/runtime'
@@ -172,7 +174,7 @@ module Skeem
 
       it 'should support the each method' do
         my_list = SkmPair.new('w', SkmPair.new('o', SkmPair.new('w', SkmEmptyList.instance)))
-        text = ''
+        text = +''
         my_list.each { |ch| text << ch.upcase }
         expect(text).to eq('WOW')
       end
@@ -228,6 +230,5 @@ module Skeem
         expect(list_length_2.inspect).to eq(predicted)
       end
     end # context
-
   end # describe
-end # module
+end # module

data/spec/skeem/skm_procedure_exec_spec.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require_relative '../spec_helper' # Use the RSpec framework
 
 require_relative '../../lib/skeem/interpreter'

data/spec/skeem/skm_simple_datum_spec.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require 'ostruct'
 require_relative '../spec_helper' # Use the RSpec framework
 require_relative '../../lib/skeem/skm_simple_datum' # Load the classes under test
@@ -47,7 +49,7 @@ module Skeem
         expect(subject).to eq(subject)
       end
 
-     it 'should assert the equality by value' do
+      it 'should assert the equality by value' do
         # Comparison with other instances
         expect(instance).to eq(SkmSimpleDatum.create(3))
         expect(instance).not_to eq(SkmSimpleDatum.create('foo'))
@@ -56,24 +58,24 @@ module Skeem
         expect(instance).to eq(3)
         expect(instance).not_to eq('foo')
       end
-      
+
       it 'should be equivalent to itself' do
         expect(subject).to be_eqv(subject)
       end
-      
+
       it 'should be equivalent by value' do
         same = SkmSimpleDatum.create(3)
         expect(instance).to be_eqv(same)
-      end  
+      end
 
       it 'should be Skeem equal to itself' do
         expect(subject).to be_skm_equal(subject)
-      end      
-      
+      end
+
       it 'should be Skeem equal by value' do
         same = SkmSimpleDatum.create(3)
         expect(instance).to be_skm_equal(same)
-      end       
+      end
 
       it 'should be self-evaluating' do
         expect(subject.evaluate(runtime)).to be_equal(subject)
@@ -84,7 +86,7 @@ module Skeem
       end
 
       it 'should return its text representation' do
-        expect(subject.inspect).to eq("<Skeem::SkmSimpleDatum: sample-value>")
+        expect(subject.inspect).to eq('<Skeem::SkmSimpleDatum: sample-value>')
       end
 
       it 'should respond to visitor' do
@@ -173,7 +175,7 @@ module Skeem
       it 'should react positively to real? predicate' do
         expect(subject).to be_real
       end
-      
+
       it 'should react negatively to exact? predicate' do
         expect(subject).not_to be_exact
       end
@@ -181,11 +183,11 @@ module Skeem
       it 'should implement the eqv? predicate' do
         same = SkmReal.create(0.51)
         different = SkmReal.create(1.21)
-        
+
         expect(subject).to be_eqv(subject)
         expect(subject).to be_eqv(same)
         expect(subject).not_to be_eqv(different)
-      end      
+      end
     end # context
   end # describe
 
@@ -213,24 +215,24 @@ module Skeem
       it 'should react positively to integer? predicate' do
         expect(subject).to be_real
       end
-      
+
       it 'should react positively to exact? predicate' do
         expect(subject).to be_exact
       end
 
       it 'should implement the eqv? predicate' do
         three = SkmInteger.create(3)
-        real_3 = SkmReal.create(3.0)
+        real3 = SkmReal.create(3.0)
         four = SkmInteger.create(4)
-        
+
         expect(subject).to be_eqv(three)
-        expect(subject).not_to be_eqv(real_3)
+        expect(subject).not_to be_eqv(real3)
         expect(subject).not_to be_eqv(four)
       end
     end # context
   end # describe
 
-describe SkmString do
+  describe SkmString do
     let(:pos) { double('fake-position') }
     let(:dummy_symbol) { double('dummy') }
     let(:sample_value) { 'Hello' }
@@ -272,28 +274,28 @@ describe SkmString do
 
       it 'could be initialized with a token, a position and a flag' do
         expect { SkmIdentifier.new(dummy_token, pos, true) }.not_to raise_error
-      end       
+      end
 
       it 'should know whether it is used as a variable name' do
         expect(subject.is_var_name).to eq(false)
-        
+
         instance = SkmIdentifier.new(dummy_token, pos, true)
         expect(instance.is_var_name).to eq(true)
       end
-    
+
       it 'should react positively to symbol? predicate' do
         expect(subject).to be_symbol
       end
-      
+
       it 'should react to verbatim? predicate' do
         expect(subject).to be_verbatim
         instance = SkmIdentifier.new(dummy_token, pos, true)
         expect(instance).not_to be_verbatim
-      end      
+      end
 
       it 'should return its text representation' do
         expect(subject.inspect).to eq('<Skeem::SkmIdentifier: this-is-it!>')
       end
     end # context
   end # describe
-end # module
+end # module