kc3-lang/kc3/test/ikc3/while.out.expected

Branch - branch -masterpdfpdf-rebasedtlstls-rebasedcallablecallable-rebaseconfigurefastfast2fnfractionsfractions-rebaseframeherunstoofastforushttpdjeremy_rebasedlinuxmarshallmarshall_before_mergemarshall_rebasepointerratio-rebasev0.1- tag -v0.1.9v0.1.8v0.1.7v0.1.6v0.1.5v0.1.4v0.1.3v0.1.2v0.1.15v0.1.14v0.1.13v0.1.12v0.1.11v0.1.10v0.1.1v0.1.0v0HTTPd-v0.2.0HTTPd-v0.1.1HTTPd-v0.1.0

• Show log

  Commit

• Hash : 05a5dca9
  Author : Thomas de Grivel
  Date : 2025-07-20T22:20:38
  

  add test for while unwind protect
  

Download

• test/ikc3/while.out.expected

• while false do
    puts("This should not print")
  end
  void
  while (false) do
    puts("This should not print with parens")
  end
  void
  do
    i = 0
    while (i < 3) do
      puts(i)
      i = i + 1
    end
    i
  end
  0
  1
  2
  3
  do
    i = 0
    while i < 3 do
      puts(i)
      i = i + 1
    end
    i
  end
  0
  1
  2
  3
  do
    sum = 0
    i = 1
    while (i <= 5) do
      sum = sum + i
      i = i + 1
    end
    sum
  end
  15
  do
    sum = 0
    i = 1
    while i <= 5 do
      sum = sum + i
      i = i + 1
    end
    sum
  end
  15
  do
    x = 10
    while (x > 0) do
      if x == 5 do
        break
      end
      puts(x)
      x = x - 1
    end
    x
  end
  10
  9
  8
  7
  6
  5
  do
    x = 10
    while x > 0 do
      if x == 5 do
        break
      end
      puts(x)
      x = x - 1
    end
    x
  end
  10
  9
  8
  7
  6
  5
  do
    result = []
    i = 0
    while (i < 3) do
      result = [i | result]
      i = i + 1
    end
    result
  end
  [2, 1, 0]
  do
    result = []
    i = 0
    while i < 3 do
      result = [i | result]
      i = i + 1
    end
    result
  end
  [2, 1, 0]
  do
    i = 0
    result = []
    while i < 10 do
      i = i + 1
      if i mod 2 == 0 do
        continue
      end
      result = [i | result]
    end
    result
  end
  [9, 7, 5, 3, 1]
  do
    result = []
    i = 0
    while i < 10 do
      i = i + 1
      if i mod 2 == 0 do
        continue
      end
      if i > 7 do
        break
      end
      result = [i | result]
    end
    result
  end
  [7, 5, 3, 1]
  loop 0
  loop 1
  loop 2
  loop 3
  :ok
  block :unwind_test do
    unwind_protect(do
      i = 0
      while i < 5 do
        puts("unwind loop #{i}")
        i = i + 1
        if i == 3 do
          return "early exit"
        end
      end
      "normal completion"
    end, puts("cleanup executed"))
  end
  unwind loop 0
  unwind loop 1
  unwind loop 2
  cleanup executed
  "early exit"
  

Download