smalruby-editor 0.1.6 → 0.1.7

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

@@ -0,0 +1,120 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block, 'ハードウェアジャンル', to_blocks: true do
+  parts = <<-EOS
+require "smalruby"
+
+init_hardware
+car1 = Character.new(costume: "car1.png", x: 0, y: 0, angle: 0)
+
+car1.on(:start) do
+  led("D4").on
+  rgb_led_cathode("D9").on(color: [255, 0, 0])
+  two_wheel_drive_car("D2").forward
+end
+car1.led("D4").off
+car1.rgb_led_cathode("D9").off
+car1.two_wheel_drive_car("D2").backward
+
+car1.on(:sensor_change, "A0") do
+  if sensor("A0").value < 200
+    two_wheel_drive_car("D2").turn_left
+    two_wheel_drive_car("D2").turn_right
+    two_wheel_drive_car("D2").stop
+  end
+end
+  EOS
+  describe compact_source_code(parts) do
+    _parts = parts
+    let(:data) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <character name="car1" x="0" y="0" angle="0" costumes="car1.png" />
+  <block type="hardware_init_hardware" />
+  <block type="character_new">
+    <field name="NAME">car1</field>
+    <statement name="DO">
+      <block type="events_on_start">
+        <statement name="DO">
+          <block type="hardware_led_on">
+            <field name="PIN">D4</field>
+            <next>
+              <block type="hardware_rgb_led_on">
+                <field name="AC">cathode</field>
+                <field name="PIN">D9</field>
+                <field name="COLOUR">#ff0000</field>
+                <next>
+                  <block type="hardware_two_wheel_drive_car_forward">
+                    <field name="PIN">D2</field>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </statement>
+        <next>
+          <block type="hardware_led_off">
+            <field name="PIN">D4</field>
+            <next>
+              <block type="hardware_rgb_led_off">
+                <field name="AC">cathode</field>
+                <field name="PIN">D9</field>
+                <next>
+                  <block type="hardware_two_wheel_drive_car_backward">
+                    <field name="PIN">D2</field>
+                    <next>
+                      <block type="hardware_on_sensor_change">
+                        <field name="PIN">A0</field>
+                        <statement name="DO">
+                          <block type="control_if" inline="true">
+                            <value name="COND">
+                              <block type="operators_compare_lt" inline="true">
+                                <value name="A">
+                                  <block type="hardware_sensor_value">
+                                    <field name="PIN">A0</field>
+                                  </block>
+                                </value>
+                                <value name="B">
+                                  <block type="math_number">
+                                    <field name="NUM">200</field>
+                                  </block>
+                                </value>
+                              </block>
+                            </value>
+                            <statement name="THEN">
+                              <block type="hardware_two_wheel_drive_car_turn_left">
+                                <field name="PIN">D2</field>
+                                <next>
+                                  <block type="hardware_two_wheel_drive_car_turn_right">
+                                    <field name="PIN">D2</field>
+                                    <next>
+                                      <block type="hardware_two_wheel_drive_car_stop">
+                                        <field name="PIN">D2</field>
+                                      </block>
+                                    </next>
+                                  </block>
+                                </next>
+                              </block>
+                            </statement>
+                          </block>
+                        </statement>
+                      </block>
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </next>
+      </block>
+    </statement>
+  </block>
+      XML
+    end
+  end
+end

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

@@ -0,0 +1,79 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::LooksSay, to_blocks: true do
+  parts = <<-EOS
+say(message: "こんにちは")
+  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="looks_say" inline="true">
+            <value name="TEXT">
+              <block type="text">
+                <field name="TEXT">こんにちは</field>
+              </block>
+            </value>
+          </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+car1.say(message: "こんにちは")
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+      <block type="looks_say" inline="true">
+        <value name="TEXT">
+          <block type="text">
+            <field name="TEXT">こんにちは</field>
+          </block>
+        </value>
+      </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+say(message: "こんにちは")
+  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">say(message: &quot;こんにちは&quot;)</field>
+  </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+self.say(message: "こんにちは")
+  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">self.say(message: &quot;こんにちは&quot;)</field>
+  </block>
+      XML
+    end
+  end
+end

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

@@ -0,0 +1,74 @@
+# -*- 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
+  say(message: "こんにちは！")
+  self.visible = true
+  self.visible = false
+  vanish
+end
+car1.say(message: "こんにちは！")
+car1.visible = true
+car1.visible = false
+car1.vanish
+  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="looks_say" inline="true">
+            <value name="TEXT">
+              <block type="text">
+                <field name="TEXT">こんにちは！</field>
+              </block>
+            </value>
+            <next>
+              <block type="looks_show">
+                <next>
+                  <block type="looks_hide">
+                    <next>
+                      <block type="looks_vanish" />
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </statement>
+        <next>
+          <block type="looks_say" inline="true">
+            <value name="TEXT">
+              <block type="text">
+                <field name="TEXT">こんにちは！</field>
+              </block>
+            </value>
+            <next>
+              <block type="looks_show">
+                <next>
+                  <block type="looks_hide">
+                    <next>
+                      <block type="looks_vanish" />
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </next>
+      </block>
+    </statement>
+      XML
+    end
+  end
+end

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

@@ -0,0 +1,63 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::MotionMove, to_blocks: true do
+  parts = <<-EOS
+move(6)
+  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_move" inline="true">
+            <value name="STEP">
+              <block type="math_number">
+                <field name="NUM">6</field>
+              </block>
+            </value>
+          </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+car1.move(6)
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+      <block type="motion_move" inline="true">
+        <value name="STEP">
+          <block type="math_number">
+            <field name="NUM">6</field>
+          </block>
+        </value>
+      </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+move(6)
+  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">move(6)</field>
+  </block>
+      XML
+    end
+  end
+end

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

@@ -0,0 +1,67 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::MotionReachWall, to_blocks: true do
+  parts = <<-EOS
+if reach_wall?
+
+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="control_if" inline="true">
+            <value name="COND">
+              <block type="motion_reach_wall" />
+            </value>
+          </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+if car1.reach_wall?
+
+end
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+      <block type="ruby_expression">
+        <field name="EXP">car1.reach_wall?</field>
+      </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+if reach_wall?
+
+end
+  EOS
+  describe compact_source_code(parts) do
+    _parts = parts
+    let(:data) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="control_if" inline="true">
+    <value name="COND">
+      <block type="ruby_expression">
+        <field name="EXP">reach_wall?</field>
+      </block>
+    </value>
+  </block>
+      XML
+    end
+  end
+end

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

@@ -0,0 +1,392 @@
+# -*- 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
+  move(10)
+  self.x = 0
+  self.y = 0
+  self.x += 10
+  self.x = 0
+  self.y += 10
+  self.y = 0
+  if x < 300
+    if y < 300
+
+    end
+  end
+end
+car1.move(10)
+car1.x = 0
+car1.y = 0
+car1.x += 10
+car1.x = 0
+car1.y += 10
+car1.y = 0
+  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="motion_move" inline="true">
+            <value name="STEP">
+              <block type="math_number">
+                <field name="NUM">10</field>
+              </block>
+            </value>
+            <next>
+              <block type="motion_set_x_y" inline="true">
+                <value name="X">
+                  <block type="math_number">
+                    <field name="NUM">0</field>
+                  </block>
+                </value>
+                <value name="Y">
+                  <block type="math_number">
+                    <field name="NUM">0</field>
+                  </block>
+                </value>
+                <next>
+                  <block type="motion_change_x_by" inline="true">
+                    <value name="X">
+                      <block type="math_number">
+                        <field name="NUM">10</field>
+                      </block>
+                    </value>
+                    <next>
+                      <block type="motion_set_x" inline="true">
+                        <value name="X">
+                          <block type="math_number">
+                            <field name="NUM">0</field>
+                          </block>
+                        </value>
+                        <next>
+                          <block type="motion_change_y_by" inline="true">
+                            <value name="Y">
+                              <block type="math_number">
+                                <field name="NUM">10</field>
+                              </block>
+                            </value>
+                            <next>
+                              <block type="motion_set_y" inline="true">
+                                <value name="Y">
+                                  <block type="math_number">
+                                    <field name="NUM">0</field>
+                                  </block>
+                                </value>
+                                <next>
+                                  <block type="control_if" inline="true">
+                                    <value name="COND">
+                                      <block type="operators_compare_lt" inline="true">
+                                        <value name="A">
+                                          <block type="motion_self_x" />
+                                        </value>
+                                        <value name="B">
+                                          <block type="math_number">
+                                            <field name="NUM">300</field>
+                                          </block>
+                                        </value>
+                                      </block>
+                                    </value>
+                                    <statement name="THEN">
+                                      <block type="control_if" inline="true">
+                                        <value name="COND">
+                                          <block type="operators_compare_lt" inline="true">
+                                            <value name="A">
+                                              <block type="motion_self_y" />
+                                            </value>
+                                            <value name="B">
+                                              <block type="math_number">
+                                                <field name="NUM">300</field>
+                                              </block>
+                                            </value>
+                                          </block>
+                                        </value>
+                                      </block>
+                                    </statement>
+                                  </block>
+                                </next>
+                              </block>
+                            </next>
+                          </block>
+                        </next>
+                      </block>
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </statement>
+        <next>
+          <block type="motion_move" inline="true">
+            <value name="STEP">
+              <block type="math_number">
+                <field name="NUM">10</field>
+              </block>
+            </value>
+            <next>
+              <block type="motion_set_x_y" inline="true">
+                <value name="X">
+                  <block type="math_number">
+                    <field name="NUM">0</field>
+                  </block>
+                </value>
+                <value name="Y">
+                  <block type="math_number">
+                    <field name="NUM">0</field>
+                  </block>
+                </value>
+                <next>
+                  <block type="motion_change_x_by" inline="true">
+                    <value name="X">
+                      <block type="math_number">
+                        <field name="NUM">10</field>
+                      </block>
+                    </value>
+                    <next>
+                      <block type="motion_set_x" inline="true">
+                        <value name="X">
+                          <block type="math_number">
+                            <field name="NUM">0</field>
+                          </block>
+                        </value>
+                        <next>
+                          <block type="motion_change_y_by" inline="true">
+                            <value name="Y">
+                              <block type="math_number">
+                                <field name="NUM">10</field>
+                              </block>
+                            </value>
+                            <next>
+                              <block type="motion_set_y" inline="true">
+                                <value name="Y">
+                                  <block type="math_number">
+                                    <field name="NUM">0</field>
+                                  </block>
+                                </value>
+                              </block>
+                            </next>
+                          </block>
+                        </next>
+                      </block>
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </next>
+      </block>
+    </statement>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+car1.move(10)
+car1.x = 0
+car1.y = 0
+car1.x += 10
+  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_move" inline="true">
+        <value name="STEP">
+          <block type="math_number">
+            <field name="NUM">10</field>
+          </block>
+        </value>
+        <next>
+          <block type="motion_set_x_y" inline="true">
+            <value name="X">
+              <block type="math_number">
+                <field name="NUM">0</field>
+              </block>
+            </value>
+            <value name="Y">
+              <block type="math_number">
+                <field name="NUM">0</field>
+              </block>
+            </value>
+            <next>
+              <block type="motion_change_x_by" inline="true">
+                <value name="X">
+                  <block type="math_number">
+                    <field name="NUM">10</field>
+                  </block>
+                </value>
+              </block>
+            </next>
+          </block>
+        </next>
+      </block>
+    </statement>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+car1.on(:start) do
+  turn_if_reach_wall
+  if reach_wall?
+    turn
+  end
+  rotate(15)
+  rotate(-15)
+  self.angle = 90
+  point_towards(:mouse)
+  point_towards(car1)
+  if angle < 90
+
+  end
+end
+car1.turn_if_reach_wall
+car1.turn
+car1.rotate(15)
+car1.rotate(-15)
+car1.angle = 90
+car1.point_towards(:mouse)
+car1.point_towards(car1)
+  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="motion_turn_if_reach_wall">
+            <next>
+              <block type="control_if" inline="true">
+                <value name="COND">
+                  <block type="motion_reach_wall" />
+                </value>
+                <statement name="THEN">
+                  <block type="motion_turn" />
+                </statement>
+                <next>
+                  <block type="motion_rotate_right" inline="true">
+                    <value name="ANGLE">
+                      <block type="math_number">
+                        <field name="NUM">15</field>
+                      </block>
+                    </value>
+                    <next>
+                      <block type="motion_rotate_left" inline="true">
+                        <value name="ANGLE">
+                          <block type="math_number">
+                            <field name="NUM">15</field>
+                          </block>
+                        </value>
+                        <next>
+                          <block type="motion_set_angle" inline="true">
+                            <value name="ANGLE">
+                              <block type="math_number">
+                                <field name="NUM">90</field>
+                              </block>
+                            </value>
+                            <next>
+                              <block type="motion_point_towards_mouse">
+                                <next>
+                                  <block type="motion_point_towards_character">
+                                    <field name="CHAR">car1</field>
+                                    <next>
+                                      <block type="control_if" inline="true">
+                                        <value name="COND">
+                                          <block type="operators_compare_lt" inline="true">
+                                            <value name="A">
+                                              <block type="motion_self_angle" />
+                                            </value>
+                                            <value name="B">
+                                              <block type="math_number">
+                                                <field name="NUM">90</field>
+                                              </block>
+                                            </value>
+                                          </block>
+                                        </value>
+                                      </block>
+                                    </next>
+                                  </block>
+                                </next>
+                              </block>
+                            </next>
+                          </block>
+                        </next>
+                      </block>
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </statement>
+        <next>
+          <block type="motion_turn_if_reach_wall">
+            <next>
+              <block type="motion_turn">
+                <next>
+                  <block type="motion_rotate_right" inline="true">
+                    <value name="ANGLE">
+                      <block type="math_number">
+                        <field name="NUM">15</field>
+                      </block>
+                    </value>
+                    <next>
+                      <block type="motion_rotate_left" inline="true">
+                        <value name="ANGLE">
+                          <block type="math_number">
+                            <field name="NUM">15</field>
+                          </block>
+                        </value>
+                        <next>
+                          <block type="motion_set_angle" inline="true">
+                            <value name="ANGLE">
+                              <block type="math_number">
+                                <field name="NUM">90</field>
+                              </block>
+                            </value>
+                            <next>
+                              <block type="motion_point_towards_mouse">
+                                <next>
+                                  <block type="motion_point_towards_character">
+                                    <field name="CHAR">car1</field>
+                                  </block>
+                                </next>
+                              </block>
+                            </next>
+                          </block>
+                        </next>
+                      </block>
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </next>
+      </block>
+    </statement>
+      XML
+    end
+  end
+end