skeem 0.1.03 → 0.2.00

data/spec/skeem/skm_procedure_exec_spec.rb

@@ -0,0 +1,63 @@
+require_relative '../spec_helper' # Use the RSpec framework
+
+require_relative '../../lib/skeem/interpreter'
+require_relative '../../lib/skeem/skm_procedure_exec' # Load the class under test
+
+module Skeem
+  describe SkmProcedureExec do
+    let(:interpreter) do
+      # We load the interpreter with the primitive procedures only
+      Interpreter.new { |interp| interp.add_primitives(interp.runtime) }
+    end
+
+    let(:square_source) do
+      source = <<-SKEEM
+  (define square
+    (lambda (x)
+      (* x x)))
+    square
+SKEEM
+      source
+    end
+
+    let(:sample_lamb) do
+      result = interpreter.run(square_source)
+      result.last
+    end
+
+    let(:sample_call) do
+      result = interpreter.parse('(square 3)')
+      result.root
+    end
+
+    subject { SkmProcedureExec.new(sample_lamb) }
+
+    context 'Initialization:' do
+      it 'should be initialized with one lambda' do
+        expect { SkmProcedureExec.new(sample_lamb) }.not_to raise_error
+      end
+
+      it 'should know the definition of the procedure' do
+        expect(subject.definition).to eq(sample_lamb)
+      end
+    end # context
+
+    context 'Executing a compound procedure:' do
+      it 'should execute the procedure that is called' do
+        subject
+        call_args = sample_call.operands.to_a
+        result = subject.run!(interpreter.runtime, call_args)
+        expect(result).to eq(9)
+      end
+
+      it 'should execute the procedure with a procedure call in argument' do
+        subject
+
+        ptree = interpreter.parse('(square (+ (+ 2 1) 2))')
+        call_args = ptree.root.operands.to_a
+        result = subject.run!(interpreter.runtime, call_args)
+        expect(result).to eq(25)
+      end
+    end
+  end # describe
+end # module

data/spec/skeem/skm_unary_expression_spec.rb

@@ -178,11 +178,10 @@ module Skeem
     end # context
 
     context 'Provided services:' do
-      let(:sample_def) { SkmDefinition.new(nil, identifier('three'), integer(3)) }
-      let(:runtime) { Runtime.new(Environment.new) }
+      let(:runtime) { Runtime.new(SkmFrame.new) }
 
       before(:each) do
-        runtime.define('three', sample_def)
+        runtime.add_binding('three', integer(3))
       end
 
       it "should return the variable's value at evaluation" do

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: skeem
 version: !ruby/object:Gem::Version
-  version: 0.1.03
+  version: 0.2.00
 platform: ruby
 authors:
 - Dimitri Geshef
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2019-01-15 00:00:00.000000000 Z
+date: 2019-04-14 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rley
@@ -95,11 +95,14 @@ files:
 - lib/skeem/runtime.rb
 - lib/skeem/s_expr_builder.rb
 - lib/skeem/s_expr_nodes.rb
+- lib/skeem/skm_binding.rb
 - lib/skeem/skm_compound_datum.rb
 - lib/skeem/skm_element.rb
 - lib/skeem/skm_empty_list.rb
 - lib/skeem/skm_expression.rb
+- lib/skeem/skm_frame.rb
 - lib/skeem/skm_pair.rb
+- lib/skeem/skm_procedure_exec.rb
 - lib/skeem/skm_simple_datum.rb
 - lib/skeem/skm_unary_expression.rb
 - lib/skeem/standard/base.skm
@@ -110,6 +113,7 @@ files:
 - spec/skeem/element_visitor_spec.rb
 - spec/skeem/environment_spec.rb
 - spec/skeem/interpreter_spec.rb
+- spec/skeem/lambda_spec.rb
 - spec/skeem/parser_spec.rb
 - spec/skeem/primitive/primitive_builder_spec.rb
 - spec/skeem/primitive/primitive_procedure_spec.rb
@@ -118,7 +122,9 @@ files:
 - spec/skeem/skm_compound_datum_spec.rb
 - spec/skeem/skm_element_spec.rb
 - spec/skeem/skm_empty_list_spec.rb
+- spec/skeem/skm_frame_spec.rb
 - spec/skeem/skm_pair_spec.rb
+- spec/skeem/skm_procedure_exec_spec.rb
 - spec/skeem/skm_simple_datum_spec.rb
 - spec/skeem/skm_unary_expression_spec.rb
 - spec/skeem/tokenizer_spec.rb
@@ -154,6 +160,7 @@ test_files:
 - spec/skeem/element_visitor_spec.rb
 - spec/skeem/environment_spec.rb
 - spec/skeem/interpreter_spec.rb
+- spec/skeem/lambda_spec.rb
 - spec/skeem/parser_spec.rb
 - spec/skeem/primitive/primitive_builder_spec.rb
 - spec/skeem/primitive/primitive_procedure_spec.rb
@@ -161,7 +168,9 @@ test_files:
 - spec/skeem/skm_compound_datum_spec.rb
 - spec/skeem/skm_element_spec.rb
 - spec/skeem/skm_empty_list_spec.rb
+- spec/skeem/skm_frame_spec.rb
 - spec/skeem/skm_pair_spec.rb
+- spec/skeem/skm_procedure_exec_spec.rb
 - spec/skeem/skm_simple_datum_spec.rb
 - spec/skeem/skm_unary_expression_spec.rb
 - spec/skeem/s_expr_nodes_spec.rb