kc3-lang/kc3/test/ikc3/unwind_protect.kc3

Branch : - branch - epoll marshall master pdf v0.1 - tag - HTTPd-v0.1.0 HTTPd-v0.1.1 HTTPd-v0.2.0 v0 v0.1.0 v0.1.1 v0.1.10 v0.1.11 v0.1.12 v0.1.13 v0.1.14 v0.1.15 v0.1.16 v0.1.2 v0.1.3 v0.1.4 v0.1.5 v0.1.6 v0.1.7 v0.1.8 v0.1.9

• Show log

  Commit

• Author : Thomas de Grivel
  Date : 2025-05-13 17:03:33
  Hash : f622e917
  Message : add tests for unwind protect

• test/ikc3/unwind_protect.kc3

• quote unwind_protect(do
    puts("a")
    1
  end, puts("b"))
  unwind_protect(do
    puts("a")
    1
  end, puts("b"))
  quote unwind_protect(do
    unwind_protect(do
      puts("a")
      1
    end, puts("b"))
  end, puts("c"))
  unwind_protect(do
    unwind_protect(do
      puts("a")
      1
    end, puts("b"))
  end, puts("c"))
  quote unwind_protect(do
    unwind_protect(do
      unwind_protect(do
        puts("a")
        1
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))
  unwind_protect(do
    unwind_protect(do
      unwind_protect(do
        puts("a")
        1
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))
  quote block :a unwind_protect(do
    puts("a")
    return 1
    2
  end, puts("b"))
  block :a unwind_protect(do
    puts("a")
    return 1
    2
  end, puts("b"))
  quote block :a unwind_protect(do
    unwind_protect(do
      puts("a")
      return 1
      2
    end, puts("b"))
  end, puts("c"))
  block :a unwind_protect(do
    unwind_protect(do
      puts("a")
      return 1
      2
    end, puts("b"))
  end, puts("c"))
  quote block :a unwind_protect(do
    unwind_protect(do
      unwind_protect(do
        puts("a")
        return 1
        2
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))
  block :a unwind_protect(do
    unwind_protect(do
      unwind_protect(do
        puts("a")
        return 1
        2
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))
  quote unwind_protect(do
    block :a unwind_protect(do
      unwind_protect(do
        puts("a")
        return 1
        2
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))
  unwind_protect(do
    block :a unwind_protect(do
      unwind_protect(do
        puts("a")
        return 1
        2
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))
  quote unwind_protect(do
    unwind_protect(do
      block :a unwind_protect(do
        puts("a")
        return 1
        2
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))
  unwind_protect(do
    unwind_protect(do
      block :a unwind_protect(do
        puts("a")
        return 1
        2
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))
  quote unwind_protect(do
    unwind_protect(do
      unwind_protect(do
        block :a do
          puts("a")
          return 1
          2
        end
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))
  unwind_protect(do
    unwind_protect(do
      unwind_protect(do
        block :a do
          puts("a")
          return 1
          2
        end
      end, puts("b"))
    end, puts("c"))
  end, puts("d"))