t/stress/gc.t

   1 #! perl
   2 # Copyright (C) 2001-2003, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/stress/gc.t - Garbage Collection
   8
   9 =head1 SYNOPSIS
  10
  11     % perl -Ilib t/stress/gc.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests garbage collection.
  16
  17 =cut
  18
  19 use strict;
  20 use warnings;
  21
  22 use lib qw(lib . ../lib ../../lib);
  23 use Parrot::Test tests => 1;
  24 use Test::More;
  25 use Parrot::PMC qw(%pmc_types);
  26
  27 pasm_output_is( <<'CODE', <<'OUTPUT', "arraystress" );
  28     print "starting\n"
  29     new P0, 'Integer'
  30     print "ending\n"
  31     end
  32 CODE
  33 starting
  34 ending
  35 OUTPUT
  36
  37 1;
  38
  39 # Local Variables:
  40 #   mode: cperl
  41 #   cperl-indent-level: 4
  42 #   fill-column: 100
  43 # End:
  44 # vim: expandtab shiftwidth=4: