flea 0.1.0

data/spec/flea/standard_library/addition_operator_spec.rb

@@ -0,0 +1,23 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "addition operator" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should add several numbers" do
+      result = @interpreter.run('(+ 1 2 3)')
+      result.should == 6
+    end
+    
+    it "should evaluate its arguments before adding them" do
+      result = @interpreter.run('
+        (define a 2)
+        (+ a a a)
+      ')
+      result.should == 6
+    end
+    
+  end
+end

data/spec/flea/standard_library/append_spec.rb

@@ -0,0 +1,17 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "append" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "union of two lists" do
+      result = @interpreter.run('
+        (append (quote (1 2 3)) (quote (1 2 3)))
+      ')
+      result.should == [1, 2, 3, 1, 2, 3]
+    end
+    
+  end
+end

data/spec/flea/standard_library/begin_spec.rb

@@ -0,0 +1,20 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "begin" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+  
+    it "should execute each expression after the begin call and return final value" do
+      result = @interpreter.run('
+        (begin
+          (define test 1)
+          (set! test 2))
+      ')
+      result.should == 2
+      @interpreter.base_environment.find(:test).should == 2
+    end
+    
+  end
+end

data/spec/flea/standard_library/car_spec.rb

@@ -0,0 +1,17 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "car" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should return first item of list" do
+      result = @interpreter.run('
+        (car (quote (10 2 2)))
+      ')
+      result.should == 10
+    end
+    
+  end
+end

data/spec/flea/standard_library/cdr_spec.rb

@@ -0,0 +1,17 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "cdr" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should return remainder of list" do
+      result = @interpreter.run('
+        (cdr (quote (10 2 2)))
+      ')
+      result.should == [2, 2]
+    end
+    
+  end
+end

data/spec/flea/standard_library/cons_spec.rb

@@ -0,0 +1,25 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "cons" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should create a list from an atom and an empty list" do
+      result = @interpreter.run("(cons 'a '())")
+      result.should == [:a]
+    end
+    
+    it "should create a list from a pair of lists" do
+      result = @interpreter.run("(cons '(a) '(b c d))")
+      result.should == [[:a], :b, :c, :d]
+    end
+    
+    it "should push an atom on an existing list" do
+      result = @interpreter.run('(cons "a" \'(b c ))')
+      result.should == ["a", :b, :c]
+    end
+    
+  end
+end

data/spec/flea/standard_library/display_spec.rb

@@ -0,0 +1,36 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "display" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+      @old_stdout = $stdout
+      @buffer = StringIO.new
+      $stdout = @buffer
+    end
+    
+    it "should output simple literal" do
+      @interpreter.run('(display 1)')
+      @buffer.string.should == "1"
+    end
+    
+    it "should output a list" do
+      @interpreter.run('(display (quote (1 2 3)))')
+      @buffer.string.should == "(1 2 3)"
+    end
+    
+    it "should output true and false using Scheme external representation" do
+      @interpreter.run('(display #t)(display #f)')
+      @buffer.string.should == "#t#f"
+    end
+    
+    it "should return the same value that it displayed" do
+      result = @interpreter.run('(display "abc")')
+      result.should == "abc"
+    end
+    
+    after :each do
+      $stdout = @old_stdout
+    end
+  end
+end

data/spec/flea/standard_library/division_operator_spec.rb

@@ -0,0 +1,29 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "division operator" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should divide several integers" do
+      result = @interpreter.run('(/ 10 2 2)')
+      result.should == 2
+    end
+    
+    it "should divide several floats" do
+      result = @interpreter.run('(/ 10.0 2 2)')
+      result.should == 2.5
+    end
+    
+    it "should evaluate its arguments before dividing them" do
+      result = @interpreter.run('
+        (define a 2)
+        (define b 10)
+        (/ b a a)
+      ')
+      result.should == 2
+    end
+    
+  end
+end

data/spec/flea/standard_library/equality_operator_spec.rb

@@ -0,0 +1,45 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "equality operator" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    context "for an expression that should evaluate to true" do
+      it "should return the equality of several arguments" do
+        result = @interpreter.run('
+          (= 2 2 2)
+        ')
+        result.should == true
+      end
+      
+      it "should evaluate its arguments before comparing them" do
+        result = @interpreter.run('
+          (define a 2)
+          (= a a a)
+        ')
+        result.should == true
+      end
+    end
+    
+    context "for an expression that should evaluate to false" do
+      it "should return the equality of several arguments" do
+        result = @interpreter.run('
+          (= 2 2 4)
+        ')
+        result.should == false
+      end
+      
+      it "should evaluate its arguments before comparing them" do
+        result = @interpreter.run('
+          (define a 2)
+          (define b 3)
+          (= a a b)
+        ')
+        result.should == false
+      end
+    end
+    
+  end
+end

data/spec/flea/standard_library/gets_spec.rb

@@ -0,0 +1,23 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "gets" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+      @old_stdin = $stdin
+      @buffer = StringIO.new
+      $stdin = @buffer
+    end
+    
+    it "should get input from STDIN" do
+      @buffer.string = "test\n"
+      result = @interpreter.run('(gets)')
+      result.should == "test\n"
+    end
+    
+    after :each do
+      $stdin = @old_stdin
+    end
+    
+  end
+end

data/spec/flea/standard_library/greater_than_spec.rb

@@ -0,0 +1,29 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "greater-than?" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "return true if it's first argument is larger than all the others" do
+      result = @interpreter.run('(greater-than? 10 1 2 3 4)')
+      result.should == true
+    end
+    
+    it "return false if it's first argument is not larger than all the others" do
+      result = @interpreter.run('(greater-than? 10 1 2 3 45)')
+      result.should == false
+    end
+    
+    it "should evaluate its arguments" do
+      result = @interpreter.run('
+        (define a 2)
+        (define b 10)
+        (greater-than? b a a)
+      ')
+      result.should == true
+    end
+    
+  end
+end

data/spec/flea/standard_library/if_spec.rb

@@ -0,0 +1,59 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "if" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    context "only with consequent" do
+      it "should execute consequent" do
+        @interpreter.run('
+          (if #t
+            (define consequent 1))
+        ')
+        @interpreter.base_environment.should have_variable :consequent
+      end
+      
+      it "should not execute consequent" do
+        @interpreter.run('
+          (if #f
+            (define consequent 1))
+        ')
+        @interpreter.base_environment.should_not have_variable :consequent
+      end
+      
+      it "should evaluate arguments before deciding on execution" do
+        @interpreter.run('
+          (define test #t)
+          (if test
+            (define consequent 1))
+        ')
+        @interpreter.base_environment.should have_variable :consequent
+      end
+    end
+    
+    context "with consequent and alternative" do
+      it "should execute alternative" do
+        @interpreter.run('
+          (if #f
+            (define consequent 1)
+            (define alternative 1))
+        ')
+        @interpreter.base_environment.should_not have_variable :consequent
+        @interpreter.base_environment.should have_variable :alternative
+      end
+      
+      it "should execute consequent" do
+        @interpreter.run('
+          (if #t
+            (define consequent 1)
+            (define alternative 1))
+        ')
+        @interpreter.base_environment.should have_variable :consequent
+        @interpreter.base_environment.should_not have_variable :alternative
+      end
+    end
+    
+  end
+end

data/spec/flea/standard_library/lambda_spec.rb

@@ -0,0 +1,70 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "lambda" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+      @old_stdout = $stdout
+      @buffer = StringIO.new
+      $stdout = @buffer
+    end
+    
+    after :each do
+      $stdout = @old_stdout
+    end
+    
+    it "should create a lambda that takes no arguments" do
+      result = @interpreter.run('
+        (lambda () ())
+      ')
+      result.should be_a Proc
+    end
+
+    it "should create and execute a lambda that takes no arguments" do
+      result = @interpreter.run('
+        ((lambda () 
+          (display 1)))
+      ')
+      result.should == 1
+    end
+    
+    it "should create a lambda that takes a single argument" do
+      result = @interpreter.run('
+        (lambda a ())
+      ')
+      result.should be_a Proc
+    end
+    
+    it "should take list as single argument" do
+      result = @interpreter.run('
+        ((lambda a
+          (display a)) 1 2 3)
+      ')
+      result.should == [1, 2, 3]
+    end
+    
+    it "should create a lambda that takes multiple arguments" do
+      result = @interpreter.run('
+        (lambda (a b c) ())
+      ')
+      result.should be_a Proc
+    end
+    
+    it "should create aand execute a lambda that takes multiple arguments" do
+      result = @interpreter.run('
+        ((lambda (a b c)
+          (display (+ a b c))) 1 2 3)
+      ')
+      result.should == 6
+    end
+    
+    it "should raise an error when lamda is defined using same argument name more than once" do
+      lambda {
+        @interpreter.run('
+          (lambda (a a a) ())
+        ')
+      }.should raise_error
+    end
+    
+  end
+end

data/spec/flea/standard_library/less_than_spec.rb

@@ -0,0 +1,29 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "less-than?" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "return true if it's first argument is smaller than all the others" do
+      result = @interpreter.run('(less-than? 5 10 15 20)')
+      result.should == true
+    end
+    
+    it "return false if it's first argument is not smaller than all the others" do
+      result = @interpreter.run('(less-than? 10 1 2 3 45)')
+      result.should == false
+    end
+    
+    it "should evaluate its arguments" do
+      result = @interpreter.run('
+        (define a 2)
+        (define b 10)
+        (less-than? b a a)
+      ')
+      result.should == false
+    end
+    
+  end
+end