tests/test_finalization.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2014 Alexis Laferrière <alexis.laf@xymus.net>
   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 redef class Sys
  18         var a_finalizer_called = false
  19         var blob_finalizer_called = false
  20 end
  21
  22 redef class Pointer
  23         # Allocate a block of memory of `size` bytes
  24         new malloc(size: Int) `{ return malloc(size); `}
  25
  26         # Get a `NULL` Pointer
  27         new nil `{ return NULL; `}
  28 end
  29
  30 class A
  31         super Finalizable
  32
  33         redef fun finalize do sys.a_finalizer_called = true
  34 end
  35
  36 class Blob
  37         super Finalizable
  38
  39         var data = new Pointer.malloc(256000)
  40
  41         redef fun finalize
  42         do
  43                 if data.address_is_null then return
  44
  45                 data.free
  46                 self.data = new Pointer.nil
  47
  48                 sys.blob_finalizer_called = true
  49         end
  50 end
  51
  52 var x = new A
  53 x.finalize
  54
  55 var y = new Blob
  56 y.finalize
  57 sys.force_garbage_collection
  58
  59 for i in [0..10000[ do
  60         var a = new A
  61         sys.force_garbage_collection
  62 end
  63
  64 for i in [0..10000[ do
  65         var b = new Blob
  66
  67         sys.force_garbage_collection
  68 end
  69
  70 print sys.a_finalizer_called
  71 print sys.blob_finalizer_called