t/op/gc-leaky-call.t

   1 #!./parrot
   2 # Copyright (C) 2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/op/gc-leaky-call.t - test for memory leaks in the Garbage Collector
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/op/gc-leaky-call.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests that we actually do a GC mark and sweep after a large number of
  16 function calls.
  17
  18 =cut
  19
  20 .include 'interpinfo.pasm'
  21
  22 .sub _main :main
  23     .include 'test_more.pir'
  24
  25     plan(3)
  26
  27     $S0 = interpinfo .INTERPINFO_GC_SYS_NAME
  28     if $S0 == "inf" goto dont_run_hanging_tests
  29
  30     test_gc_mark_sweep()
  31
  32     goto test_end
  33   dont_run_hanging_tests:
  34     ok(1, "#TODO - Test disabled on gc_inf")
  35     ok(1, "#TODO - Test disabled on gc_inf")
  36     ok(1, "#TODO - Test disabled on gc_inf")
  37   test_end:
  38 .end
  39
  40 .sub test_gc_mark_sweep
  41     .local int counter
  42
  43     counter = 0
  44   loop:
  45     consume()
  46     inc counter
  47     if counter < 1e6 goto loop
  48
  49     $I1 = interpinfo.INTERPINFO_GC_COLLECT_RUNS
  50     $I2 = interpinfo.INTERPINFO_GC_MARK_RUNS
  51     $I3 = interpinfo.INTERPINFO_TOTAL_MEM_ALLOC
  52
  53     $S1 = $I1
  54     $S0 = "performed " . $S1
  55     $S0 .= " (which should be >=1) GC collect runs"
  56     ok($I1,$S0)
  57
  58     $S1 = $I2
  59     $S0 = "performed " . $S1
  60     $S0 .= " (which should be >=1) GC mark runs"
  61     ok($I2,$S0)
  62
  63     $S1 = $I3
  64     $S0 = "allocated " . $S1
  65     $S0 .= " (which should be <= 2_000_000) bytes of memory"
  66     $I4 = isle $I3, 2000000
  67     ok($I4,$S0)
  68 .end
  69
  70 .sub consume
  71 .end
  72
  73 # Local Variables:
  74 #   mode: pir
  75 #   fill-column: 100
  76 # End:
  77 # vim: expandtab shiftwidth=4 ft=pir: