tests/test_combined_assignment.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2008 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 class A
  18         readable writable var _a: Int = 0#!alt1#
  19         #alt1#readable writable var _a: Object = 0
  20         init do end
  21         fun foo
  22         do
  23                 _a += 2
  24         end
  25
  26         fun next: Int
  27         do
  28                 _a += 1
  29                 return a
  30         end
  31
  32         fun [](a: Int): Int do return a
  33         fun []=(a: Int, b: Int) do print "{a} {b}"
  34 end
  35
  36 redef class Int
  37         fun sum(o: Int): Int do
  38                 print "{self} + {o} = {self + o}?"
  39                 return self + o
  40         end
  41         fun sum=(o: Int, r: Int) do print "{self} + {o} = {r}!"
  42 end
  43
  44 var a = new A
  45 a.a = 1
  46 print a.a
  47 a.foo
  48 print a.a
  49 a.a += 3
  50 print a.a
  51
  52 a[1] += 2
  53
  54 a.next.sum(a.next) += 0 # Test ugly side effects
  55
  56 print a.a