smalruby-editor 0.1.6 → 0.1.7

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

data/spec/models/concerns/ruby_to_block_spec.rb

@@ -1,268 +1,436 @@
 # -*- coding: utf-8 -*-
 require 'spec_helper'
-
-def compact_source_code(source_code)
-  source_code.lines.map(&:strip).reject(&:empty?).join(';')[0...80]
-end
+require_relative 'ruby_to_block/block/shared/block_examples'
 
 # rubocop:disable EmptyLines, LineLength
 
 describe RubyToBlock do
-  describe '#to_blocks' do
-    let(:source_code) { SourceCode.new(data: data) }
-
-    subject { source_code.to_blocks }
-
-    _data = <<-EOS.strip_heredoc
-require "smalruby"
-    EOS
-    describe compact_source_code(_data) do
-      __data = _data
-      let(:data) { __data }
-
-      it { should eq('') }
-    end
-
-    _data = <<-EOS.strip_heredoc
+  describe '#to_blocks', to_blocks: true  do
+    context '成功する場合' do
+      _data = <<-EOS
 require "smalruby"
 
 car1 = Character.new(costume: "car1.png", x: 0, y: 0, angle: 0)
 
 car1.on(:start) do
-
+  loop do
+    move(10)
+    turn_if_reach_wall
+  end
 end
-    EOS
-    describe compact_source_code(_data) do
-      __data = _data
-      let(:data) { __data }
+      EOS
+      describe compact_source_code(_data) do
+        __data = _data
+        let(:data) { __data }
 
-      it '結果が正しいこと' do
-        should eq(<<-XML.strip_heredoc)
-<xml xmlns="http://www.w3.org/1999/xhtml">
+        it '結果が正しいこと' do
+          should eq_block_xml(<<-XML)
   <character name="car1" x="0" y="0" angle="0" costumes="car1.png" />
   <block type="character_new">
     <field name="NAME">car1</field>
     <statement name="DO">
-      <block type="events_on_start" />
+      <block type="events_on_start">
+        <statement name="DO">
+          <block type="control_loop">
+            <statement name="DO">
+              <block type="motion_move" inline="true">
+                <value name="STEP">
+                  <block type="math_number">
+                    <field name="NUM">10</field>
+                  </block>
+                </value>
+                <next>
+                  <block type="motion_turn_if_reach_wall" />
+                </next>
+              </block>
+            </statement>
+          </block>
+        </statement>
+      </block>
     </statement>
   </block>
-</xml>
-        XML
+          XML
+        end
       end
-    end
 
-    _data = <<-EOS.strip_heredoc
+      _data = <<-EOS
 require "smalruby"
 
-car1 = Character.new(costume: "car1.png", x: 0, y: 0, angle: 0)
-cat1 = Character.new(costume: "cat1.png", x: 200, y: 150, angle: 90)
+car1 = Character.new(costume: "car2.png", x: 0, y: 0, angle: 0)
+# 逃げる車
 
 car1.on(:start) do
-
+  loop do
+    move(6)
+    if reach_wall?
+      turn
+    end
+  end
 end
 
-car1.on(:start) do
-
+car1.on(:key_down, K_LEFT) do
+  rotate(-15)
 end
 
-
-cat1.on(:start) do
-
+car1.on(:key_down, K_RIGHT) do
+  rotate(15)
 end
-    EOS
-    describe compact_source_code(_data) do
-      __data = _data
-      let(:data) { __data }
-
-      it '結果が正しいこと' do
-        should eq(<<-XML.strip_heredoc)
-<xml xmlns="http://www.w3.org/1999/xhtml">
-  <character name="car1" x="0" y="0" angle="0" costumes="car1.png" />
-  <character name="cat1" x="200" y="150" angle="90" costumes="cat1.png" />
-  <block type="character_new">
-    <field name="NAME">car1</field>
-    <statement name="DO">
-      <block type="events_on_start">
-        <next>
-          <block type="events_on_start" />
-        </next>
+      EOS
+      describe compact_source_code(_data) do
+        __data = _data
+        let(:data) { __data }
+
+        it '結果が正しいこと' do
+          should eq_block_xml(<<-XML)
+  <character name="car1" x="0" y="0" angle="0" costumes="car2.png" />
+  <block type="ruby_comment">
+    <field name="COMMENT">逃げる車</field>
+    <next>
+      <block type="character_new">
+        <field name="NAME">car1</field>
+        <statement name="DO">
+          <block type="events_on_start">
+            <statement name="DO">
+              <block type="control_loop">
+                <statement name="DO">
+                  <block type="motion_move" inline="true">
+                    <value name="STEP">
+                      <block type="math_number">
+                        <field name="NUM">6</field>
+                      </block>
+                    </value>
+                    <next>
+                      <block type="control_if" inline="true">
+                        <value name="COND">
+                          <block type="motion_reach_wall" />
+                        </value>
+                        <statement name="THEN">
+                          <block type="motion_turn" />
+                        </statement>
+                      </block>
+                    </next>
+                  </block>
+                </statement>
+              </block>
+            </statement>
+            <next>
+              <block type="events_on_key_push_or_down">
+                <field name="KEY">K_LEFT</field>
+                <field name="POD">down</field>
+                <statement name="DO">
+                  <block type="motion_rotate_left" inline="true">
+                    <value name="ANGLE">
+                      <block type="math_number">
+                        <field name="NUM">15</field>
+                      </block>
+                    </value>
+                  </block>
+                </statement>
+                <next>
+                  <block type="events_on_key_push_or_down">
+                    <field name="KEY">K_RIGHT</field>
+                    <field name="POD">down</field>
+                    <statement name="DO">
+                      <block type="motion_rotate_right" inline="true">
+                        <value name="ANGLE">
+                          <block type="math_number">
+                            <field name="NUM">15</field>
+                          </block>
+                        </value>
+                      </block>
+                    </statement>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </statement>
       </block>
-    </statement>
-  </block>
-  <block type="character_new">
-    <field name="NAME">cat1</field>
-    <statement name="DO">
-      <block type="events_on_start" />
-    </statement>
+    </next>
   </block>
-</xml>
-        XML
+          XML
+        end
       end
-    end
 
-    _data = <<-EOS.strip_heredoc
+      _data = <<-EOS
 require "smalruby"
 
-car1 = Character.new(costume: "car1.png", x: 0, y: 0, angle: 0)
-cat1 = Character.new(costume: "cat1.png", x: 200, y: 150, angle: 90)
-
-car1.on(:start) do
-
-  cat1.on(:start) do
-
+car1 = Character.new(costume: "car2.png", x: 0, y: 0, angle: 0)
+car2 = Character.new(costume: "car3.png", x: 0, y: 415, angle: 0)
+# 追いかける車
+
+car2.on(:start) do
+  loop do
+    point_towards(car1)
+    move(3)
+    if hit?(car1)
+      say(message: "追いつきました！")
+    else
+      say(message: "")
+    end
   end
 end
-    EOS
-    describe compact_source_code(_data) do
-      __data = _data
-      let(:data) { __data }
-
-      it '結果が正しいこと' do
-        should eq(<<-XML.strip_heredoc)
-<xml xmlns="http://www.w3.org/1999/xhtml">
-  <character name="car1" x="0" y="0" angle="0" costumes="car1.png" />
-  <character name="cat1" x="200" y="150" angle="90" costumes="cat1.png" />
-  <block type="character_new">
-    <field name="NAME">car1</field>
-    <statement name="DO">
-      <block type="events_on_start">
+      EOS
+      describe compact_source_code(_data) do
+        __data = _data
+        let(:data) { __data }
+
+        it '結果が正しいこと' do
+          should eq_block_xml(<<-XML)
+  <character name="car1" x="0" y="0" angle="0" costumes="car2.png" />
+  <character name="car2" x="0" y="415" angle="0" costumes="car3.png" />
+  <block type="ruby_comment">
+    <field name="COMMENT">追いかける車</field>
+    <next>
+      <block type="character_new">
+        <field name="NAME">car2</field>
         <statement name="DO">
-          <block type="character_new">
-            <field name="NAME">cat1</field>
+          <block type="events_on_start">
             <statement name="DO">
-              <block type="events_on_start" />
+              <block type="control_loop">
+                <statement name="DO">
+                  <block type="motion_point_towards_character">
+                    <field name="CHAR">car1</field>
+                    <next>
+                      <block type="motion_move" inline="true">
+                        <value name="STEP">
+                          <block type="math_number">
+                            <field name="NUM">3</field>
+                          </block>
+                        </value>
+                        <next>
+                          <block type="control_if_else" inline="true">
+                            <value name="COND">
+                              <block type="sensing_hit">
+                                <field name="CHAR">car1</field>
+                              </block>
+                            </value>
+                            <statement name="THEN">
+                              <block type="looks_say" inline="true">
+                                <value name="TEXT">
+                                  <block type="text">
+                                    <field name="TEXT">追いつきました！</field>
+                                  </block>
+                                </value>
+                              </block>
+                            </statement>
+                            <statement name="ELSE">
+                              <block type="looks_say" inline="true">
+                                <value name="TEXT">
+                                  <block type="text">
+                                    <field name="TEXT"></field>
+                                  </block>
+                                </value>
+                              </block>
+                            </statement>
+                          </block>
+                        </next>
+                      </block>
+                    </next>
+                  </block>
+                </statement>
+              </block>
             </statement>
           </block>
         </statement>
       </block>
-    </statement>
+    </next>
   </block>
-</xml>
-        XML
+          XML
+        end
       end
-    end
 
-    _data = <<-EOS.strip_heredoc
+      _data = <<-EOS
 require "smalruby"
 
-car1 = Character.new(costume: "car1.png", x: 0, y: 0, angle: 0)
+car1 = Character.new(costume: "car2.png", x: 0, y: 0, angle: 0)
+car2 = Character.new(costume: "car3.png", x: 0, y: 415, angle: 0)
+# 逃げる車
 
 car1.on(:start) do
-
-  on(:start) do
-
+  loop do
+    move(6)
+    if reach_wall?
+      turn
+    end
   end
 end
-    EOS
-    describe compact_source_code(_data) do
-      __data = _data
-      let(:data) { __data }
 
-      it '結果が正しいこと' do
-        should eq(<<-XML.strip_heredoc)
-<xml xmlns="http://www.w3.org/1999/xhtml">
-  <character name="car1" x="0" y="0" angle="0" costumes="car1.png" />
-  <block type="character_new">
-    <field name="NAME">car1</field>
-    <statement name="DO">
-      <block type="events_on_start">
-        <statement name="DO">
-          <block type="events_on_start" />
-        </statement>
-      </block>
-    </statement>
-  </block>
-</xml>
-        XML
-      end
-    end
-
-    _data = <<-EOS.strip_heredoc
-require "smalruby"
+car1.on(:key_down, K_LEFT) do
+  rotate(-15)
+end
 
-car1 = Character.new(costume: "car1.png", x: 0, y: 0, angle: 0)
+car1.on(:key_down, K_RIGHT) do
+  rotate(15)
+end
 
-car1.on(:start) do
+# 追いかける車
 
-  s = 'a'
-  if s == 'a'
-    puts 'エー'
-  elsif s == 'b'
-    puts 'ビー'
-  else
-    puts 'その他'
+car2.on(:start) do
+  loop do
+    point_towards(car1)
+    move(3)
+    if hit?(car1)
+      say(message: "追いつきました！")
+    else
+      say(message: "")
+    end
   end
 end
-    EOS
-    describe compact_source_code(_data) do
-      __data = _data
-      let(:data) { __data }
-
-      it '結果が正しいこと' do
-        should eq(<<-XML.strip_heredoc)
-<xml xmlns="http://www.w3.org/1999/xhtml">
-  <character name="car1" x="0" y="0" angle="0" costumes="car1.png" />
-  <block type="character_new">
-    <field name="NAME">car1</field>
-    <statement name="DO">
-      <block type="events_on_start">
+      EOS
+      describe compact_source_code(_data) do
+        __data = _data
+        let(:data) { __data }
+
+        it '結果が正しいこと' do
+          should eq_block_xml(<<-XML)
+  <character name="car1" x="0" y="0" angle="0" costumes="car2.png" />
+  <character name="car2" x="0" y="415" angle="0" costumes="car3.png" />
+  <block type="ruby_comment">
+    <field name="COMMENT">逃げる車</field>
+    <next>
+      <block type="character_new">
+        <field name="NAME">car1</field>
         <statement name="DO">
-          <block type="ruby_statement">
-            <field name="STATEMENT">s = &apos;a&apos;</field>
+          <block type="events_on_start">
+            <statement name="DO">
+              <block type="control_loop">
+                <statement name="DO">
+                  <block type="motion_move" inline="true">
+                    <value name="STEP">
+                      <block type="math_number">
+                        <field name="NUM">6</field>
+                      </block>
+                    </value>
+                    <next>
+                      <block type="control_if" inline="true">
+                        <value name="COND">
+                          <block type="motion_reach_wall" />
+                        </value>
+                        <statement name="THEN">
+                          <block type="motion_turn" />
+                        </statement>
+                      </block>
+                    </next>
+                  </block>
+                </statement>
+              </block>
+            </statement>
             <next>
-              <block type="ruby_statement">
-                <field name="STATEMENT">if s == &apos;a&apos;</field>
+              <block type="events_on_key_push_or_down">
+                <field name="KEY">K_LEFT</field>
+                <field name="POD">down</field>
+                <statement name="DO">
+                  <block type="motion_rotate_left" inline="true">
+                    <value name="ANGLE">
+                      <block type="math_number">
+                        <field name="NUM">15</field>
+                      </block>
+                    </value>
+                  </block>
+                </statement>
                 <next>
-                  <block type="ruby_statement">
-                    <field name="STATEMENT">  puts &apos;エー&apos;</field>
-                    <next>
-                      <block type="ruby_statement">
-                        <field name="STATEMENT">elsif s == &apos;b&apos;</field>
-                        <next>
-                          <block type="ruby_statement">
-                            <field name="STATEMENT">  puts &apos;ビー&apos;</field>
+                  <block type="events_on_key_push_or_down">
+                    <field name="KEY">K_RIGHT</field>
+                    <field name="POD">down</field>
+                    <statement name="DO">
+                      <block type="motion_rotate_right" inline="true">
+                        <value name="ANGLE">
+                          <block type="math_number">
+                            <field name="NUM">15</field>
+                          </block>
+                        </value>
+                      </block>
+                    </statement>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </statement>
+        <next>
+          <block type="ruby_comment">
+            <field name="COMMENT">追いかける車</field>
+            <next>
+              <block type="character_new">
+                <field name="NAME">car2</field>
+                <statement name="DO">
+                  <block type="events_on_start">
+                    <statement name="DO">
+                      <block type="control_loop">
+                        <statement name="DO">
+                          <block type="motion_point_towards_character">
+                            <field name="CHAR">car1</field>
                             <next>
-                              <block type="ruby_statement">
-                                <field name="STATEMENT">else</field>
+                              <block type="motion_move" inline="true">
+                                <value name="STEP">
+                                  <block type="math_number">
+                                    <field name="NUM">3</field>
+                                  </block>
+                                </value>
                                 <next>
-                                  <block type="ruby_statement">
-                                    <field name="STATEMENT">  puts &apos;その他&apos;</field>
-                                    <next>
-                                      <block type="ruby_statement">
-                                        <field name="STATEMENT">end</field>
+                                  <block type="control_if_else" inline="true">
+                                    <value name="COND">
+                                      <block type="sensing_hit">
+                                        <field name="CHAR">car1</field>
                                       </block>
-                                    </next>
+                                    </value>
+                                    <statement name="THEN">
+                                      <block type="looks_say" inline="true">
+                                        <value name="TEXT">
+                                          <block type="text">
+                                            <field name="TEXT">追いつきました！</field>
+                                          </block>
+                                        </value>
+                                      </block>
+                                    </statement>
+                                    <statement name="ELSE">
+                                      <block type="looks_say" inline="true">
+                                        <value name="TEXT">
+                                          <block type="text">
+                                            <field name="TEXT"></field>
+                                          </block>
+                                        </value>
+                                      </block>
+                                    </statement>
                                   </block>
                                 </next>
                               </block>
                             </next>
                           </block>
-                        </next>
+                        </statement>
                       </block>
-                    </next>
+                    </statement>
                   </block>
-                </next>
+                </statement>
               </block>
             </next>
           </block>
-        </statement>
+        </next>
       </block>
-    </statement>
+    </next>
   </block>
-</xml>
-        XML
+          XML
+        end
       end
     end
 
-    _data = <<-EOS.strip_heredoc
+    _data = <<-EOS
 require "smalruby"
 
-s = :a
-case s
-when :a
-  puts "エー"
-when :b
-  puts "ビー"
+init_hardware
+frog1 = Character.new(costume: "frog1.png", x: 261, y: 191, angle: 0)
+
+frog1.on(:click) do
+  say(message: "ライトをぴかっとさせるでよ♪")
+  rgb_led_anode("D3").on(color: [51, 51, 255])
+  sleep(1)
+  rgb_led_anode("D3").on(color: [255, 255, 153])
+  sleep(1)
+  rgb_led_anode("D3").on(color: [255, 0, 0])
+  sleep(1)
+  rgb_led_anode("D3").off
+  say(message: "")
 end
     EOS
     describe compact_source_code(_data) do
@@ -270,28 +438,75 @@ end
       let(:data) { __data }
 
       it '結果が正しいこと' do
-        should eq(<<-XML.strip_heredoc)
-<xml xmlns="http://www.w3.org/1999/xhtml">
-  <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>
+        should eq_block_xml(<<-XML)
+  <character name="frog1" x="261" y="191" angle="0" costumes="frog1.png" />
+  <block type="hardware_init_hardware" />
+  <block type="character_new">
+    <field name="NAME">frog1</field>
+    <statement name="DO">
+      <block type="events_on_click">
+        <statement name="DO">
+          <block type="looks_say" inline="true">
+            <value name="TEXT">
+              <block type="text">
+                <field name="TEXT">ライトをぴかっとさせるでよ♪</field>
+              </block>
+            </value>
             <next>
-              <block type="ruby_statement">
-                <field name="STATEMENT">  puts &quot;エー&quot;</field>
+              <block type="hardware_rgb_led_on">
+                <field name="AC">anode</field>
+                <field name="PIN">D3</field>
+                <field name="COLOUR">#3333ff</field>
                 <next>
-                  <block type="ruby_statement">
-                    <field name="STATEMENT">when :b</field>
+                  <block type="control_sleep" inline="true">
+                    <value name="SEC">
+                      <block type="math_number">
+                        <field name="NUM">1</field>
+                      </block>
+                    </value>
                     <next>
-                      <block type="ruby_statement">
-                        <field name="STATEMENT">  puts &quot;ビー&quot;</field>
+                      <block type="hardware_rgb_led_on">
+                        <field name="AC">anode</field>
+                        <field name="PIN">D3</field>
+                        <field name="COLOUR">#ffff99</field>
                         <next>
-                          <block type="ruby_statement">
-                            <field name="STATEMENT">end</field>
+                          <block type="control_sleep" inline="true">
+                            <value name="SEC">
+                              <block type="math_number">
+                                <field name="NUM">1</field>
+                              </block>
+                            </value>
+                            <next>
+                              <block type="hardware_rgb_led_on">
+                                <field name="AC">anode</field>
+                                <field name="PIN">D3</field>
+                                <field name="COLOUR">#ff0000</field>
+                                <next>
+                                  <block type="control_sleep" inline="true">
+                                    <value name="SEC">
+                                      <block type="math_number">
+                                        <field name="NUM">1</field>
+                                      </block>
+                                    </value>
+                                    <next>
+                                      <block type="hardware_rgb_led_off">
+                                        <field name="AC">anode</field>
+                                        <field name="PIN">D3</field>
+                                        <next>
+                                          <block type="looks_say" inline="true">
+                                            <value name="TEXT">
+                                              <block type="text">
+                                                <field name="TEXT"></field>
+                                              </block>
+                                            </value>
+                                          </block>
+                                        </next>
+                                      </block>
+                                    </next>
+                                  </block>
+                                </next>
+                              </block>
+                            </next>
                           </block>
                         </next>
                       </block>
@@ -301,29 +516,18 @@ end
               </block>
             </next>
           </block>
-        </next>
+        </statement>
       </block>
-    </next>
+    </statement>
   </block>
-</xml>
         XML
       end
     end
 
-    describe '動作確認用のモックアップ' do
-      context '成功する場合' do
-        let(:data) { SourceCode::SUCCESS_DATA_MOCK }
+    context '失敗する場合' do
+      let(:data) { '__FAIL__' }
 
-        it 'XML形式のブロックを返すこと' do
-          should eq(SourceCode::SUCCESS_XML_MOCK)
-        end
-      end
-
-      context '失敗する場合' do
-        let(:data) { '__FAIL__' }
-
-        it { expect { subject }.to raise_error }
-      end
+      it { expect { subject }.to raise_error }
     end
   end
 end