#!/usr/bin/perl
use strict;
BEGIN { require "$ENV{LJHOME}/cgi-bin/LJ/Directories.pm"; }
LJ::Worker::Test->set_memory_limit(40*1024*1024); # 80MB memory limit
LJ::Worker::Test->run;

package LJ::Worker::Test;
use base 'LJ::Worker::Manual';

my $iteration = 0;
my %heap;

# return 1 if we did work, false if not.
sub work {
    my $class = shift;

    $heap{$iteration++} = "x" x (1024 * 1024); # Shove 1MB onto the heap
    print "Iteration: $iteration\n";

    return 0;
}

#3 each:
#206, 207, 208, 235, 236, 247