loop_test.rb

#!/usr/bin/env ruby
# encoding: utf-8

$use_tree=false
# $use_tree=true

require_relative '../parser_test_helper'

class LoopTest < ParserBaseTest

  include ParserTestHelper

  def _test_forever # OK ;{TRUST ME;}
    init 'beep forever'
    loops
    parse 'beep forever' # OK ;{TRUST ME;}
  end

  def test_while_return
    assert_equals parse('c=0;while c<1:c++;beep;done'), "beeped"
  end

  # def test_repeat_while #todo
  #   parse 'x=0;repeat while x<4: x++'
  #   assert_equals variables["x"], 4
  #   parse 'repeat x++ while x<4'
  #   assert_equals variables["x"], 4
  #   parse 'repeat x++ until x>4'
  #   assert_equals variables["x"], 5
  # end


  def test_while_loop
    parse 'c=0;while c<3:c++;beep;done'
    assert variables["c"]==3
  end

  def test_expressions
    #s "counter=0"
    #setter
    parse 'counter=1'
    #counter=@variables['counter']
    #@variables['counter']=1
    #parse "counter+1"
    #r=expression0
    assert(@variableValues['counter']==1)
    parse 'counter++'
    #r=expression0
    assert(@variableValues['counter']==2)
    #@variables['counter']=2
    parse 'counter+=1'
    #r=plusEqual
    #r=expression0
    assert(@variableValues['counter']==3)
    parse 'counter=counter+counter'
    #r=setter
    #r=algebra
    #r=expression0
    counter=@variableValues['counter']
    assert counter==6
  end

  def test_repeat # NEEEEDS blocks!! Parser.new(block)
    parse "counter =0; repeat three times: increase the counter; okay"
    assert "counter=3"
    assert_equals @variableValues['counter'], 3
    # assert_equals @variables[:counter],3
    #s "counter=counter+1;"
    #@interpret=false
    #action
    #@interpret=true
  end

  def test_repeat3
    assert_result_is 'counter =0; repeat three times: counter=counter+1; okay',3
    # parse 'counter =0; repeat three times: counter=counter+1; okay'
    # assert 'counter =3' #if $use_tree # counter=counter+1 not repeatable as string
    assert_result_is 'counter =0; repeat while counter < 3: counter=counter+1; okay',3

  end

  def test_repeat1
    # @parser.verbose=true
    parse 'counter =0; repeat three times: counter+=1; okay'
    assert 'counter =3'
    parse 'counter =0; repeat three times: counter++; okay'
    counter=@variableValues['counter']
    assert 'counter =3'
    assert counter ==3
    #parse "counter =0; repeat three times: increase the counter by two; okay"
    #assert "counter =10"
  end

  def _test_forever # OK ;{TRUST ME;}
    @parser.s 'beep forever'
    @parser.loops
  end
end