whitespace-ruby 1.0.0

data/test/whitespace/instructions/heap_access/retrieve_test.rb

@@ -0,0 +1,49 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Retrieve do
+    before do
+      @vm = Whitespace::VM.new
+    end
+
+    describe "#execute" do
+      describe "when the value stack is empty" do
+        it "raises Whitespace::EmptyError" do
+          expect(@vm.vstack.size).must_equal 0
+
+          expect { Retrieve.new(@vm).execute }.must_raise Whitespace::EmptyError
+        end
+      end
+
+      describe "when the value stack has at least 1 element" do
+        describe "when the address does not exist" do
+          it "raises Whitespace::AddressError" do
+            @vm.vstack.push 1
+            @vm.vstack.push :address
+            expect(@vm.vstack.size).must_equal 2
+
+            expect { Retrieve.new(@vm).execute }.must_raise \
+              Whitespace::AddressError
+          end
+        end
+
+        describe "when the address exists" do
+          it "retrieves the value at the given address and puts it on top " \
+              "the value stack" do
+            @vm.memory[:address] = :value
+
+            @vm.vstack.push 1
+            @vm.vstack.push :address
+            expect(@vm.vstack.size).must_equal 2
+
+            Retrieve.new(@vm).execute
+
+            expect(@vm.vstack.pop).must_equal :value
+            expect(@vm.vstack.pop).must_equal 1
+            expect(@vm.vstack.size).must_equal 0
+          end
+        end
+      end
+    end
+  end
+end

data/test/whitespace/instructions/heap_access/store_test.rb

@@ -0,0 +1,44 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Store do
+    before do
+      @vm = Whitespace::VM.new
+    end
+
+    describe "#execute" do
+      describe "when the value stack is empty" do
+        it "raises Whitespace::EmptyError" do
+          expect(@vm.vstack.size).must_equal 0
+
+          expect { Store.new(@vm).execute }.must_raise Whitespace::EmptyError
+        end
+      end
+
+      describe "when the value stack has 1 element" do
+        it "raises Whitespace::EmptyError" do
+          @vm.vstack.push :address
+          expect(@vm.vstack.size).must_equal 1
+
+          expect { Store.new(@vm).execute }.must_raise Whitespace::EmptyError
+        end
+      end
+
+      describe "when the value stack has at least 2 elements" do
+        it "stores the value at the given address in memory" do
+          @vm.vstack.push 1
+          @vm.vstack.push :address
+          @vm.vstack.push :value
+          expect(@vm.vstack.size).must_equal 3
+          expect { @vm.memory[:address] }.must_raise Whitespace::AddressError
+
+          Store.new(@vm).execute
+
+          expect(@vm.memory[:address]).must_equal :value
+          expect(@vm.vstack.pop).must_equal 1
+          expect(@vm.vstack.size).must_equal 0
+        end
+      end
+    end
+  end
+end

data/test/whitespace/instructions/instruction_test.rb

@@ -0,0 +1,11 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Instruction do
+    describe "#execute" do
+      it "raises NotImplementedError" do
+        expect { Instruction.new(:vm).execute }.must_raise NotImplementedError
+      end
+    end
+  end
+end

data/test/whitespace/instructions/io/putc_test.rb

@@ -0,0 +1,42 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Putc do
+    before do
+      @vm = Whitespace::VM.new
+    end
+
+    describe "#execute" do
+      describe "when the value stack is empty" do
+        it "raises Whitespace::EmptyError" do
+          expect { Putc.new(@vm, Whitespace::Console.new).execute }.must_raise \
+            Whitespace::EmptyError
+        end
+      end
+
+      describe "when the value stack has at least 1 element" do
+        describe "when the top element is an ASCII character" do
+          it "outputs it as a character" do
+            @vm.vstack.push 65
+            expect(@vm.vstack.size).must_equal 1
+
+            expect { Putc.new(@vm, Whitespace::Console.new).execute } \
+              .must_output "A"
+            expect(@vm.vstack.size).must_equal 0
+          end
+        end
+
+        describe "when the top element is not an ASCII character" do
+          it "raises ArgumentError" do
+            @vm.vstack.push 0
+            expect(@vm.vstack.size).must_equal 1
+
+            e = expect { Putc.new(@vm, Whitespace::Console.new).execute } \
+              .must_raise ArgumentError
+            expect(e.message).must_match /must be an ASCII character/
+          end
+        end
+      end
+    end
+  end
+end

data/test/whitespace/instructions/io/putn_test.rb

@@ -0,0 +1,42 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Putn do
+    before do
+      @vm = Whitespace::VM.new
+    end
+
+    describe "#execute" do
+      describe "when the value stack is empty" do
+        it "raises Whitespace::EmptyError" do
+          expect { Putn.new(@vm, Whitespace::Console.new).execute }.must_raise \
+            Whitespace::EmptyError
+        end
+      end
+
+      describe "when the value stack has at least 1 element" do
+        describe "when it is an integer" do
+          it "outputs it as an integer" do
+            @vm.vstack.push 65
+            expect(@vm.vstack.size).must_equal 1
+
+            expect { Putn.new(@vm, Whitespace::Console.new).execute } \
+              .must_output "65"
+            expect(@vm.vstack.size).must_equal 0
+          end
+        end
+
+        describe "when it is not an integer" do
+          it "raises ArgumentError" do
+            @vm.vstack.push "6s"
+            expect(@vm.vstack.size).must_equal 1
+
+            e = expect { Putn.new(@vm, Whitespace::Console.new).execute } \
+              .must_raise ArgumentError
+            expect(e.message).must_match /must be an integer: 6s/
+          end
+        end
+      end
+    end
+  end
+end

data/test/whitespace/instructions/io/readc_test.rb

@@ -0,0 +1,71 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Readc do
+    before do
+      @vm = Whitespace::VM.new
+      @stdin = Object.new
+    end
+
+    describe "#execute" do
+      describe "when there is no character" do
+        it "raises ArgumentError" do
+          def @stdin.getc
+          end
+
+          console = Whitespace::Console.new(stdin: @stdin)
+          e = expect { Readc.new(@vm, console).execute }.must_raise \
+            ArgumentError
+          expect(e.message).must_match /must be an ASCII character/
+        end
+      end
+
+      describe "when there is a character" do
+        describe "when it is an ASCII character" do
+          before do
+            def @stdin.getc
+              "A"
+            end
+          end
+
+          describe "when the value stack is empty" do
+            it "raises Whitespace::EmptyError" do
+              expect(@vm.vstack.size).must_equal 0
+
+              console = Whitespace::Console.new(stdin: @stdin)
+              expect { Readc.new(@vm, console).execute }.must_raise \
+                Whitespace::EmptyError
+            end
+          end
+
+          describe "when the value stack has at least 1 element" do
+            it "reads the character and places its integer value at the " \
+                "address in the heap given by the top of the stack" do
+              @vm.vstack.push :address
+              expect(@vm.vstack.size).must_equal 1
+
+              console = Whitespace::Console.new(stdin: @stdin)
+              Readc.new(@vm, console).execute
+
+              expect(@vm.memory[:address]).must_equal 65
+              expect(@vm.vstack.size).must_equal 0
+            end
+          end
+        end
+
+        describe "when it is not an ASCII character" do
+          it "raises ArgumentError" do
+            def @stdin.getc
+              "\a"
+            end
+
+            console = Whitespace::Console.new(stdin: @stdin)
+            e = expect { Readc.new(@vm, console).execute }.must_raise \
+              ArgumentError
+            expect(e.message).must_match /must be an ASCII character/
+          end
+        end
+      end
+    end
+  end
+end

data/test/whitespace/instructions/io/readn_test.rb

@@ -0,0 +1,79 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Readn do
+    before do
+      @vm = Whitespace::VM.new
+      @stdin = Object.new
+    end
+
+    describe "#execute" do
+      describe "when there is no character" do
+        it "raises ArgumentError" do
+          def @stdin.getc
+          end
+
+          console = Whitespace::Console.new(stdin: @stdin)
+          e = expect { Readn.new(@vm, console).execute }.must_raise \
+            ArgumentError
+          expect(e.message).must_match /must be an integer/
+        end
+      end
+
+      describe "when there is a character" do
+        describe "when it is an integer" do
+          before do
+            def @stdin.getc
+              @chars ||= ["-", "5", "\n"]
+              @i ||= 0
+
+              @i += 1
+              @chars[@i - 1]
+            end
+          end
+
+          describe "when the value stack is empty" do
+            it "raises Whitespace::EmptyError" do
+              expect(@vm.vstack.size).must_equal 0
+
+              console = Whitespace::Console.new(stdin: @stdin)
+              expect { Readn.new(@vm, console).execute }.must_raise \
+                Whitespace::EmptyError
+            end
+          end
+
+          describe "when the value stack has at least 1 element" do
+            it "reads the integer and places it at the address in the heap" \
+                "given by the top of the stack" do
+              @vm.vstack.push :address
+              expect(@vm.vstack.size).must_equal 1
+
+              console = Whitespace::Console.new(stdin: @stdin)
+              Readn.new(@vm, console).execute
+
+              expect(@vm.memory[:address]).must_equal -5
+              expect(@vm.vstack.size).must_equal 0
+            end
+          end
+        end
+
+        describe "when it is not an integer" do
+          it "raises ArgumentError" do
+            def @stdin.getc
+              @chars ||= ["x"]
+              @i ||= 0
+
+              @i += 1
+              @chars[@i - 1]
+            end
+
+            console = Whitespace::Console.new(stdin: @stdin)
+            e = expect { Readn.new(@vm, console).execute }.must_raise \
+              ArgumentError
+            expect(e.message).must_match /must be an integer/
+          end
+        end
+      end
+    end
+  end
+end

data/test/whitespace/instructions/stack_manipulation/discard_test.rb

@@ -0,0 +1,30 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Discard do
+    before do
+      @vm = Whitespace::VM.new
+    end
+
+    describe "#execute" do
+      describe "when the value stack is empty" do
+        it "raises Whitespace::EmptyError" do
+          expect { Discard.new(@vm).execute }.must_raise Whitespace::EmptyError
+        end
+      end
+
+      describe "when the value stack is not empty" do
+        it "discards the top element on the value stack" do
+          @vm.vstack.push 1
+          @vm.vstack.push 2
+          @vm.vstack.size.must_equal 2
+
+          Discard.new(@vm).execute
+
+          expect(@vm.vstack.pop).must_equal 1
+          expect(@vm.vstack.size).must_equal 0
+        end
+      end
+    end
+  end
+end

data/test/whitespace/instructions/stack_manipulation/dup_test.rb

@@ -0,0 +1,32 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Dup do
+    before do
+      @vm = Whitespace::VM.new
+    end
+
+    describe "#execute" do
+      describe "when the value stack is empty" do
+        it "raises Whitespace::EmptyError" do
+          expect(@vm.vstack.size).must_equal 0
+
+          expect { Dup.new(@vm).execute }.must_raise Whitespace::EmptyError
+        end
+      end
+
+      describe "when the value stack is not empty" do
+        it "duplicates the top element on the value stack" do
+          @vm.vstack.push 1
+          expect(@vm.vstack.size).must_equal 1
+
+          Dup.new(@vm).execute
+
+          expect(@vm.vstack.pop).must_equal 1
+          expect(@vm.vstack.pop).must_equal 1
+          expect(@vm.vstack.size).must_equal 0
+        end
+      end
+    end
+  end
+end

data/test/whitespace/instructions/stack_manipulation/push_test.rb

@@ -0,0 +1,30 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Push do
+    before do
+      @vm = Whitespace::VM.new
+    end
+
+    describe "initialization" do
+      describe "when given a non-integer value" do
+        it "raises ArgumentError" do
+          e = expect { Push.new(@vm, "1") }.must_raise(ArgumentError)
+          e.message.must_match /must be an integer/
+        end
+      end
+    end
+
+    describe "#execute" do
+      it "pushes the integer onto the value stack" do
+        expect(@vm.vstack.size).must_equal 0
+
+        i = Push.new(@vm, 1)
+        i.execute
+
+        expect(@vm.vstack.pop).must_equal 1
+        expect(@vm.vstack.size).must_equal 0
+      end
+    end
+  end
+end

data/test/whitespace/instructions/stack_manipulation/swap_test.rb

@@ -0,0 +1,43 @@
+require "test_helper"
+
+module Whitespace::ISA
+  describe Swap do
+    before do
+      @vm = Whitespace::VM.new
+    end
+
+    describe "#execute" do
+      describe "when the value stack is empty" do
+        it "raises Whitespace::EmptyError" do
+          expect(@vm.vstack.size).must_equal 0
+
+          expect { Swap.new(@vm).execute }.must_raise Whitespace::EmptyError
+        end
+      end
+
+      describe "when the value stack has one element" do
+        it "raises Whitespace::EmptyError" do
+          @vm.vstack.push 1
+          expect(@vm.vstack.size).must_equal 1
+
+          expect { Swap.new(@vm).execute }.must_raise Whitespace::EmptyError
+        end
+      end
+
+      describe "when the value stack has at least 2 elements" do
+        it "swaps the top two elements on the stack" do
+          @vm.vstack.push 1
+          @vm.vstack.push 2
+          @vm.vstack.push 3
+          expect(@vm.vstack.size).must_equal 3
+
+          Swap.new(@vm).execute
+
+          expect(@vm.vstack.pop).must_equal 2
+          expect(@vm.vstack.pop).must_equal 3
+          expect(@vm.vstack.size).must_equal 1
+        end
+      end
+    end
+  end
+end