opal-cj 0.7.0.beta1

data/spec/filters/unsupported/random.rb

@@ -0,0 +1,4 @@
+opal_filter "RNGs" do
+  fails "Array#shuffle uses given random generator"
+  fails "Array#shuffle uses default random generator"
+end

data/spec/filters/unsupported/ruby_exe.rb

@@ -0,0 +1,5 @@
+opal_filter "ruby_exe" do
+  fails "The break statement in a lambda created at the toplevel returns a value when invoking from the toplevel"
+  fails "The break statement in a lambda created at the toplevel returns a value when invoking from a method"
+  fails "The break statement in a lambda created at the toplevel returns a value when invoking from a block"
+end

data/spec/filters/unsupported/tainted.rb

@@ -0,0 +1,155 @@
+opal_filter 'tainted' do
+  fails "Kernel#to_s returns a tainted result if self is tainted"
+
+  fails "Array#* with a string with a tainted separator taints the result if the array has two or more elements"
+  fails "Array#* with a string with a tainted separator does not taint the result if the array has only one element"
+  fails "Array#* with a string with a tainted separator does not taint the result if the array is empty"
+  fails "Array#* with an integer copies the taint status of the original array if the passed count is not 0"
+  fails "Array#* with an integer copies the taint status of the original array even if the array is empty"
+  fails "Array#* with an integer copies the taint status of the original array even if the passed count is 0"
+
+  fails "Array#+ does not get infected even if an original array is tainted"
+
+  fails "Array#concat is not infected by the other"
+
+  fails "Array#clear keeps tainted status"
+
+  fails "Array#clone copies taint status from the original"
+
+  fails "Array#collect does not copy tainted status"
+
+  fails "Array#collect! keeps tainted status"
+
+  fails "Array#compact does not keep tainted status even if all elements are removed"
+
+  fails "Array#compact! keeps tainted status even if all elements are removed"
+
+  fails "Array#concat keeps tainted status"
+  fails "Array#concat keeps the tainted status of elements"
+
+  fails "Array#delete keeps tainted status"
+
+  fails "Array#delete_at keeps tainted status"
+
+  fails "Array#delete_if keeps tainted status"
+
+  fails "Array#dup copies taint status from the original"
+
+  fails "Array#flatten returns a tainted array if self is tainted"
+
+  fails "Array#inspect taints the result if an element is tainted"
+  fails "Array#inspect does not taint the result if the Array is tainted but empty"
+  fails "Array#inspect taints the result if the Array is non-empty and tainted"
+
+  fails "Array#join with a tainted separator taints the result if the array has two or more elements"
+  fails "Array#join with a tainted separator does not taint the result if the array has only one element"
+  fails "Array#join with a tainted separator does not taint the result if the array is empty"
+  fails "Array#join taints the result if the result of coercing an element is tainted"
+  fails "Array#join does not taint the result if the Array is tainted but empty"
+  fails "Array#join taints the result if the Array is tainted and non-empty"
+
+  fails "Array#pop passed a number n as an argument keeps taint status"
+  fails "Array#pop passed a number n as an argument returns an untainted array even if the array is tainted"
+  fails "Array#pop keeps taint status"
+
+  fails "Array#map! keeps tainted status"
+  fails "Array#map does not copy tainted status"
+
+  fails "Array#shift passed a number n as an argument keeps taint status"
+  fails "Array#shift passed a number n as an argument returns an untainted array even if the array is tainted"
+
+  fails "Array#to_s taints the result if an element is tainted"
+  fails "Array#to_s does not taint the result if the Array is tainted but empty"
+  fails "Array#to_s taints the result if the Array is non-empty and tainted"
+
+  fails "Hash#reject taints the resulting hash"
+  fails "Hash#to_a returns a tainted array if self is tainted"
+  fails "Hash#to_s returns a tainted string if self is tainted and not empty"
+  fails "Hash#inspect returns a tainted string if self is tainted and not empty"
+
+  fails "String#[] with index, length always taints resulting strings when self is tainted"
+  fails "String#[] with Range always taints resulting strings when self is tainted"
+  fails "String#[] with Regexp always taints resulting strings when self or regexp is tainted"
+  fails "String#[] with Regexp, index always taints resulting strings when self or regexp is tainted"
+  fails "String#[] with String taints resulting strings when other is tainted"
+
+  fails "String#capitalize taints resulting string when self is tainted"
+
+  fails "String#downcase taints result when self is tainted"
+
+  fails "String#center with length, padding when padding is tainted and self is untainted returns a tainted string if and only if length is longer than self"
+  fails "String#center with length, padding taints result when self or padstr is tainted"
+
+  fails "String#chomp when passed a String does not taint the result when the argument is tainted"
+  fails "String#chomp when passed a String taints the result if self is tainted"
+  fails "String#chomp when passed '\\n' taints the result if self is tainted"
+  fails "String#chomp when passed '' taints the result if self is tainted"
+  fails "String#chomp when passed nil taints the result if self is tainted"
+  fails "String#chomp when passed nil returns a copy of the String"
+  fails "String#chomp when passed no argument taints the result if self is tainted"
+
+  fails "String#chop taints result when self is tainted"
+
+  fails "String#each_line taints substrings that are passed to the block if self is tainted"
+
+  fails "String#gsub with pattern and replacement taints the result if the original string or replacement is tainted"
+  fails "String#gsub with pattern and Hash taints the result if the original string is tainted"
+  fails "String#gsub with pattern and Hash taints the result if a hash value is tainted"
+
+  fails "String#lines taints substrings that are passed to the block if self is tainted"
+
+  fails "String#ljust with length, padding taints result when self or padstr is tainted"
+  fails "String#ljust with length, padding when padding is tainted and self is untainted returns a tainted string if and only if length is longer than self"
+
+  fails "String#lstrip taints the result when self is tainted"
+
+  fails "String#next taints the result if self is tainted"
+
+  fails "String#reverse taints the result if self is tainted"
+
+  fails "String#rjust with length, padding taints result when self or padstr is tainted"
+  fails "String#rjust with length, padding when padding is tainted and self is untainted returns a tainted string if and only if length is longer than self"
+
+
+  fails "String#rstrip taints the result when self is tainted"
+
+  fails "String#slice with index, length always taints resulting strings when self is tainted"
+  fails "String#slice with Range always taints resulting strings when self is tainted"
+  fails "String#slice with Regexp always taints resulting strings when self or regexp is tainted"
+  fails "String#slice with Regexp, index always taints resulting strings when self or regexp is tainted"
+  fails "String#slice with String taints resulting strings when other is tainted"
+
+  fails "String#split with String taints the resulting strings if self is tainted"
+  fails "String#split with Regexp taints the resulting strings if self is tainted"
+  fails "String#split with Regexp taints an empty string if self is tainted"
+  fails "String#split with Regexp doesn't taints the resulting strings if the Regexp is tainted"
+
+  fails "String#squeeze taints the result when self is tainted"
+
+  fails "String#strip taints the result when self is tainted"
+
+  fails "String#swapcase taints resulting string when self is tainted"
+
+  fails "String#sub with pattern, replacement taints the result if the original string or replacement is tainted"
+  fails "String#sub with pattern and block taints the result if the original string or replacement is tainted"
+
+  fails "String#succ taints the result if self is tainted"
+
+  fails "String#to_s taints the result when self is tainted"
+
+  fails "String#to_str taints the result when self is tainted"
+
+  fails "String#tr taints the result when self is tainted"
+
+  fails "String#tr_s taints the result when self is tainted"
+
+  fails "String#upcase taints result when self is tainted"
+
+  fails "Pathname.new is tainted if path is tainted"
+
+  fails "Enumerable#entries returns a tainted array if self is tainted"
+
+  fails "Enumerable#group_by returns a tainted hash if self is tainted"
+
+  fails "Enumerable#to_a returns a tainted array if self is tainted"
+end

data/spec/filters/unsupported/time.rb

@@ -0,0 +1,21 @@
+opal_filter "Time" do
+  fails "Time.mktime handles microseconds"
+  fails "Time.mktime handles fractional microseconds as a Float"
+  fails "Time.mktime handles fractional microseconds as a Rational"
+  fails "Time.mktime ignores fractional seconds if a passed whole number of microseconds"
+  fails "Time.mktime ignores fractional seconds if a passed fractional number of microseconds"
+
+  fails "Time#strftime returns the fractional seconds digits, default is 9 digits (nanosecond) with %N"
+  fails "Time#strftime with %N formats the nanoseconds of of the second with %N"
+  fails "Time#strftime with %N formats the milliseconds of of the second with %3N"
+  fails "Time#strftime with %N formats the microseconds of of the second with %6N"
+  fails "Time#strftime with %N formats the nanoseconds of of the second with %9N"
+  fails "Time#strftime with %N formats the picoseconds of of the second with %12N"
+  fails "Time#strftime with %z formats a UTC time offset as '+0000'"
+  fails "Time#strftime with %z formats a time with fixed positive offset as '+HHMM'"
+  fails "Time#strftime with %z formats a time with fixed negative offset as '-HHMM'"
+  fails "Time#strftime with %z formats a time with fixed offset as '+/-HH:MM' with ':' specifier"
+  fails "Time#strftime with %z formats a time with fixed offset as '+/-HH:MM:SS' with '::' specifier"
+  fails "Time#strftime with %z rounds fixed offset to the nearest second"
+  fails "Time#strftime with %L formats the milliseconds of of the second"
+end

data/spec/filters/unsupported/trusted.rb

@@ -0,0 +1,80 @@
+opal_filter "Object#trusted/untrusted" do
+  fails "Kernel#to_s returns an untrusted result if self is untrusted"
+
+  fails "Array#+ does not infected even if an original array is untrusted"
+
+  fails "Array#* with an integer copies the untrusted status of the original array if the passed count is not 0"
+  fails "Array#* with an integer copies the untrusted status of the original array even if the array is empty"
+  fails "Array#* with an integer copies the untrusted status of the original array even if the passed count is 0"
+  fails "Array#* with a string with an untrusted separator untrusts the result if the array has two or more elements"
+  fails "Array#* with a string with an untrusted separator does not untrust the result if the array has only one element"
+  fails "Array#* with a string with an untrusted separator does not untrust the result if the array is empty"
+
+  fails "Array#delete keeps untrusted status"
+
+  fails "Array#delete_if keeps untrusted status"
+
+  fails "Array#delete_at keeps untrusted status"
+
+  fails "Array#clear keeps untrusted status"
+
+  fails "Array#clone copies untrusted status from the original"
+
+  fails "Array#collect does not copy untrusted status"
+
+  fails "Array#compact does not keep untrusted status even if all elements are removed"
+
+  fails "Array#compact! keeps untrusted status even if all elements are removed"
+
+  fails "Array#collect! keeps untrusted status"
+
+  fails "Array#concat keeps untrusted status"
+  fails "Array#concat is not infected untrustedness by the other"
+  fails "Array#concat keeps the untrusted status of elements"
+
+  fails "Array#dup copies untrusted status from the original"
+
+  fails "Array#flatten returns an untrusted array if self is untrusted"
+
+  fails "Array#inspect untrusts the result if an element is untrusted"
+  fails "Array#inspect does not untrust the result if the Array is untrusted but empty"
+  fails "Array#inspect untrusts the result if the Array is untrusted"
+
+  fails "Array#join with an untrusted separator untrusts the result if the array has two or more elements"
+  fails "Array#join with an untrusted separator does not untrust the result if the array has only one element"
+  fails "Array#join with an untrusted separator does not untrust the result if the array is empty"
+  fails "Array#join untrusts the result if the result of coercing an element is untrusted"
+  fails "Array#join does not untrust the result if the Array is untrusted but empty"
+  fails "Array#join untrusts the result if the Array is untrusted and non-empty"
+
+  fails "Array#map does not copy untrusted status"
+
+  fails "Array#pop passed a number n as an argument keeps untrusted status"
+  fails "Array#pop passed a number n as an argument returns a trusted array even if the array is untrusted"
+  fails "Array#pop keeps untrusted status"
+
+  fails "Array#map! keeps untrusted status"
+
+  fails "Array#to_s untrusts the result if an element is untrusted"
+  fails "Array#to_s does not untrust the result if the Array is untrusted but empty"
+  fails "Array#to_s untrusts the result if the Array is untrusted"
+
+  fails "Enumerable#to_a returns an untrusted array if self is untrusted"
+
+  fails "Enumerable#entries returns an untrusted array if self is untrusted"
+
+  fails "Enumerable#group_by returns an untrusted hash if self is untrusted"
+
+  fails "Hash#inspect returns an untrusted string if self is untrusted and not empty"
+
+  fails "Hash#to_a returns an untrusted array if self is untrusted"
+
+  fails "Hash#to_s returns an untrusted string if self is untrusted and not empty"
+
+  fails "String#chop untrusts result when self is untrusted"
+
+  fails "String#gsub with pattern and replacement untrusts the result if the original string or replacement is untrusted"
+  fails "String#gsub with pattern and Hash untrusts the result if the original string is untrusted"
+  fails "String#gsub with pattern and Hash untrusts the result if a hash value is untrusted"
+  fails "String#gsub with pattern and block untrusts the result if the original string or replacement is untrusted"
+end

data/spec/lib/builder_processors_spec.rb

@@ -0,0 +1,27 @@
+require 'lib/spec_helper'
+require 'opal/builder_processors'
+
+describe Opal::Builder::RubyProcessor do
+  it 'compiles ruby to js' do
+    processor = described_class.new('puts 5', '-e')
+    expect(processor.to_s).to include('$puts(5)')
+  end
+
+  describe ':requirable option' do
+    it 'is respected' do
+      processor = described_class.new('puts 5', '-e', requirable: true)
+      expect(processor.to_s).to include('Opal.modules[')
+    end
+
+    it 'defaults to "false"' do
+      processor = described_class.new('puts 5', '-e')
+      expect(processor.to_s).not_to include('Opal.modules[')
+    end
+  end
+
+  it 'fills required_trees' do
+    processor = described_class.new('require_tree "./pippo"', '-e')
+    expect(processor.required_trees).to eq(['pippo'])
+  end
+end
+

data/spec/lib/builder_spec.rb

@@ -0,0 +1,66 @@
+require 'lib/spec_helper'
+require 'opal/builder'
+require 'lib/shared/path_reader_shared'
+
+describe Opal::Builder do
+  subject(:builder) { described_class.new(options) }
+  let(:options) { {} }
+
+  it 'compiles opal' do
+    expect(builder.build('opal').to_s).to match('(Opal);')
+  end
+
+  it 'respect #require_tree calls' do
+    begin
+      Opal.append_path(File.expand_path('..', __FILE__))
+      expect(builder.build('fixtures/require_tree_test').to_s).to include('Opal.modules["fixtures/required_tree_test/required_file1"]')
+    ensure
+      Opal.instance_variable_set('@paths', nil)
+    end
+  end
+
+  describe ':stubs' do
+    let(:options) { {stubs: ['foo']} }
+
+    it 'compiles them as empty files' do
+      source = 'require "foo"'
+      expect(builder.default_processor).to receive('new').with(source, anything, anything).once.and_call_original
+      expect(builder.default_processor).to receive('new').with('',     anything, anything).once.and_call_original
+
+      builder.build_str(source, 'bar.rb')
+    end
+  end
+
+  describe ':prerequired' do
+    let(:options) { {prerequired: ['foo']} }
+
+    it 'compiles them as empty files' do
+      source = 'require "foo"'
+      builder.build_str(source, 'bar.rb')
+    end
+  end
+
+  describe ':preload' do
+    let(:options) { {preload: ['base64']} }
+
+    it 'compiles them as empty files' do
+      source = 'puts 5'
+      expect(builder.default_processor).to receive('new').with(anything, 'base64', anything).once.and_call_original
+      expect(builder.default_processor).to receive('new').with(source, anything, anything).once.and_call_original
+
+      builder.build_str(source, 'bar.rb')
+    end
+  end
+
+  describe 'requiring a native .js file' do
+    it 'can be required without specifying extension' do
+      builder.build_str('require "corelib/runtime"', 'foo')
+      expect(builder.to_s).to start_with('(function(undefined)')
+    end
+
+    it 'can be required specifying extension' do
+      builder.build_str('require "corelib/runtime.js"', 'foo')
+      expect(builder.to_s).to start_with('(function(undefined)')
+    end
+  end
+end

data/spec/lib/cli_spec.rb

@@ -0,0 +1,134 @@
+require 'lib/spec_helper'
+require 'opal/cli'
+require 'stringio'
+
+describe Opal::CLI do
+  let(:fake_stdout) { StringIO.new }
+  let(:file)    { File.expand_path('../fixtures/opal_file.rb', __FILE__) }
+  let(:options) { nil }
+  subject(:cli) { described_class.new(options) }
+
+  context 'with a file' do
+    let(:options) { {:file => File.open(file)} }
+
+    it 'runs the file' do
+      expect_output_of{ subject.run }.to eq("hi from opal!\n")
+    end
+  end
+
+  describe ':evals option' do
+    context 'without evals and paths' do
+      it 'raises ArgumentError' do
+        expect { subject.run }.to raise_error(ArgumentError)
+      end
+    end
+
+    context 'with one eval' do
+      let(:options) { {:evals => ['puts "hello"']} }
+
+      it 'executes the code' do
+        expect_output_of{ subject.run }.to eq("hello\n")
+      end
+    end
+
+    context 'with many evals' do
+      let(:options) { {:evals => ['puts "hello"', 'puts "ciao"']} }
+
+      it 'executes the code' do
+        expect_output_of{ subject.run }.to eq("hello\nciao\n")
+      end
+    end
+  end
+
+  describe ':requires options' do
+    context 'with an absolute path' do
+      let(:options) { {:requires => [file], :evals => ['']} }
+      it 'requires the file' do
+        expect_output_of{ subject.run }.to eq("hi from opal!\n")
+      end
+    end
+
+    context 'with a path relative to a load path' do
+      let(:dir)      { File.dirname(file) }
+      let(:filename) { File.basename(file) }
+      let(:options)  { {:load_paths => [dir], :requires => [filename], :evals => ['']} }
+      it 'requires the file' do
+        expect_output_of{ subject.run }.to eq("hi from opal!\n")
+      end
+    end
+  end
+
+  describe ':gems options' do
+    context 'with a Gem name' do
+      let(:dir)      { File.dirname(file) }
+      let(:filename) { File.basename(file) }
+      let(:gem_name) { 'mspec' }
+      let(:options)  { {:gems => [gem_name], :evals => ['']} }
+
+      it "adds the gem's lib paths to Opal.path" do
+        cli.run
+
+        spec = Gem::Specification.find_by_name(gem_name)
+        spec.require_paths.each do |require_path|
+          require_path = File.join(spec.gem_dir, require_path)
+          expect(Opal.paths).to include(require_path)
+        end
+      end
+    end
+  end
+
+  describe ':stubs options' do
+    context 'with a stubbed file' do
+      let(:dir)      { File.dirname(file) }
+      let(:filename) { File.basename(file) }
+      let(:stub_name) { 'an_unparsable_lib' }
+      let(:options)  { {:stubs => [stub_name], :evals => ["require #{stub_name.inspect}"]} }
+
+      it "adds the gem's lib paths to Opal.path" do
+        expect_output_of{ subject.run }.to eq('')
+      end
+    end
+  end
+
+  describe ':verbose option' do
+    let(:options)  { {:verbose => true, :evals => ['']} }
+
+    it 'sets the verbose flag (currently unused)' do
+      expect(cli.verbose).to eq(true)
+    end
+  end
+
+  describe ':compile option' do
+    let(:options)  { {:compile => true, :evals => ['puts 5']} }
+
+    it 'outputs the compiled javascript' do
+      expect_output_of{ subject.run }.to include(".$puts(5)")
+      expect_output_of{ subject.run }.not_to include("5\n")
+    end
+  end
+
+
+  describe ':load_paths options' do
+    let(:dir)      { File.dirname(file) }
+    let(:filename) { File.basename(file) }
+    let(:options)  { {:load_paths => [dir], :requires => [filename], :evals => ['']} }
+    it 'requires files' do
+      expect_output_of{ subject.run }.to eq("hi from opal!\n")
+    end
+  end
+
+  def expect_output_of
+    @output, _result = output_and_result_of { yield }
+    expect(@output)
+  end
+
+  def output_and_result_of
+    stdout = described_class.stdout
+    described_class.stdout = fake_stdout
+    result = yield
+    output = fake_stdout.tap(&:rewind).read
+    return output, result
+  ensure
+    described_class.stdout = stdout
+  end
+end