view release on metacpan or  search on metacpan

t/02-method.t  view on Meta::CPAN

    is($pe->majflt,      delete $pe->{majflt},      'method majflt');
    is($pe->nswap,       delete $pe->{nswap},       'method nswap');
    is($pe->inblock,     delete $pe->{inblock},     'method inblock');
    is($pe->oublock,     delete $pe->{oublock},     'method oublock');
    is($pe->msgsnd,      delete $pe->{msgsnd},      'method msgsnd');
    is($pe->msgrcv,      delete $pe->{msgrcv},      'method msgrcv');
    is($pe->nsignals,    delete $pe->{nsignals},    'method nsignals');
    is($pe->nvcsw,       delete $pe->{nvcsw},       'method nvcsw');
    is($pe->nivcsw,      delete $pe->{nivcsw},      'method nivcsw');

    my $grouplist = $pe->groups;
    delete $pe->{groups};
    ok( defined($grouplist), 'method groups' );
    is( ref($grouplist), 'ARRAY', q{... it's a list} );
    SKIP: {
        skip( "not supported on FreeBSD 4.x", 1 )
            if $RUNNING_ON_FREEBSD_4;
        is( scalar(@$grouplist), $ngroups, "... of the expected size" )
            or diag("grouplist = (@$grouplist)");
    }

    is($pe->hadthreads,  delete $pe->{hadthreads},  'method hadthreads');
    is($pe->emul,        delete $pe->{emul},        'method emul');
    is($pe->jid,         delete $pe->{jid},         'method jid');
    is($pe->numthreads,  delete $pe->{numthreads},  'method numthreads');
    is($pe->utime_ch,    delete $pe->{utime_ch},    'method utime_ch');
    is($pe->stime_ch,    delete $pe->{stime_ch},    'method stime_ch');
    is($pe->time_ch,     delete $pe->{time_ch},     'method time_ch (utime_ch+stime_ch');
    is($pe->maxrss_ch,   delete $pe->{maxrss_ch},   'method maxrss_ch');
    is($pe->ixrss_ch,    delete $pe->{ixrss_ch},    'method ixrss_ch');
    is($pe->idrss_ch,    delete $pe->{idrss_ch},    'method idrss_ch');
    is($pe->isrss_ch,    delete $pe->{isrss_ch},    'method isrss_ch');
    is($pe->minflt_ch,   delete $pe->{minflt_ch},   'method minflt_ch');
    is($pe->majflt_ch,   delete $pe->{majflt_ch},   'method majflt_ch');
    is($pe->nswap_ch,    delete $pe->{nswap_ch},    'method nswap_ch');
    is($pe->inblock_ch,  delete $pe->{inblock_ch},  'method inblock_ch');
    is($pe->oublock_ch,  delete $pe->{oublock_ch},  'method oublock_ch');
    is($pe->msgsnd_ch,   delete $pe->{msgsnd_ch},   'method msgsnd_ch');
    is($pe->msgrcv_ch,   delete $pe->{msgrcv_ch},   'method msgrcv_ch');
    is($pe->nsignals_ch, delete $pe->{nsignals_ch}, 'method nsignals_ch');
    is($pe->nvcsw_ch,    delete $pe->{nvcsw_ch},    'method nvcsw_ch');
    is($pe->nivcsw_ch,   delete $pe->{nivcsw_ch},   'method nivcsw_ch');
    # check for typos in hv_store calls in Process.xs
    is( scalar(grep {!/^_/} keys %$pe), 0, 'all methods have been accounted for' )
        or diag( 'leftover: ' . join( ',', grep {!/^_/} keys %$pe ));

    $pe->refresh;

    # longhand method names
    is($pe->process_pid,                   delete $pe->{pid},         'alias process_pid' );
    is($pe->parent_pid,                    delete $pe->{ppid},        'alias parent_pid');
    is($pe->process_group_id,              delete $pe->{pgid},        'alias process_group_id');
    is($pe->tty_process_group_id,          delete $pe->{tpgid},       'alias tty_process_group_id');
    is($pe->process_session_id,            delete $pe->{sid},         'alias tty_process_group_id');
    is($pe->job_control_counter,           delete $pe->{jobc},        'alias job_control_counter');
    is($pe->resident_set_size,             delete $pe->{rssize},      'alias resident_set_size');
    is($pe->rssize_before_swap,            delete $pe->{swrss},       'alias rssize_before_swap');
    is($pe->text_size,                     delete $pe->{tsize},       'alias text_size');
    is($pe->exit_status,                   delete $pe->{xstat},       'alias exit_status');
    is($pe->accounting_flags,              delete $pe->{acflag},      'alias accounting_flags');
    is($pe->percent_cpu,                   delete $pe->{pctcpu},      'alias percent_cpu');
    is($pe->estimated_cpu,                 delete $pe->{estcpu},      'alias estimated_cpu');
    is($pe->sleep_time,                    delete $pe->{slptime},     'alias sleep_time');
    is($pe->time_last_swap,                delete $pe->{swtime},      'alias time_last_swap');
    is($pe->elapsed_time,                  delete $pe->{runtime},     'alias elapsed_time');
    is($pe->process_flags,                 delete $pe->{flag},        'alias process_flags');
    is($pe->nice_priority,                 delete $pe->{nice},        'alias nice_priority');
    is($pe->process_lock_count,            delete $pe->{lock},        'alias process_lock_count');
    is($pe->run_queue_index,               delete $pe->{rqindex},     'alias run_queue_index');
    is($pe->current_cpu,                   delete $pe->{oncpu},       'alias current_cpu');
    is($pe->last_cpu,                      delete $pe->{lastcpu},     'alias last_cpu');
    is($pe->wchan_message,                 delete $pe->{wmesg},       'alias wchan_message');
    is($pe->setlogin_name,                 delete $pe->{login},       'alias setlogin_name');
    is($pe->command_name,                  delete $pe->{comm},        'alias command_name');

    is($pe->process_args,                  delete $pe->{args},        'alias process_args' );
    is($pe->terminal_session_id,           delete $pe->{tsid},        'alias terminal_session_id');
    is($pe->effective_user_id,             delete $pe->{uid},         'alias effective_user_id');
    is($pe->real_user_id,                  delete $pe->{ruid},        'alias real_user_id');
    is($pe->saved_effective_user_id,       delete $pe->{svuid},       'alias saved_effective_user_id');
    is($pe->real_group_id,                 delete $pe->{rgid},        'alias real_group_id');
    is($pe->saved_effective_group_id,      delete $pe->{svgid},       'alias saved_effective_group_id');
    is($pe->number_of_groups,              delete $pe->{ngroups},     'alias number_of_groups');
    is($pe->virtual_size,                  delete $pe->{size},        'alias virtual_size');
    is($pe->data_size,                     delete $pe->{dsize},       'alias data_size');
    is($pe->stack_size,                    delete $pe->{ssize},       'alias stack_size');
    is($pe->start_time,                    delete $pe->{start},       'alias start_time');
    is($pe->children_time,                 delete $pe->{childtime},   'alias children_time');
    is($pe->posix_advisory_lock,           delete $pe->{advlock},     'alias posix_advisory_lock');
    is($pe->has_controlling_terminal,      delete $pe->{controlt},    'alias has_controlling_terminal');
    is($pe->is_kernel_thread,              delete $pe->{kthread},     'alias is_kernel_thread');
    is($pe->no_loadavg_calc,               delete $pe->{noload},      'alias no_loadavg_calc');
    is($pe->parent_waiting,                delete $pe->{ppwait},      'alias parent_waiting');
    is($pe->started_profiling,             delete $pe->{profil},      'alias started_profiling');
    is($pe->stopped_profiling,             delete $pe->{stopprof},    'alias stopped_profiling');
    is($pe->id_privs_set,                  delete $pe->{sugid},       'alias id_privs_set');
    is($pe->system_process,                delete $pe->{system},      'alias system_process');
    is($pe->single_exit_not_wait,          delete $pe->{single_exit}, 'alias single_exit_not_wait');
    is($pe->traced_by_debugger,            delete $pe->{traced},      'alias traced_by_debugger');
    is($pe->waited_on_by_other,            delete $pe->{waited},      'alias waited_on_by_other');
    is($pe->working_on_exiting,            delete $pe->{wexit},       'alias working_on_exiting');
    is($pe->process_called_exec,           delete $pe->{exec},        'alias process_called_exec');
    is($pe->kernel_session_flag,           delete $pe->{kiflag},      'alias kernel_session_flag');
    is($pe->is_locked,                     delete $pe->{locked},      'alias is_locked');
    is($pe->controlling_tty_active,        delete $pe->{isctty},      'alias controlling_tty_active');
    is($pe->is_session_leader,             delete $pe->{issleader},   'alias is_session_leader');
    is($pe->process_status,                delete $pe->{stat},        'alias process_status');
    is($pe->is_being_forked,               delete $pe->{stat_1},      'alias is_being_forked');
    is($pe->is_runnable,                   delete $pe->{stat_2},      'alias is_runnable');
    is($pe->is_sleeping_on_addr,           delete $pe->{stat_3},      'alias is_sleeping_on_addr');
    is($pe->is_stopped,                    delete $pe->{stat_4},      'alias is_stopped');
    is($pe->is_a_zombie,                   delete $pe->{stat_5},      'alias is_a_zombie');
    is($pe->is_waiting_on_intr,            delete $pe->{stat_6},      'alias is_waiting_on_intr');
    is($pe->is_blocked,                    delete $pe->{stat_7},      'alias is_blocked');
    is($pe->old_command_name,              delete $pe->{ocomm},       'alias old_command_name');
    is($pe->name_of_lock,                  delete $pe->{lockname},    'alias name_of_lock');
    is($pe->priority_scheduling_class,     delete $pe->{pri_class},   'alias priority_scheduling_class');
    is($pe->priority_level,                delete $pe->{pri_level},   'alias priority_level');
    is($pe->priority_native,               delete $pe->{pri_native},  'alias priority_native');
    is($pe->priority_user,                 delete $pe->{pri_user},    'alias priority_user');
    is($pe->user_time,                     delete $pe->{utime},       'alias user_time');