lib_size.t (540B)
1 # 2 # Test that the runtime shared file size is what we expect. 3 # 4 use Modern::Perl; 5 use Test::More tests => 6; 6 7 use lib 't'; 8 require mem; 9 require utils; 10 11 12 my $dir = utils::setup_projdir(); 13 14 $dir->run( prog => $dir->workdir . "/program", args => '1', 15 chdir => $dir->curdir ); 16 is( $dir->stdout, '1', 'inst program stdout correct' ); 17 isnt( $dir->stderr, '', 'inst program stderr not silent' ); 18 is( $? >> 8, 0, 'inst program exit code 0' ); 19 20 my $procfile = mem->new(); 21 22 is( $procfile->{size}, $mem::os_allocsize * 4, 'file has correct size' );