use Test::More tests => 4;
my $class = 'Mac::OSVersion';
my $method = 'gestalt';
use_ok( $class );
can_ok( $class, $method );
$" = " | ";
SKIP: {
skip "Need Mac::Gestlat for these tests", 2 unless
eval{ require 'Mac::Gestalt' };
my @list = eval{ $class->$method };
#diag( "Got @list" );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Scalar context
my $version = eval { $class->$method };
ok( defined $version,
"Got something in version [$version] for scalar context" );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Calling it directly
my @list1 = eval{ $class->$method };
#diag( "Got @list1" );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Explicitly specifying a method
my @list2 = eval { $class->version( $method ) };
#diag( "Got @list2" );
is_deeply( \@list1, \@list2,
"$method() and version() return the same thing" );
}