CocoCAD/blockly/tests/generators/procedures.xml

<xml xmlns="http://www.w3.org/1999/xhtml">
  <block type="unittest_main" x="0" y="1">
    <statement name="DO">
      <block type="procedures_callnoreturn">
        <mutation name="test procedure"></mutation>
        <next>
          <block type="procedures_callnoreturn">
            <mutation name="test function"></mutation>
            <next>
              <block type="unittest_assertequals" inline="false">
                <field name="MESSAGE">test recurse</field>
                <value name="ACTUAL">
                  <block type="procedures_callreturn" inline="false">
                    <mutation name="recurse">
                      <arg name="n"></arg>
                    </mutation>
                    <value name="ARG0">
                      <block type="math_number">
                        <field name="NUM">3</field>
                      </block>
                    </value>
                  </block>
                </value>
                <value name="EXPECTED">
                  <block type="text">
                    <field name="TEXT">-1-2-1-3-1-2-1-</field>
                  </block>
                </value>
              </block>
            </next>
          </block>
        </next>
      </block>
    </statement>
  </block>
  <block type="procedures_defnoreturn" x="-3" y="249">
    <mutation></mutation>
    <field name="NAME">test procedure</field>
    <statement name="STACK">
      <block type="procedures_callnoreturn" inline="false">
        <mutation name="procedure 1">
          <arg name="proc x"></arg>
          <arg name="proc y"></arg>
        </mutation>
        <value name="ARG0">
          <block type="math_number">
            <field name="NUM">8</field>
          </block>
        </value>
        <value name="ARG1">
          <block type="math_number">
            <field name="NUM">2</field>
          </block>
        </value>
        <next>
          <block type="unittest_assertequals" inline="false">
            <field name="MESSAGE">procedure with global</field>
            <value name="ACTUAL">
              <block type="variables_get">
                <field name="VAR">proc z</field>
              </block>
            </value>
            <value name="EXPECTED">
              <block type="math_number">
                <field name="NUM">4</field>
              </block>
            </value>
            <next>
              <block type="variables_set" inline="false">
                <field name="VAR">proc w</field>
                <value name="VALUE">
                  <block type="logic_boolean">
                    <field name="BOOL">FALSE</field>
                  </block>
                </value>
                <next>
                  <block type="procedures_callnoreturn" inline="false">
                    <mutation name="procedure 2">
                      <arg name="proc x"></arg>
                    </mutation>
                    <value name="ARG0">
                      <block type="logic_boolean">
                        <field name="BOOL">FALSE</field>
                      </block>
                    </value>
                    <next>
                      <block type="unittest_assertvalue" inline="false">
                        <field name="MESSAGE">procedure no return</field>
                        <field name="EXPECTED">TRUE</field>
                        <value name="ACTUAL">
                          <block type="variables_get">
                            <field name="VAR">proc w</field>
                          </block>
                        </value>
                        <next>
                          <block type="variables_set" inline="false">
                            <field name="VAR">proc w</field>
                            <value name="VALUE">
                              <block type="logic_boolean">
                                <field name="BOOL">FALSE</field>
                              </block>
                            </value>
                            <next>
                              <block type="procedures_callnoreturn" inline="false">
                                <mutation name="procedure 2">
                                  <arg name="proc x"></arg>
                                </mutation>
                                <value name="ARG0">
                                  <block type="logic_boolean">
                                    <field name="BOOL">TRUE</field>
                                  </block>
                                </value>
                                <next>
                                  <block type="unittest_assertvalue" inline="false">
                                    <field name="MESSAGE">procedure return</field>
                                    <field name="EXPECTED">FALSE</field>
                                    <value name="ACTUAL">
                                      <block type="variables_get">
                                        <field name="VAR">proc w</field>
                                      </block>
                                    </value>
                                  </block>
                                </next>
                              </block>
                            </next>
                          </block>
                        </next>
                      </block>
                    </next>
                  </block>
                </next>
              </block>
            </next>
          </block>
        </next>
      </block>
    </statement>
  </block>
  <block type="procedures_defnoreturn" x="302" y="277">
    <mutation>
      <arg name="proc x"></arg>
      <arg name="proc y"></arg>
    </mutation>
    <field name="NAME">procedure 1</field>
    <statement name="STACK">
      <block type="variables_set" inline="false">
        <field name="VAR">proc z</field>
        <value name="VALUE">
          <block type="math_arithmetic" inline="true">
            <field name="OP">DIVIDE</field>
            <value name="A">
              <block type="variables_get">
                <field name="VAR">proc x</field>
              </block>
            </value>
            <value name="B">
              <block type="variables_get">
                <field name="VAR">proc y</field>
              </block>
            </value>
          </block>
        </value>
      </block>
    </statement>
  </block>
  <block type="procedures_defnoreturn" x="307" y="435">
    <mutation>
      <arg name="proc x"></arg>
    </mutation>
    <field name="NAME">procedure 2</field>
    <statement name="STACK">
      <block type="procedures_ifreturn" inline="true">
        <mutation value="0"></mutation>
        <value name="CONDITION">
          <block type="variables_get">
            <field name="VAR">proc x</field>
          </block>
        </value>
        <next>
          <block type="variables_set" inline="false">
            <field name="VAR">proc w</field>
            <value name="VALUE">
              <block type="logic_boolean">
                <field name="BOOL">TRUE</field>
              </block>
            </value>
          </block>
        </next>
      </block>
    </statement>
  </block>
  <block type="procedures_defnoreturn" x="-2" y="731">
    <mutation></mutation>
    <field name="NAME">test function</field>
    <statement name="STACK">
      <block type="unittest_assertequals" inline="false">
        <field name="MESSAGE">function with arguments</field>
        <value name="ACTUAL">
          <block type="procedures_callreturn" inline="false">
            <mutation name="function 1">
              <arg name="func x"></arg>
              <arg name="func y"></arg>
            </mutation>
            <value name="ARG0">
              <block type="math_number">
                <field name="NUM">2</field>
              </block>
            </value>
            <value name="ARG1">
              <block type="math_number">
                <field name="NUM">3</field>
              </block>
            </value>
          </block>
        </value>
        <value name="EXPECTED">
          <block type="math_number">
            <field name="NUM">-1</field>
          </block>
        </value>
        <next>
          <block type="unittest_assertequals" inline="false">
            <field name="MESSAGE">function with side effect</field>
            <value name="ACTUAL">
              <block type="variables_get">
                <field name="VAR">func z</field>
              </block>
            </value>
            <value name="EXPECTED">
              <block type="text">
                <field name="TEXT">side effect</field>
              </block>
            </value>
            <next>
              <block type="variables_set" inline="false">
                <field name="VAR">func a</field>
                <value name="VALUE">
                  <block type="text">
                    <field name="TEXT">unchanged</field>
                  </block>
                </value>
                <next>
                  <block type="variables_set" inline="false">
                    <field name="VAR">func c</field>
                    <value name="VALUE">
                      <block type="text">
                        <field name="TEXT">global</field>
                      </block>
                    </value>
                    <next>
                      <block type="unittest_assertequals" inline="false">
                        <field name="MESSAGE">function with global</field>
                        <value name="ACTUAL">
                          <block type="procedures_callreturn" inline="false">
                            <mutation name="function 2">
                              <arg name="func a"></arg>
                            </mutation>
                            <value name="ARG0">
                              <block type="math_number">
                                <field name="NUM">2</field>
                              </block>
                            </value>
                          </block>
                        </value>
                        <value name="EXPECTED">
                          <block type="text">
                            <field name="TEXT">3global</field>
                          </block>
                        </value>
                        <next>
                          <block type="unittest_assertequals" inline="false">
                            <field name="MESSAGE">function with scope</field>
                            <value name="ACTUAL">
                              <block type="variables_get">
                                <field name="VAR">func a</field>
                              </block>
                            </value>
                            <value name="EXPECTED">
                              <block type="text">
                                <field name="TEXT">unchanged</field>
                              </block>
                            </value>
                            <next>
                              <block type="unittest_assertvalue" inline="false">
                                <field name="MESSAGE">function return</field>
                                <field name="EXPECTED">TRUE</field>
                                <value name="ACTUAL">
                                  <block type="procedures_callreturn" inline="false">
                                    <mutation name="function 3">
                                      <arg name="func a"></arg>
                                    </mutation>
                                    <value name="ARG0">
                                      <block type="logic_boolean">
                                        <field name="BOOL">TRUE</field>
                                      </block>
                                    </value>
                                  </block>
                                </value>
                                <next>
                                  <block type="unittest_assertvalue" inline="false">
                                    <field name="MESSAGE">function no return</field>
                                    <field name="EXPECTED">FALSE</field>
                                    <value name="ACTUAL">
                                      <block type="procedures_callreturn" inline="false">
                                        <mutation name="function 3">
                                          <arg name="func a"></arg>
                                        </mutation>
                                        <value name="ARG0">
                                          <block type="logic_boolean">
                                            <field name="BOOL">FALSE</field>
                                          </block>
                                        </value>
                                      </block>
                                    </value>
                                  </block>
                                </next>
                              </block>
                            </next>
                          </block>
                        </next>
                      </block>
                    </next>
                  </block>
                </next>
              </block>
            </next>
          </block>
        </next>
      </block>
    </statement>
  </block>
  <block type="procedures_defreturn" inline="false" x="-3" y="1384">
    <mutation>
      <arg name="func x"></arg>
      <arg name="func y"></arg>
    </mutation>
    <field name="NAME">function 1</field>
    <statement name="STACK">
      <block type="variables_set" inline="false">
        <field name="VAR">func z</field>
        <value name="VALUE">
          <block type="text">
            <field name="TEXT">side effect</field>
          </block>
        </value>
      </block>
    </statement>
    <value name="RETURN">
      <block type="math_arithmetic" inline="true">
        <field name="OP">MINUS</field>
        <value name="A">
          <block type="variables_get">
            <field name="VAR">func x</field>
          </block>
        </value>
        <value name="B">
          <block type="variables_get">
            <field name="VAR">func y</field>
          </block>
        </value>
      </block>
    </value>
  </block>
  <block type="procedures_defreturn" inline="false" x="-1" y="1503">
    <mutation>
      <arg name="func a"></arg>
    </mutation>
    <field name="NAME">function 2</field>
    <statement name="STACK">
      <block type="math_change" inline="false">
        <field name="VAR">func a</field>
        <value name="DELTA">
          <block type="math_number">
            <field name="NUM">1</field>
          </block>
        </value>
      </block>
    </statement>
    <value name="RETURN">
      <block type="text_join" inline="false">
        <mutation items="2"></mutation>
        <value name="ADD0">
          <block type="variables_get">
            <field name="VAR">func a</field>
          </block>
        </value>
        <value name="ADD1">
          <block type="variables_get">
            <field name="VAR">func c</field>
          </block>
        </value>
      </block>
    </value>
  </block>
  <block type="procedures_defreturn" inline="false" x="0" y="1655">
    <mutation>
      <arg name="func a"></arg>
    </mutation>
    <field name="NAME">function 3</field>
    <statement name="STACK">
      <block type="procedures_ifreturn" inline="true">
        <mutation value="1"></mutation>
        <value name="CONDITION">
          <block type="variables_get">
            <field name="VAR">func a</field>
          </block>
        </value>
        <value name="VALUE">
          <block type="logic_boolean">
            <field name="BOOL">TRUE</field>
          </block>
        </value>
      </block>
    </statement>
    <value name="RETURN">
      <block type="logic_boolean">
        <field name="BOOL">FALSE</field>
      </block>
    </value>
  </block>
  <block type="procedures_defreturn" inline="false" x="0" y="1789">
    <mutation>
      <arg name="n"></arg>
    </mutation>
    <field name="NAME">recurse</field>
    <statement name="STACK">
      <block type="controls_if" inline="false">
        <mutation else="1"></mutation>
        <value name="IF0">
          <block type="logic_compare" inline="true">
            <field name="OP">GT</field>
            <value name="A">
              <block type="variables_get">
                <field name="VAR">n</field>
              </block>
            </value>
            <value name="B">
              <block type="math_number">
                <field name="NUM">0</field>
              </block>
            </value>
          </block>
        </value>
        <statement name="DO0">
          <block type="variables_set" inline="false">
            <field name="VAR">text</field>
            <value name="VALUE">
              <block type="text_join" inline="false">
                <mutation items="3"></mutation>
                <value name="ADD0">
                  <block type="procedures_callreturn" inline="false">
                    <mutation name="recurse">
                      <arg name="n"></arg>
                    </mutation>
                    <value name="ARG0">
                      <block type="math_arithmetic" inline="true">
                        <field name="OP">MINUS</field>
                        <value name="A">
                          <block type="variables_get">
                            <field name="VAR">n</field>
                          </block>
                        </value>
                        <value name="B">
                          <block type="math_number">
                            <field name="NUM">1</field>
                          </block>
                        </value>
                      </block>
                    </value>
                  </block>
                </value>
                <value name="ADD1">
                  <block type="variables_get">
                    <field name="VAR">n</field>
                  </block>
                </value>
                <value name="ADD2">
                  <block type="procedures_callreturn" inline="false">
                    <mutation name="recurse">
                      <arg name="n"></arg>
                    </mutation>
                    <value name="ARG0">
                      <block type="math_arithmetic" inline="true">
                        <field name="OP">MINUS</field>
                        <value name="A">
                          <block type="variables_get">
                            <field name="VAR">n</field>
                          </block>
                        </value>
                        <value name="B">
                          <block type="math_number">
                            <field name="NUM">1</field>
                          </block>
                        </value>
                      </block>
                    </value>
                  </block>
                </value>
              </block>
            </value>
          </block>
        </statement>
        <statement name="ELSE">
          <block type="variables_set" inline="false">
            <field name="VAR">text</field>
            <value name="VALUE">
              <block type="text">
                <field name="TEXT">-</field>
              </block>
            </value>
          </block>
        </statement>
      </block>
    </statement>
    <value name="RETURN">
      <block type="variables_get">
        <field name="VAR">text</field>
      </block>
    </value>
  </block>
</xml>