tests/base_closure10.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 fun foo with k
  20 do
  21         ' '.output
  22         '<'.output
  23         1.output
  24         k
  25         ' '.output
  26         '>'.output
  27         1.output
  28 end
  29
  30 fun test
  31 do
  32         '<'.output
  33         0.output
  34         var i = 0
  35         while i < 3 do
  36                 foo with do
  37                         ' '.output
  38                         ' '.output
  39                         '<'.output
  40                         2.output
  41                         if i == 1 then
  42                                 break
  43                         end
  44                         ' '.output
  45                         ' '.output
  46                         '>'.output
  47                         2.output
  48                 end
  49                 i += 1
  50         end
  51         '>'.output
  52         0.output
  53 end
  54
  55 test