flea 0.1.0 → 0.1.1

data/spec/flea/standard_library/division_operator_spec.rb

@@ -1,29 +0,0 @@
-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

@@ -1,45 +0,0 @@
-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

@@ -1,23 +0,0 @@
-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

@@ -1,29 +0,0 @@
-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

@@ -1,59 +0,0 @@
-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

@@ -1,70 +0,0 @@
-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

@@ -1,29 +0,0 @@
-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

data/spec/flea/standard_library/list_predicate_spec.rb

@@ -1,25 +0,0 @@
-require File.dirname(__FILE__) + '/../../spec_helper'
-
-describe "Standard Library" do
-  describe "list?" do
-    before :each do
-      @interpreter = Flea::Interpreter.new
-    end
-    
-    it "should should return true for an empty list" do
-      result = @interpreter.run("(list? '())")
-      result.should == true
-    end
-    
-    it "return true for a populated list" do
-      result = @interpreter.run("(list? '(a b c))")
-      result.should == true
-    end
-    
-    it "should return false for an atom" do
-      result = @interpreter.run("(list? 'a)")
-      result.should == false
-    end
-    
-  end
-end

data/spec/flea/standard_library/list_spec.rb

@@ -1,24 +0,0 @@
-require File.dirname(__FILE__) + '/../../spec_helper'
-
-describe "Standard Library" do
-  describe "list" do
-    before :each do
-      @interpreter = Flea::Interpreter.new
-    end
-    
-    it "should create a list from it's arguments" do
-      result = @interpreter.run('(list 9 2 2)')
-      result.should == [9, 2, 2]
-    end
-    
-    it "should evaluate its arguments before creating the list" do
-      result = @interpreter.run('
-        (define a 2)
-        (define b 9)
-        (list b a a)
-      ')
-      result.should == [9, 2, 2]
-    end
-    
-  end
-end

data/spec/flea/standard_library/list_tail_spec.rb

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

data/spec/flea/standard_library/mutiplication_operator_spec.rb

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

data/spec/flea/standard_library/null_spec.rb

@@ -1,26 +0,0 @@
-require File.dirname(__FILE__) + '/../../spec_helper'
-
-describe "Standard Library" do
-  describe "null?" do
-    before :each do
-      @interpreter = Flea::Interpreter.new
-    end
-  
-    it "should return true for an empty list" do
-      result = @interpreter.run('
-        (null? \'())
-      ')
-      result.should == true
-    end
-    
-    ["1", '"abc"', "(1 2 3)"].each do |value|
-      it "should return false for #{value}" do
-        result = @interpreter.run("
-          (null? (quote #{value}))
-        ")
-        result.should == false
-      end
-    end
-    
-  end
-end

data/spec/flea/standard_library/quote_spec.rb

@@ -1,20 +0,0 @@
-require File.dirname(__FILE__) + '/../../spec_helper'
-
-describe "Standard Library" do
-  describe "quote" do
-    before :each do
-      @interpreter = Flea::Interpreter.new
-    end
-    
-    it "should quote a list" do
-      result = @interpreter.run('(quote (1 2 3))')
-      result.should == [1, 2, 3]
-    end
-    
-    it "should quote a single literal" do
-      result = @interpreter.run('(quote 1)')
-      result.should == 1
-    end
-    
-  end
-end

data/spec/flea/standard_library/rand_spec.rb

@@ -1,25 +0,0 @@
-require File.dirname(__FILE__) + '/../../spec_helper'
-
-describe "Standard Library" do
-  describe "rand" do
-    before :each do
-      @interpreter = Flea::Interpreter.new
-    end
-    
-    10.times do
-      it "should return a random number lower than or equal to 10" do
-        result = @interpreter.run('(rand 10)')
-        result.should < 11
-      end
-      
-      it "should evaluate its arguments" do
-        result = @interpreter.run('
-          (define a 10)
-          (rand a)
-        ')
-        result.should < 11
-      end
-    end
-  
-  end
-end

data/spec/flea/standard_library/read_spec.rb

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

data/spec/flea/standard_library/set_spec.rb

@@ -1,23 +0,0 @@
-require File.dirname(__FILE__) + '/../../spec_helper'
-
-describe "Standard Library" do
-  describe "set!" do
-    before :each do
-      @interpreter = Flea::Interpreter.new
-    end
-    
-    it "should change the value of an existing variable" do
-      @interpreter.run('
-        (define test 1)
-        (set! test 2)')
-      @interpreter.base_environment.find(:test).should == 2
-    end
-    
-    it "should raise error when attempting to set unbound variable" do
-      lambda {
-        @interpreter.run('(set! test 1)')
-      }.should raise_error
-    end
-    
-  end
-end

data/spec/flea/standard_library/string_to_num_spec.rb

@@ -1,28 +0,0 @@
-require File.dirname(__FILE__) + '/../../spec_helper'
-
-describe "Standard Library" do
-  describe "string-to-num" do
-    before :each do
-      @interpreter = Flea::Interpreter.new
-    end
-    
-    it "should convert string to integer" do
-      result = @interpreter.run('(string-to-num "10")')
-      result.should == 10
-    end
-    
-    it "should convert string to float" do
-      result = @interpreter.run('(string-to-num "23.0")')
-      result.should == 23.0
-    end
-    
-    it "should evaluate its arguments" do
-      result = @interpreter.run('
-        (define a 2)
-        (string-to-num a)
-      ')
-      result.should == 2
-    end
-    
-  end
-end

data/spec/flea/standard_library/subtraction_operator_spec.rb

@@ -1,24 +0,0 @@
-require File.dirname(__FILE__) + '/../../spec_helper'
-
-describe "Standard Library" do
-  describe "subtraction operator" do
-    before :each do
-      @interpreter = Flea::Interpreter.new
-    end
-    
-    it "should subtract several numbers" do
-      result = @interpreter.run('(- 9 2 2)')
-      result.should == 5
-    end
-    
-    it "should evaluate its arguments before subtracting them" do
-      result = @interpreter.run('
-        (define a 2)
-        (define b 9)
-        (- b a a)
-      ')
-      result.should == 5
-    end
-    
-  end
-end

data/spec/spec_helper.rb

@@ -1,10 +0,0 @@
-require 'rubygems'
-require 'rspec'
-require 'stringio'
-
-require_files = []
-require_files << File.join(File.dirname(__FILE__), '..', 'lib',  'flea.rb')
-
-require_files.each do |file|
-  require File.expand_path(file)
-end