File indexing completed on 2024-04-14 03:43:52

 #  SPDX-FileCopyrightText: 2009 Cies Breijs
 #  SPDX-FileCopyrightText: 2009 Niels Slot
 #
 #  SPDX-License-Identifier: GPL-2.0-or-later
 
 require File.dirname(__FILE__) + '/spec_helper.rb'
 $i = Interpreter.instance
 
 describe "for loop" do
   it "should work as expected for ascending positive values" do
     $i.should_run_clean <<-EOS
       $y = 1
 
       for $x = 1 to 10 {
         assert $x == $y
         $y = $y + 1
       }
       assert $y == 11
     EOS
   end
 
   it "should work as expected for ascending negative values" do
     $i.should_run_clean <<-EOS
       $y = -10
 
       for $x = -10 to -1 {
         assert $x == $y
         $y = $y + 1
       }
       assert $y == 0
     EOS
   end
 
   it "should work as expected for descending positive values" do
     $i.should_run_clean <<-EOS
       $y = 10
 
       for $x = 10 to 1 step -1 {
         assert $x == $y
         $y = $y - 1
       }
       assert $y == 0
     EOS
   end
 
   it "should work as expected for descending negative values" do
     $i.should_run_clean <<-EOS
       $y = -1
 
       for $x = -1 to -10 step -1 {
         assert $x == $y
         $y = $y - 1
       }
       assert $y == -11
     EOS
   end
 
   it "should work as expected with step > 1" do
     $i.should_run_clean <<-EOS
       $y = 0
 
       for $x = 0 to 10 step 2 {
         assert $x == $y
         $y = $y + 2
       }
       assert $y == 12
     EOS
   end
 
   it "should work as expected with 0 > step > 1" do
     $i.should_run_clean <<-EOS
       $y = 1
 
       for $x = 1 to 10 step 0.5 {
         assert $x == $y
         $y = $y + 0.5
       }
       assert $y == 10.5
     EOS
   end
 
   it "should work as expected with -1 > step > 0" do
     $i.should_run_clean <<-EOS
       $y = 10
 
       for $x = 10 to 1 step -0.5 {
         assert $x == $y
         $y = $y - 0.5
       }
       assert $y == 0.5
     EOS
   end
 
   it "should work as expected with step < -1" do
     $i.should_run_clean <<-EOS
       $y = 10
 
       for $x = 10 to 0 step -2 {
         assert $x == $y
         $y = $y - 2
       }
       assert $y == -2
     EOS
   end
 
   it "should work as expected when no execution required" do
     $i.should_run_clean <<-EOS
       for $x = 2 to 1 {
         assert false
       }
     EOS
   end
 end