smalruby-editor 0.1.6 → 0.1.7

data/spec/controllers/source_codes_controller_spec.rb

@@ -468,24 +468,27 @@ describe SourceCodesController do
   end
 
   describe 'プログラムをXML形式のブロックに変換する (POST to_blocks)' do
+    let(:data) { 'data' }
+
     before do
+      allow_any_instance_of(SourceCode).to receive(:to_blocks) {
+        fail if data == '__FAIL__'
+        'success'
+      }
+
       post :to_blocks, source_code: { data: data }
     end
 
-    describe '動作確認用のモックアップ' do
-      context '成功する場合' do
-        let(:data) { SourceCode::SUCCESS_DATA_MOCK }
-
-        it 'XML形式のブロックを返すこと' do
-          expect(response.body).to eq(SourceCode::SUCCESS_XML_MOCK)
-        end
+    context '成功する場合' do
+      it 'SourceCode#to_blocksの結果をそのまま返すこと' do
+        expect(response.body).to eq('success')
       end
+    end
 
-      context '失敗する場合' do
-        let(:data) { '__FAIL__' }
+    context '失敗する場合' do
+      let(:data) { '__FAIL__' }
 
-        it { expect(response.status).to eq(400) }
-      end
+      it { expect(response.status).to eq(400) }
     end
   end
 end

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

@@ -0,0 +1,175 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# ここではCharacterMethodCallのexamplesとしてlooks_sayブロックを利用
+# します。そのかわりlooks_sayのようにCharacterMethodCallを継承したブ
+# ロックでは最低限のexamplesしか実装しません。
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::CharacterMethodCall, 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
+self.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
+say(message: "こんにちは")
+puts "Hello, World!"
+  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>
+            <next>
+              <block type="ruby_statement">
+                <field name="STATEMENT">puts &quot;Hello, World!&quot;</field>
+              </block>
+            </next>
+          </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
+car1.say(message: "こんにちは")
+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>
+        <next>
+          <block type="looks_say" inline="true">
+            <value name="TEXT">
+              <block type="text">
+                <field name="TEXT">こんにちは</field>
+              </block>
+            </value>
+          </block>
+        </next>
+      </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+car1.say(message: "こんにちは")
+unknown.say(message: "こんにちは")
+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>
+        <next>
+          <block type="ruby_statement">
+            <field name="STATEMENT">unknown.say(message: &quot;こんにちは&quot;)</field>
+            <next>
+              <block type="ruby_statement">
+                <field name="STATEMENT">say(message: &quot;こんにちは&quot;)</field>
+              </block>
+            </next>
+          </block>
+        </next>
+      </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+say(message: "こんにちは")
+  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">say(message: &quot;こんにちは&quot;)</field>
+  </block>
+      XML
+    end
+  end
+end

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

@@ -0,0 +1,75 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::ControlIf,
+         RubyToBlock::Block::OperatorsTrue,
+         RubyToBlock::Block::OperatorsFalse,
+         to_blocks: true do
+  _data = <<-EOS
+if true
+
+end
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="control_if" inline="true">
+    <value name="COND">
+      <block type="operators_true" />
+    </value>
+  </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+if false
+
+end
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="control_if" inline="true">
+    <value name="COND">
+      <block type="operators_false" />
+    </value>
+  </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+if true
+  puts "Hello, World!"
+end
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="control_if" inline="true">
+    <value name="COND">
+      <block type="operators_true" />
+    </value>
+    <statement name="THEN">
+      <block type="ruby_statement">
+        <field name="STATEMENT">puts &quot;Hello, World!&quot;</field>
+      </block>
+    </statement>
+  </block>
+      XML
+    end
+  end
+end

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

@@ -0,0 +1,68 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::ControlLoop, to_blocks: true do
+  parts = <<-EOS
+loop do
+
+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_loop" />
+      XML
+    end
+  end
+
+  parts = <<-EOS
+loop do
+  puts "Hello, World!"
+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_loop">
+            <statement name="DO">
+              <block type="ruby_statement">
+                <field name="STATEMENT">puts &quot;Hello, World!&quot;</field>
+              </block>
+            </statement>
+          </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+loop do
+
+end
+  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">loop do</field>
+    <next>
+      <block type="ruby_statement">
+        <field name="STATEMENT">end</field>
+      </block>
+    </next>
+  </block>
+      XML
+    end
+  end
+end

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

@@ -0,0 +1,120 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::EventsOnStart, to_blocks: true do
+  parts = <<-EOS
+car1.on(:start) do
+
+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="events_on_start" />
+      XML
+    end
+  end
+
+  parts = <<-EOS
+cat1 = Character.new(costume: "cat1.png", x: 200, y: 150, angle: 90)
+
+car1.on(:start) do
+
+end
+
+car1.on(:start) do
+
+end
+
+
+cat1.on(:start) do
+
+end
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <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>
+      </block>
+    </statement>
+  </block>
+  <block type="character_new">
+    <field name="NAME">cat1</field>
+    <statement name="DO">
+      <block type="events_on_start" />
+    </statement>
+  </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+cat1 = Character.new(costume: "cat1.png", x: 200, y: 150, angle: 90)
+
+car1.on(:start) do
+
+  cat1.on(:start) do
+
+  end
+end
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <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">
+        <statement name="DO">
+          <block type="character_new">
+            <field name="NAME">cat1</field>
+            <statement name="DO">
+              <block type="events_on_start" />
+            </statement>
+          </block>
+        </statement>
+      </block>
+    </statement>
+  </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+on(:start) do
+
+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="events_on_start" />
+      XML
+    end
+  end
+end