#!/usr/bin/perl

use Test::More 'no_plan';

my $class  = 'Mac::OSVersion';
my $method = 'uname';

use_ok( $class );
can_ok( $class, $method ); 

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
# In scalar context
my $kernel = $class->$method;
ok( defined $kernel, "kernel is defined [$kernel]" );

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
# In list context (kernel is last, so it should have six entries)
# This is a fragile test because it depends on order.
{
my @list = $class->$method;
is( scalar @list, 6, "There are six entries in list" );
is( $list[-1], $kernel, "Get same answer as scalar context" );
}

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
# Using it with version
{
my @list = $class->version( 'uname' );
is( scalar @list, 6, "There are six entries in list" );
is( $list[-1], $kernel, "Get same answer as scalar context" );
}