#!/usr/bin/perl

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" );