# $Id: darwin2mac.t 2494 2008-01-16 11:30:24Z comdog $
use strict;

use vars qw(@pairs);

use Mac::Path::Util;

BEGIN {
	@pairs = (
		[ '/Users/brian', Mac::Path::Util::STARTUP . ":Users:brian" ],
		[ qw(brian :brian) ],
		[ qw(brian/Dev/Mac :brian:Dev:Mac) ],
		[ qw(/Volumes/CPAN/brian/Dev/Mac CPAN:brian:Dev:Mac) ],
		);
	}

use Test::More tests => 2 * scalar @pairs;
use Test::Data qw(Scalar);


foreach my $pair ( @pairs )
	{
	# white box test
	my $hash   = { starting_path => $pair->[0] };
	bless $hash, 'Mac::Path::Util';
	my $result = $hash->_darwin2mac;

	is( $result, $pair->[1],
		"White box: Mac path is right [$$pair[1]]" );

	# black box test
	my $path = Mac::Path::Util->new( $pair->[0] );
	if( $path->type eq Mac::Path::Util::DONT_KNOW )
		{
		undef_ok( $path->mac_path );
		next;
		}

	is( $path->mac_path, $pair->[1],
		"Black box: Mac path is right [$$pair[1]]" );
	}