use Test::More 'no_plan';
my $class = 'Mac::OSVersion';
my $method = 'sw_vers';
use_ok( $class );
can_ok( $class, $method );
$" = " | ";
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Scalar context
my $version = $class->$method;
ok( defined $version, "Got something in version [$version] for scalar context" );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Direct access
my @list1 = $class->$method;
#diag( "Got @list1" );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Through version()
my @list2 = $class->version( $method );
#diag( "Got @list2" );
is_deeply( \@list1, \@list2, "$method() and version() return the same thing" );