nudge 0.0.2 → 0.1.0

data/spec/instructions/exec/exec_do_times_spec.rb

@@ -0,0 +1,105 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+# EXEC.DO*TIMES: Like EXEC.DO*COUNT but does not push the loop counter. This should be implemented as a macro that expands into EXEC.DO*RANGE, similarly to the implementation of EXEC.DO*COUNT, except that a call to INTEGER.POP should be tacked on to the front of the loop body code in the call to EXEC.DO*RANGE. This call to INTEGER.POP will remove the loop counter, which will have been pushed by EXEC.DO*RANGE, prior to the execution of the loop body.
+
+
+describe ExecDoTimesInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecDoTimesInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @i1 = ExecDoTimesInstruction.new(@context)
+      @context.reset("block {}")
+      @context.enable(ExecDoTimesInstruction)
+    end
+    
+    describe "\#preconditions?" do
+      it "should check that there are two :ints and at least one :exec item" do
+        @context.stacks[:int].push(ValuePoint.new("int", 3))
+        @context.stacks[:int].push(ValuePoint.new("int", 3))
+        @i1.preconditions?.should == true
+      end
+    end
+    
+    describe "\#cleanup" do
+      before(:each) do
+        @context.reset("block {}")
+      end
+      
+      it "should finish if the :ints are identical, leaving only a copy of the codeblock" do
+        @context.stacks[:int].push(ValuePoint.new("int", 3))
+        @context.stacks[:int].push(ValuePoint.new("int", 3))
+        @i1.go
+        @context.stacks[:int].depth.should == 0
+        @context.stacks[:exec].depth.should == 1
+        @context.stacks[:exec].peek.tidy.should == "block {}"
+      end
+      
+      it "should increment the counter if the counter < destination, and push a bunch of stuff" do
+        @context.stacks[:int].push(ValuePoint.new("int", 1))
+        @context.stacks[:int].push(ValuePoint.new("int", 3))
+        @i1.go
+        
+        @context.stacks[:int].depth.should == 0
+        @context.stacks[:exec].depth.should == 2
+        @context.stacks[:exec].entries[1].blueprint_parts.should == ["block {}",""]
+        @context.stacks[:exec].entries[0].blueprint_parts.should == [
+          "block {\n  value «int»\n  value «int»\n  do exec_do_times\n  block {}}",
+          "«int» 2\n«int» 3"]
+        
+        5.times {@context.step} # block {}; unwrap; push counter; push dest; run exec_do_range
+        
+        @context.stacks[:int].depth.should == 0
+        @context.stacks[:exec].depth.should == 2
+        @context.stacks[:exec].entries[1].blueprint_parts.should == ["block {}",""]
+        @context.stacks[:exec].entries[0].blueprint_parts.should == [
+          "block {\n  value «int»\n  value «int»\n  do exec_do_times\n  block {}}",
+          "«int» 3\n«int» 3"]
+      end
+      
+      it "should decrement the counter if the counter > destination, and push a bunch of stuff" do
+        @context.reset("value «float»\n«float» 0.1")
+        @context.stacks[:int].push(ValuePoint.new("int", -2))
+        @context.stacks[:int].push(ValuePoint.new("int", -19))
+        @i1.go
+        
+        @context.stacks[:int].depth.should == 0
+        @context.stacks[:exec].depth.should == 2
+        @context.stacks[:exec].entries[1].blueprint_parts.should == ["value «float»","«float» 0.1"]
+        @context.stacks[:exec].entries[0].blueprint_parts.should == 
+          ["block {\n  value «int»\n  value «int»\n  do exec_do_times\n  value «float»}",
+            "«int» -3\n«int» -19\n«float» 0.1"]
+        
+        5.times {@context.step} # block {}; unwrap; push counter; push dest; run exec_do_times
+        
+        @context.stacks[:int].depth.should == 0
+        @context.stacks[:float].depth.should == 1
+        @context.stacks[:exec].depth.should == 2
+        @context.stacks[:exec].entries[1].blueprint_parts.should == ["value «float»","«float» 0.1"]
+        @context.stacks[:exec].entries[0].blueprint_parts.should == 
+          ["block {\n  value «int»\n  value «int»\n  do exec_do_times\n  value «float»}",
+            "«int» -4\n«int» -19\n«float» 0.1"]
+      end
+      
+      it "should 'continue' until counter and destination are the same value" do
+        @context.reset("value «float»\n«float» 0.1")
+        @context.stacks[:int].push(ValuePoint.new("int", 1))
+        @context.stacks[:int].push(ValuePoint.new("int", 100))
+        @i1.go
+        @context.run # finish it off
+        @context.stacks[:float].depth.should == 100
+        @context.stacks[:exec].depth.should == 0
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_duplicate_spec.rb

@@ -0,0 +1,44 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecDuplicateInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecDuplicateInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @myInterpreter = Interpreter.new
+      @i1 = ExecDuplicateInstruction.new(@myInterpreter)
+      @myInterpreter.reset("value «bool» \n«bool» false")
+    end
+
+    describe "\#preconditions?" do
+      it "should check that the :exec stack has at least one item" do
+        @i1.preconditions?.should == true
+      end
+    end
+
+    describe "\#cleanup" do
+      it "should push a copy of the top item onto the :exec stack" do
+        @i1.go
+        @myInterpreter.stacks[:exec].depth.should == 2
+        @myInterpreter.stacks[:exec].entries[0].value.should == @myInterpreter.stacks[:exec].entries[1].value
+      end
+      
+      it "should not be the same objectID, just in case" do
+        @i1.go
+        id1 = @myInterpreter.stacks[:exec].entries[0].object_id
+        id2 = @myInterpreter.stacks[:exec].entries[1].object_id
+        id1.should_not == id2
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_equal_q_spec.rb

@@ -0,0 +1,50 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecEqualQInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecEqualQInstruction.new(@context)
+  end
+  
+  
+  it "should check that there are enough parameters" do
+    thing1 = ValuePoint.new("code", "block {ref x}")
+    @context.stacks[:exec].push thing1
+    @context.stacks[:exec].push thing1
+    @i1.preconditions?.should == true
+  end
+  
+  it "should raise an error if the preconditions aren't met" do
+    @context.clear_stacks # there are no params at all
+    lambda{@i1.preconditions?}.should raise_error(Instruction::NotEnoughStackItems)
+  end
+  
+  it "should push the correct result to the :bool stack" do
+    thing1 = ValuePoint.new("code", "ref x")
+    thing2 = ValuePoint.new("code", "block {ref x}")
+    @context.stacks[:exec].push thing1
+    @context.stacks[:exec].push thing1
+    @i1.go
+    @context.stacks[:bool].peek.value.should == true
+    
+    @context.stacks[:exec].push thing1
+    @context.stacks[:exec].push thing2
+    @i1.go
+    @context.stacks[:bool].peek.value.should == false
+  end
+  
+  it "should not depend on the values, but the tidied program blueprints of the :code items" do
+    thing1 = NudgeProgram.new("block { value   «int» ref a  }\n«int» 9182").linked_code
+    thing2 = NudgeProgram.new("block {\nvalue   «int»\tref \na  }\n«int» 9182").linked_code
+    @context.stacks[:exec].push thing1
+    @context.stacks[:exec].push thing2
+    @i1.go
+    @context.stacks[:bool].peek.value.should == true
+  end
+end

data/spec/instructions/exec/exec_flush_spec.rb

@@ -0,0 +1,37 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecFlushInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecFlushInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @i1 = ExecFlushInstruction.new(@context)
+      @context.reset("block{value «bool» value «int» block {}}\n«bool»false\n«int»88")
+    end
+    
+    describe "\#preconditions?" do
+      it "should check that the :exec stack responds to #depth" do
+        @i1.preconditions?.should == true
+      end
+    end
+    
+    describe "\#cleanup" do
+      it "should remove all items on the :exec stack" do
+        @context.step
+        @context.stacks[:exec].depth.should == 3
+        @i1.go
+        @context.stacks[:exec].depth.should == 0
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_if_spec.rb

@@ -0,0 +1,51 @@
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecIfInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecIfInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @context = Interpreter.new
+      @context.reset
+      @context.enable(ExecIfInstruction)
+      @i1 = ExecIfInstruction.new(@context)
+      @v1 = ValuePoint.new("float",  1.0)
+      @v2 = ValuePoint.new("float", -9.5)
+    end
+
+    describe "\#preconditions?" do
+      it "should check that there are two items on the target stack and at least one :bool" do
+        @context.stacks[:exec].push(@v1)
+        @context.stacks[:exec].push(@v2)
+        @context.stacks[:bool].push(ValuePoint.new("bool", true))
+        @i1.preconditions?.should == true
+      end
+    end
+
+    describe "\#cleanup" do
+      it "should keep the SECOND :exec item if the :bool is true, otherwise the top one" do
+        @context.stacks[:exec].push(@v1)
+        @context.stacks[:exec].push(@v2)
+        @context.stacks[:bool].push(ValuePoint.new("bool", true))
+        @i1.go
+        @context.stacks[:exec].depth.should == 1
+        @context.stacks[:exec].peek.value.should == 1.0
+        
+        @context.stacks[:exec].push(@v1)
+        @context.stacks[:exec].push(@v2)
+        @context.stacks[:bool].push(ValuePoint.new("bool", false))
+        @i1.go
+        @context.stacks[:exec].peek.value.should == -9.5
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_k_spec.rb

@@ -0,0 +1,39 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecKInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecKInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @context = Interpreter.new
+      @i1 = ExecKInstruction.new(@context)
+      @context.reset("block { do int_add do int_subtract }")
+      @context.step # unwrapping the two instructions
+    end
+
+    describe "\#preconditions?" do
+      it "should check that the :exec stack has at least two items" do
+        @i1.preconditions?.should == true
+      end
+    end
+
+    describe "\#cleanup" do
+      it "should delete the item from the second position on the :exec stack" do
+        @context.stacks[:exec].depth.should == 2
+        @i1.go
+        @context.stacks[:exec].depth.should == 1
+        @context.stacks[:exec].peek.tidy.should == "do int_add"
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_pop_spec.rb

@@ -0,0 +1,38 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecPopInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecPopInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @context = Interpreter.new
+      @i1 = ExecPopInstruction.new(@context)
+      @context.reset("block {value «float»\nvalue «float»} \n«float» -2.1\n«float» -2.1")
+    end
+
+    describe "\#preconditions?" do
+      it "should check that the :exec stack has at least one item" do
+        @i1.preconditions?.should == true
+      end
+    end
+
+    describe "\#cleanup" do
+      it "should remove one item from the stack" do
+        @context.step
+        @context.stacks[:exec].depth.should == 2
+        @i1.go
+        @context.stacks[:exec].depth.should == 1
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_rotate_spec.rb

@@ -0,0 +1,40 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecRotateInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecRotateInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @context = Interpreter.new
+      @i1 = ExecRotateInstruction.new(@context)
+      @context.reset("block{value «bool» value «int» value «float»}\n«bool» false\n«int»88\n«float»0.5")
+      @context.step # [pushing the 3 points]
+    end
+
+    describe "\#preconditions?" do
+      it "should check that the :exec stack has at least one item" do
+        @i1.preconditions?.should == true
+      end
+    end
+
+    describe "\#cleanup" do
+      it "should rearrange the three items on the :exec stack" do
+        and_now = @context.stacks[:exec].entries.collect {|i| i.value}
+        and_now.should == [0.5, 88, false] # because the stacks are "backwards" in array form
+        @i1.go
+        and_now = @context.stacks[:exec].entries.collect {|i| i.value}
+        and_now.should == [88, false, 0.5] # bottom one comes to top
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_s_spec.rb

@@ -0,0 +1,41 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecSInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecSInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @context = Interpreter.new
+      @i1 = ExecSInstruction.new(@context)
+      @context.reset("block { do int_add do int_subtract do int_multiply}")
+      @context.step # unwrapping the three instructions
+    end
+
+    describe "\#preconditions?" do
+      it "should check that the :exec stack has at least three items" do
+        @i1.preconditions?.should == true
+      end
+    end
+
+    describe "\#cleanup" do
+      it "should result in the top one [replaced], the old 3rd one, then a block with the 2nd and 3rd" do
+        @context.stacks[:exec].depth.should == 3
+        @i1.go
+        @context.stacks[:exec].depth.should == 3
+        @context.stacks[:exec].entries[2].tidy.should == "do int_add" # old top one
+        @context.stacks[:exec].entries[1].tidy.should == "do int_multiply" # old 3rd one
+        @context.stacks[:exec].entries[0].tidy.should == "block {\n  do int_subtract\n  do int_multiply}"
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_shove_spec.rb

@@ -0,0 +1,68 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecShoveInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecShoveInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @i1 = ExecShoveInstruction.new(@context)
+      @context.clear_stacks
+      @float1 = ValuePoint.new("float", 9.9)
+    end
+    
+    describe "\#preconditions?" do
+      it "should check that there is one :int and at least one :float" do
+        @context.stacks[:int].push(ValuePoint.new("int", 4))
+        @context.stacks[:exec].push(@float1)
+        @i1.preconditions?.should == true
+      end
+    end
+    
+    describe "\#cleanup" do
+      before(:each) do
+        @context.clear_stacks
+        11.times {@context.stacks[:exec].push(@float1)}
+        @context.stacks[:exec].push(ValuePoint.new("float", 1.1)) # making it 12 deep
+      end
+      
+      it "should not move the top item if the integer is negative" do
+        @context.stacks[:int].push(ValuePoint.new("int", -99))
+        @i1.go
+        @context.stacks[:exec].depth.should == 12
+        @context.stacks[:exec].peek.value.should == 1.1
+      end
+      
+      it "should not move the top item if the integer is zero" do
+        @context.stacks[:int].push(ValuePoint.new("int", 0))
+        @i1.go
+        @context.stacks[:exec].depth.should == 12
+        @context.stacks[:exec].peek.value.should == 1.1
+      end
+      
+      it "should move the top item farther down if the value is less than the depth" do
+        @context.stacks[:int].push(ValuePoint.new("int", 1000))
+        @i1.go
+        @context.stacks[:exec].depth.should == 12
+        @context.stacks[:exec].entries[0].value.should == 1.1
+      end
+      
+      it "should move the top item to the bottom if the value is more than the depth" do
+        @context.stacks[:int].push(ValuePoint.new("int", 4))
+        @i1.go
+        @context.stacks[:exec].depth.should == 12
+        @context.stacks[:exec].entries[11].value.should == 9.9
+        @context.stacks[:exec].entries[7].value.should == 1.1
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_swap_spec.rb

@@ -0,0 +1,41 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecSwapInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecSwapInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @myInterpreter = Interpreter.new
+      @i1 = ExecSwapInstruction.new(@myInterpreter)
+      @myInterpreter.reset("block{value «bool»\n value «int»}\n«bool» false\n«int» 88")
+      @myInterpreter.step # [pushing the two points]
+    end
+
+    describe "\#preconditions?" do
+      it "should check that the :exec stack has at least one item" do
+        @i1.preconditions?.should == true
+      end
+    end
+
+    describe "\#cleanup" do
+      it "should push a copy of the top item onto the :exec stack" do
+        @myInterpreter.stacks[:exec].entries[0].value.should == 88
+        @myInterpreter.stacks[:exec].entries[1].value.should == false
+        @i1.go
+        @myInterpreter.stacks[:exec].depth.should == 2
+        @myInterpreter.stacks[:exec].entries[0].value.should == false
+        @myInterpreter.stacks[:exec].entries[1].value.should == 88
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_y_spec.rb

@@ -0,0 +1,41 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecYInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecYInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @context = Interpreter.new
+      @i1 = ExecYInstruction.new(@context)
+      @context.reset("do int_add")
+    end
+
+    describe "\#preconditions?" do
+      it "should check that the :exec stack has at least one item" do
+        @i1.preconditions?.should == true
+      end
+    end
+
+    describe "\#cleanup" do
+      it "should end up with a block {do exec_y [something]} in the second position on the :exec stack" do
+        @context.stacks[:exec].depth.should == 1
+        @i1.go
+        @context.stacks[:exec].depth.should == 2
+        @context.stacks[:exec].peek.tidy.should == "do int_add"
+        @context.stacks[:exec].entries[0].points.should == 3
+        @context.stacks[:exec].entries[0].tidy.should include("do exec_y")
+        @context.stacks[:exec].entries[0].tidy.should include(@context.stacks[:exec].peek.tidy)
+      end
+    end
+  end
+end

data/spec/instructions/exec/exec_yank_spec.rb

@@ -0,0 +1,66 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "../../spec_helper")
+include Nudge
+
+
+describe ExecYankInstruction do
+  
+  it_should_behave_like "every Nudge Instruction"
+  
+  before(:each) do
+    @context = Interpreter.new
+    @i1 = ExecYankInstruction.new(@context)
+  end
+  
+  
+  describe "\#go" do
+    before(:each) do
+      @i1 = ExecYankInstruction.new(@context)
+      @context.clear_stacks
+      @int1 = ValuePoint.new("int", 3)
+    end
+    
+    describe "\#preconditions?" do
+      it "should check that there is one :int and at least one more :int" do
+        @context.stacks[:exec].push(ValuePoint.new("float", -99.99))
+        @context.stacks[:int].push(@int1)
+        @i1.preconditions?.should == true
+      end
+    end
+    
+    describe "\#cleanup" do
+      before(:each) do
+        @context.clear_stacks
+        (1..3).each {|i| @context.stacks[:exec].push(ValuePoint.new("float",i*0.5))}
+      end
+      
+      it "should not change anything if the position integer is negative" do
+        @context.stacks[:int].push(ValuePoint.new("int", -99))
+        @i1.go
+        and_now = @context.stacks[:exec].entries.collect {|i| i.value}
+        and_now.should == [0.5,1.0,1.5]
+      end
+      
+      it "should not change anything if the position integer is zero" do
+        @context.stacks[:int].push(ValuePoint.new("int", 0))
+        @i1.go
+        and_now = @context.stacks[:exec].entries.collect {|i| i.value}
+        and_now.should == [0.5,1.0,1.5]
+      end
+      
+      it "should pull the last item on the stack to the top if the position is more than the stackdepth" do
+        @context.stacks[:int].push(ValuePoint.new("int", 1000))
+        @i1.go
+        and_now = @context.stacks[:exec].entries.collect {|i| i.value}
+        and_now.should == [1.0,1.5, 0.5]
+      end
+      
+      it "should yank the indicated item to the top of the stack, counting from the 'top' 'down'" do
+        @context.stacks[:int].push(ValuePoint.new("int", 1))
+        @i1.go
+        and_now = @context.stacks[:exec].entries.collect {|i| i.value}
+        and_now.should == [0.5,1.5, 1.0]
+      end
+    end
+  end
+end