#!/usr/bin/perl -w
use Test::More;
use strict;

BEGIN { plan tests => 6 }

use Mac::Processes;

SKIP: {
#	skip "Mac::Processes", 6;

# other process tests are in Notification.t
# we should check struct fields, too

	my $exists = 1;
	while (my($psn, $pi) = each %Mac::Processes::Process) {
		$exists = 0, last unless -e $pi->processAppSpec;
	}
	ok($exists, 'check process paths');

	my $psn = GetCurrentProcess();
	is(GetProcessPID($psn),  $$,   'psn == pid');
	is(GetProcessForPID($$), $psn, 'pid == psn');
	ok(SameProcess($psn, GetProcessForPID($$)), 'SameProcess(psn, pid)');

	SKIP: {
		skip "No parent available", 2 unless $ENV{MAC_CARBON_GUI};
		my $info = $Process{$psn};
		skip "No parent available", 2 unless $Process{$info->processLauncher};
		ok(SetFrontProcess($info->processLauncher), 'set front process');
		ok(SameProcess($info->processLauncher, GetFrontProcess()), 'check front process');
	}
}

__END__