tests/base_attr_named_setters.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Licensed under the Apache License, Version 2.0 (the "License");
   4 # you may not use this file except in compliance with the License.
   5 # You may obtain a copy of the License at
   6 #
   7 #     http://www.apache.org/licenses/LICENSE-2.0
   8 #
   9 # Unless required by applicable law or agreed to in writing, software
  10 # distributed under the License is distributed on an "AS IS" BASIS,
  11 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  12 # See the License for the specific language governing permissions and
  13 # limitations under the License.
  14
  15 import kernel
  16
  17 class A
  18         fun foo: Int do return 1
  19         fun set_bar(i: Int) do i.output
  20         fun baz: Int do return 4
  21         fun set_baz(i: Int) do i.output
  22         fun zz do end
  23 end
  24
  25 class B
  26         super A
  27         redef var foo: Int = 20 is writable(set_foo)
  28         var bar: Int = 30 is redef writable(set_bar)
  29         redef var baz: Int = 40 is writable(set_baz)
  30         #alt2#var z: Int is writable(set_baz)
  31         #alt3#var z: Int is writable(zz)
  32         #alt4#var z: Int is redef writable(zz)
  33 end
  34
  35 class C
  36         super B
  37         fun foo=(i: Int) do set_foo(i)
  38         fun bar=(i: Int) do set_bar(i)
  39         fun baz=(i: Int) do set_baz(i)
  40 end
  41
  42 var a = new A
  43 a.foo.output
  44 a.set_bar 2
  45 a.set_baz 3
  46 a.baz.output
  47
  48 '\n'.output
  49
  50 var b = new B
  51 b.set_foo 10
  52 #alt1#b.foo = 10
  53 b.foo.output
  54 b.set_bar 20
  55 b.bar.output
  56 b.set_baz 30
  57 b.baz.output
  58
  59 '\n'.output
  60
  61 var c = new C
  62 c.foo = 100
  63 c.foo.output
  64 c.bar = 200
  65 c.bar.output
  66 c.baz = 300
  67 c.baz.output