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

BEGIN { plan tests => 14 }

use Mac::Gestalt;

SKIP: {
#	skip "Mac::Gestalt", 14;

	my $sel;

	$sel = $Gestalt{'pclk'};
	ok($sel, sprintf('%s MHz Clock Speed', $sel/1000000));

	ok(gestaltPhysicalRAMSize() eq 'ram ');
	$sel = $Gestalt{gestaltPhysicalRAMSize()};
	ok($sel, sprintf('%s MB Physical RAM', $sel/1048576));

	ok(gestaltLogicalRAMSize() eq 'lram');
	$sel = $Gestalt{gestaltLogicalRAMSize()};
	ok($sel, sprintf('%s MB Logical RAM', $sel/1048576));

	ok(gestaltSystemVersion() eq 'sysv');
	$sel = $Gestalt{gestaltSystemVersion()};
	my @vers = split //, sprintf "%x", $sel;
	my $vers = sprintf "%s.%s.", pop(@vers), pop(@vers);
	$vers = join('', @vers) . reverse $vers;
	ok($sel, "OS v$vers (old method)");

	ok(gestaltSystemVersionMajor()  eq 'sys1');
	ok(gestaltSystemVersionMinor()  eq 'sys2');
	ok(gestaltSystemVersionBugFix() eq 'sys3');
	$sel = $Gestalt{gestaltSystemVersionMajor()}
		. '.' . $Gestalt{gestaltSystemVersionMinor()}
		. '.' . $Gestalt{gestaltSystemVersionBugFix()};
	ok($sel, "OS v$vers");


	ok(gestaltAUXVersion() eq 'a/ux');
	$sel = $Gestalt{gestaltAUXVersion()};
	ok(!$sel, "Not running A/UX");

	$sel = $Gestalt{gestaltAliasMgrAttr()};
	ok(($sel & (1 << gestaltAliasMgrPresent)) == 1, "Alias manager present");
}

__END__