#!/usr/bin/perl

use strict;
use warnings;

use Test::More qw(
	no_plan
	);

my $sublist = 't/data/sublist';
my @parts = qw(-main -graphics -defined);
foreach my $part (@parts) {
	(-e "$sublist$part") or die "missing $sublist$part";
}

use_ok('CAD::Drawing');

my @subs;
@subs = load_list("$sublist-main");
@subs or die;

foreach my $sub (@subs) {
	ok(CAD::Drawing->can($sub), "CAD::Drawing->$sub");
}

@subs = load_list("$sublist-defined");
@subs or die;

foreach my $sub (@subs) {
	ok(CAD::Drawing::Defined->can($sub), "...Defined::$sub");
}


use_ok('CAD::Drawing::Manipulate::Graphics');

@subs = load_list("$sublist-graphics");
@subs or die;

foreach my $sub (@subs) {
	ok(CAD::Drawing->can($sub), "...Graphics::$sub");
}

########################################################################
sub load_list {
	my $f = shift;
	my $fh;
	open($fh, $f) or die;
	local $/ = undef;
	return(split(/\n/, <$fh>));
}