tests/base_closure_break.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2009 Jean Privat <jean@pryen.org>
   4 #
   5 # Licensed under the Apache License, Version 2.0 (the "License");
   6 # you may not use this file except in compliance with the License.
   7 # You may obtain a copy of the License at
   8 #
   9 #     http://www.apache.org/licenses/LICENSE-2.0
  10 #
  11 # Unless required by applicable law or agreed to in writing, software
  12 # distributed under the License is distributed on an "AS IS" BASIS,
  13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14 # See the License for the specific language governing permissions and
  15 # limitations under the License.
  16
  17 import kernel
  18
  19 class A
  20         fun foo
  21                 break !bar #!alt12#
  22                 #alt12#break !bar: Int
  23         do
  24                 1.output
  25                 if maybe then bar #!alt1#
  26                 #alt2#if maybe then bar(2)
  27                 #alt3#if maybe then var x = bar
  28                 4.output
  29         end
  30 end
  31
  32 fun maybe: Bool do return true
  33
  34 fun work
  35 do
  36         var a = new A
  37         a.foo !bar do #!alt11#
  38         #alt11#a.foo !bar x do
  39                 2.output
  40                 if maybe then
  41                 #alt4#break
  42                 #alt5#break 'x'
  43                 #alt6#continue
  44                 #alt7#continue 'x'
  45                 #alt8#return
  46                 #alt9#return 'x'
  47                 end
  48                 3.output
  49                 break #!alt13#
  50         end
  51         #alt10# a.foo
  52         5.output
  53 end
  54
  55 0.output
  56 work
  57 6.output
  58