smalruby-editor 0.1.6-x86-mingw32 → 0.1.7-x86-mingw32

data/spec/models/concerns/ruby_to_block/block/motion_turn_spec.rb

@@ -0,0 +1,54 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::MotionTurn, to_blocks: true do
+  _parts = <<-EOS
+turn
+  EOS
+  describe compact_source_code(_parts), on_start_data: true do
+    __parts = _parts
+    let(:parts) { __parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+          <block type="motion_turn" />
+      XML
+    end
+  end
+
+  _parts = <<-EOS
+car1.turn
+  EOS
+  describe compact_source_code(_parts), character_new_data: true do
+    __parts = _parts
+    let(:parts) { __parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+    <field name="NAME">car1</field>
+    <statement name="DO">
+      <block type="motion_turn" />
+    </statement>
+      XML
+    end
+  end
+
+  _parts = <<-EOS
+turn
+  EOS
+  describe compact_source_code(_parts) do
+    __parts = _parts
+    let(:data) { __parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="ruby_statement">
+    <field name="STATEMENT">turn</field>
+  </block>
+      XML
+    end
+  end
+end

data/spec/models/concerns/ruby_to_block/block/require_smalruby_spec.rb

@@ -0,0 +1,39 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::RequireSmalruby, to_blocks: true do
+  _data = 'require "smalruby"'
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it { should eq('') }
+  end
+
+  _data = '   require "smalruby"'
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it { should eq('') }
+  end
+
+  _data = 'require "smalruby"   '
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it { should eq('') }
+  end
+
+  _data = '   require   "smalruby"   '
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it { should eq('') }
+  end
+end

data/spec/models/concerns/ruby_to_block/block/ruby_comment_spec.rb

@@ -0,0 +1,55 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::RubyComment, to_blocks: true do
+  _data = <<-EOS
+# 逃げる車
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="ruby_comment">
+    <field name="COMMENT">逃げる車</field>
+  </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+#   逃げる車
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="ruby_comment">
+    <field name="COMMENT">  逃げる車</field>
+  </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+#逃げる車
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="ruby_statement">
+    <field name="STATEMENT">#逃げる車</field>
+  </block>
+      XML
+    end
+  end
+end

data/spec/models/concerns/ruby_to_block/block/ruby_statement_spec.rb

@@ -0,0 +1,113 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::RubyStatement, to_blocks: true do
+  parts = <<-EOS
+s = :a
+case s
+when :a
+  puts "エー"
+when :b
+  puts "ビー"
+end
+  EOS
+  describe compact_source_code(parts), on_start_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+          <block type="ruby_statement">
+            <field name="STATEMENT">s = :a</field>
+            <next>
+              <block type="ruby_statement">
+                <field name="STATEMENT">case s</field>
+                <next>
+                  <block type="ruby_statement">
+                    <field name="STATEMENT">when :a</field>
+                    <next>
+                      <block type="ruby_statement">
+                        <field name="STATEMENT">  puts &quot;エー&quot;</field>
+                        <next>
+                          <block type="ruby_statement">
+                            <field name="STATEMENT">when :b</field>
+                            <next>
+                              <block type="ruby_statement">
+                                <field name="STATEMENT">  puts &quot;ビー&quot;</field>
+                                <next>
+                                  <block type="ruby_statement">
+                                    <field name="STATEMENT">end</field>
+                                  </block>
+                                </next>
+                              </block>
+                            </next>
+                          </block>
+                        </next>
+                      </block>
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+require "smalruby"
+
+s = :a
+case s
+when :a
+  puts "エー"
+when :b
+  puts "ビー"
+end
+  EOS
+  describe compact_source_code(parts) do
+    _parts = parts
+    let(:data) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="ruby_statement">
+    <field name="STATEMENT">s = :a</field>
+    <next>
+      <block type="ruby_statement">
+        <field name="STATEMENT">case s</field>
+        <next>
+          <block type="ruby_statement">
+            <field name="STATEMENT">when :a</field>
+            <next>
+              <block type="ruby_statement">
+                <field name="STATEMENT">  puts &quot;エー&quot;</field>
+                <next>
+                  <block type="ruby_statement">
+                    <field name="STATEMENT">when :b</field>
+                    <next>
+                      <block type="ruby_statement">
+                        <field name="STATEMENT">  puts &quot;ビー&quot;</field>
+                        <next>
+                          <block type="ruby_statement">
+                            <field name="STATEMENT">end</field>
+                          </block>
+                        </next>
+                      </block>
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </next>
+      </block>
+    </next>
+  </block>
+      XML
+    end
+  end
+end

data/spec/models/concerns/ruby_to_block/block/shared/block_examples.rb

@@ -0,0 +1,44 @@
+shared_context ':to_blocks', to_blocks: true do
+  let(:source_code) { SourceCode.new(data: data) }
+
+  subject { source_code.to_blocks }
+end
+
+shared_context ':character_new_data', character_new_data: true do
+  let(:data) {
+    <<-EOS.strip_heredoc
+require "smalruby"
+
+car1 = Character.new(costume: "car1.png", x: 0, y: 0, angle: 0)
+#{parts}
+    EOS
+  }
+end
+
+shared_context ':on_start_data', on_start_data: true do
+  let(:data) {
+    <<-EOS.strip_heredoc
+require "smalruby"
+
+car1 = Character.new(costume: "car1.png", x: 0, y: 0, angle: 0)
+
+car1.on(:start) do
+  #{parts.lines.join('  ')}
+end
+    EOS
+  }
+end
+
+class EqBlockXml < RSpec::Matchers::BuiltIn::Eq
+  def matches?(actual)
+    indent = @expected.slice(/\A(\s*).*$/, 1).length
+    re = /\A {#{indent},}/
+    @actual = actual.lines.select { |l| re.match(l) }.join
+    @actual = actual if @actual.empty?
+    match(@expected, @actual)
+  end
+end
+
+def eq_block_xml(xml)
+  EqBlockXml.new(xml)
+end

data/spec/models/concerns/ruby_to_block/block/sound_spec.rb

@@ -0,0 +1,46 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block, '音ジャンル', to_blocks: true do
+  parts = <<-EOS
+car1.on(:start) do
+  play(name: "piano_do.wav")
+end
+car1.play(name: "piano_do.wav")
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+    <field name="NAME">car1</field>
+    <statement name="DO">
+      <block type="events_on_start">
+        <statement name="DO">
+          <block type="sound_play" inline="true">
+            <value name="NAME">
+              <block type="sound_preset_sounds">
+                <field name="NAME">piano_do.wav</field>
+              </block>
+            </value>
+          </block>
+        </statement>
+        <next>
+          <block type="sound_play" inline="true">
+            <value name="NAME">
+              <block type="sound_preset_sounds">
+                <field name="NAME">piano_do.wav</field>
+              </block>
+            </value>
+          </block>
+        </next>
+      </block>
+    </statement>
+      XML
+    end
+  end
+end

data/spec/models/concerns/ruby_to_block/block_spec.rb

@@ -0,0 +1,49 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block do
+  describe '.new' do
+    subject { described_class.new(type) }
+
+    context '引数がruby_statementの場合'do
+      let(:type) { 'ruby_statement' }
+
+      it { should be_instance_of(described_class::RubyStatement) }
+    end
+  end
+
+  describe '.statement_regexp' do
+    subject { described_class.statement_regexp }
+
+    it { should be_kind_of(Regexp) }
+    it {
+      expect(subject.to_s)
+        .to match(/#{Regexp.quote('|(?<ruby_statement>^.*$))')}$/)
+    }
+    its(:names) { should include('ruby_statement') }
+  end
+
+  describe '.value_regexp' do
+    subject { described_class.value_regexp }
+
+    it { should be_kind_of(Regexp) }
+    it {
+      expect(subject.to_s)
+        .to match(/#{Regexp.quote('|(?<ruby_expression>^.*$))')}$/)
+    }
+    its(:names) { should include('ruby_expression') }
+  end
+
+  describe '.regexp' do
+    subject { described_class.regexp(type) }
+
+    context '引数がruby_statementの場合'do
+      let(:type) { 'ruby_statement' }
+
+      it { should be_kind_of(Regexp) }
+      it { should eq(Regexp.new(described_class::RubyStatement.regexp)) }
+    end
+  end
+end