#!/usr/bin/perl -w
use Test::More;
use strict;
BEGIN { plan tests => 1 }
use Mac::Components;
SKIP: {
# skip "Mac::Components", 1;
# try to open components, get info from them
my $count = 0;
for (my $comp = 0; $comp = FindNextComponent($comp, $ARGV[0]); ) {
++$count;
}
is($count, CountComponents(), 'count components');
}
__END__