AmberVM 0.0.19

data/spec/languages/ecma/ecma_spec.rb

@@ -0,0 +1,64 @@
+$: << 'lib'
+
+require 'amber'
+require 'amber/languages'
+require 'amber/languages/ecma'
+
+describe AmberVM::Languages::ECMA do
+  before(:each) do
+    @compiler = AmberVM::Languages::ECMA.new
+    @env = @compiler.env
+  end
+  
+  def run code, &tests 
+    env = @env.dup
+    yield(@compiler.compile(code).execute(@env), @env)
+    yield(@compiler.compile(code).optimize.execute(env), env)
+  end
+  
+  describe "variables" do
+    it "should get varibles" do
+      @env['test'] = 42
+      code = <<-CODE
+        test;
+      CODE
+      
+      run code do |result, env|
+        result.should == 42
+      end
+    end
+    
+    it "should allow to assign literals to variables" do
+      code = <<-CODE
+        test = 23;
+      CODE
+      run code do |result, env|
+        result.should == 23
+        env['test'].val.should == 23
+      end
+    end
+    
+    it "should autocast strings when using <var>++" do
+      code = <<-CODE
+        test = '1.2';
+        test++;
+      CODE
+      run code do |result, env|
+        result.should == '1.2'
+        env['test'].val.should == 2.2
+      end
+    end
+  end
+  
+  describe '+ operator' do
+    it 'should behave like ECMA' do
+      code = <<-CODE
+        1 + "3";
+      CODE
+      run code do |result, env|
+        result.should == "13"
+      end
+    end
+  end
+  
+end

data/spec/languages/ecma_fuku/ecma_array_spec.rb

@@ -0,0 +1,61 @@
+$: << 'lib'
+require 'amber'
+require 'amber/languages'
+require 'amber/languages/ecma_fuku'
+
+describe AmberVM::Languages::ECMA_Fuku do
+  before(:each) do
+    @env = {}
+    @compiler = AmberVM::Languages::ECMA_Fuku.new
+  end
+  
+  def run code
+    @compiler.compile(code).execute(@env)
+  end
+  
+  describe "arrays" do
+    it "should allow accessing data on an array" do
+      @env['test'] = [42]
+      result = run <<-CODE
+        test[0]
+      CODE
+      result.should == 42
+    end
+    it "should allow set data on an array" do
+      @env['test'] = [42]
+      result = run <<-CODE
+        test[0] = 23
+      CODE
+      result.should == 23
+      @env['test'].should == [23]
+      @env['test'][0].should == 23
+    end
+    it "should allow to concat arrays" do
+      a1 = [42]
+      @env['test'] = [a1]
+      result = run <<-CODE
+        test[0][0]
+      CODE
+      result.should == 42
+    end
+    
+    it "should allow to concat arrays when setting values" do
+      a1 = [42]
+      @env['test'] = [a1]
+      result = run <<-CODE
+        test[0][0] = 23
+      CODE
+      result.should == 23
+      @env['test'].should == [[23]]
+    end
+    
+    it "should wrap arrays" do
+      a1 = [42]
+      @env['test'] = a1
+      result = run <<-CODE
+        test[0] = 23
+      CODE
+      a1.should == [23]
+    end
+  end
+end

data/spec/languages/ecma_fuku/ecma_closure_spec.rb

@@ -0,0 +1,33 @@
+$: << 'lib'
+require 'amber'
+require 'amber/languages'
+require 'amber/languages/ecma_fuku'
+
+describe AmberVM::Languages::ECMA_Fuku do
+  before(:each) do
+    @env = {}  # AmberVM::Interpreter.env
+    @compiler = AmberVM::Languages::ECMA_Fuku.new
+  end
+  
+  def run code
+    @compiler.compile(code).execute(@env)
+  end
+  
+  describe "closure" do
+    it "should be created" do
+      pending 'No closures implemented yet.'
+      result = run <<-CODE
+        function createClosure(x) {
+          return function() {
+            return x;
+          };
+        }
+        closure = createClosure(42);
+        createClosure("wrong!");
+        closure();
+      CODE
+      result.should == 42
+    end
+  end
+  
+end

data/spec/languages/ecma_fuku/ecma_function_spec.rb

@@ -0,0 +1,84 @@
+$: << 'lib'
+require 'amber'
+require 'amber/languages'
+require 'amber/languages/ecma_fuku'
+
+describe AmberVM::Languages::ECMA_Fuku do
+  before(:each) do
+    @env = {}
+    @compiler = AmberVM::Languages::ECMA_Fuku.new
+  end
+  
+  def run code
+    @compiler.compile(code).execute(@env)
+  end
+  
+  describe "functions" do
+    it "should handle function definitions without parameters" do
+      res = run <<-EOC
+        function f() {
+          return 42;
+        }
+      EOC
+      res.class.should == Proc
+      @env['f'].should be
+    end
+    
+    it "should handle function definitions with parameters" do
+      res = run <<-EOC
+        function g(x) {
+          return 42 + x;
+        }
+      EOC
+      res.class.should == Proc
+      @env['g'].should be
+    end
+    
+    it "should execute function definitions without parameters" do
+      result = run <<-EOC
+        function f() {
+          return 42;
+        }
+        f();
+      EOC
+      result.should == 42
+    end
+    
+    it "should execute function with parameters" do
+      result = run <<-EOC
+        function g(x) {
+          return 42 + x;
+        }
+        g(2)
+      EOC
+      result.should == 44
+    end
+    
+    it "should execute function that calls a function" do
+      result = run <<-EOC
+        function f() {
+          return 'inner';
+        }
+        function g() {
+          return f();
+        }
+        g();
+      EOC
+      result.should == 'inner'
+    end
+    
+    it "should execute member functions (methods)" do
+      result = run <<-CODE
+        o = {
+          b: function() {
+            return 1;
+          }
+        };
+        o.b();
+      CODE
+      result.should == 1
+    end
+    
+  end
+  
+end

data/spec/languages/ecma_fuku/ecma_literals_spec.rb

@@ -0,0 +1,55 @@
+$: << 'lib'
+require 'amber'
+require 'amber/languages'
+require 'amber/languages/ecma_fuku'
+
+describe AmberVM::Languages::ECMA_Fuku do
+  before(:each) do
+    @compiler = AmberVM::Languages::ECMA_Fuku.new
+    @env = {}
+  end
+  def run code
+    @compiler.compile(code).execute(@env)
+  end
+  
+  describe "literals" do
+    it "should know String literals" do
+      res = run <<-CODE
+        "test"
+      CODE
+      res.should == "test"
+    end
+    it "should know Integer literals" do
+      res = run <<-CODE
+        42
+      CODE
+      res.should == 42
+    end
+    it "should know Float literals" do
+      res = run <<-CODE
+        4.2
+      CODE
+      res.should == 4.2
+    end
+    
+    it "should know complex Float literals" do
+      res = run <<-CODE
+        .2e-10
+      CODE
+      res.should == 0.2e-10
+    end
+    it "should know the false literals" do
+      res = run <<-CODE
+        false
+      CODE
+      res.should_not be_true
+    end
+    it "should know the true literals" do
+      res = run <<-CODE
+        true
+      CODE
+      res.should be_true
+    end
+  end
+  
+end

data/spec/languages/ecma_fuku/ecma_objects_spec.rb

@@ -0,0 +1,133 @@
+$: << 'lib'
+require 'amber'
+require 'amber/languages'
+require 'amber/languages/ecma_fuku'
+require 'ostruct'
+
+describe AmberVM::Languages::ECMA_Fuku do
+  before(:each) do
+    @env = {}
+    @compiler = AmberVM::Languages::ECMA_Fuku.new
+  end
+  
+  def run code
+    @compiler.compile(code).execute(@env)
+  end
+  
+  describe "objects" do
+    
+    it "should see outer functions" do
+      result = run <<-CODE
+        function a() {
+          return 1;
+        }
+        o = {
+          b: function() {
+            return a();
+          }
+        };
+        o.b();
+      CODE
+      result.should == 1
+    end
+    
+    it "should get variables" do
+      result = run <<-CODE
+        obj = { variable: 42 };
+        obj.variable
+      CODE
+      result.should == 42
+    end
+    
+    it "should set variables" do
+      result = run <<-CODE
+        obj = { variable: 42 };
+        obj.variable = 23
+      CODE
+      @env['obj'].variable.should == 23
+    end
+    
+    it "should allow to concat objects variables" do
+      result = run <<-CODE
+        obj = {};
+        obj2 = { variable: 42 };
+        obj.obj = obj2;
+        obj.obj.variable
+      CODE
+      result.should == 42
+    end
+    
+    it "should handle this.member" do
+      result = run <<-CODE
+        obj = {
+          a: 42,
+          b: function() {
+            return this.a;
+          }
+        };
+        obj.b();
+      CODE
+      result.should == 42
+    end
+    
+    it "should handle this.method()" do
+      result = run <<-CODE
+        obj = {
+          a: function() {
+            return 42;
+          },
+          b: function() {
+            return this.a();
+          }
+        };
+        obj.b();
+      CODE
+      result.should == 42
+    end
+    
+  end
+
+  describe "external objects" do
+    it "should get variables" do
+      object = OpenStruct.new
+      object.variable = 42
+      @env['obj'] = object
+      result = run <<-CODE
+        obj.variable
+      CODE
+      result.should == 42
+    end
+    
+    it "should set variables" do
+      object = OpenStruct.new
+      object.variable = 42
+      @env['obj'] = object
+      result = run <<-CODE
+        obj.variable = 23
+      CODE
+      @env['obj'].variable.should == 23
+    end
+    
+    it "should allow to concat objects variables" do
+      object = OpenStruct.new
+      object2 = OpenStruct.new
+      object.obj = object2
+      object2.variable = 42
+      @env['obj'] = object
+      result = run <<-CODE
+        obj.obj.variable
+      CODE
+      result.should == 42
+    end
+    
+    it "should allow to assign literals to variables" do
+      result = run <<-CODE
+        test = 23
+      CODE
+      result.should == 23
+      @env['test'].should == 23
+    end
+    
+  end
+  
+end