# $Id$

use Test::More;

sub parse_it
	{	
	use File::Spec;

	my $file = File::Spec->catfile( qw(t test_pod), $_[0] );
	ok( -e $file, "Test file [$file] exists" );
	
	use_ok( 'Pod::TOC' );
	
	my $output = '';
	open my( $fh ), ">", \$output;
	
	my $parser = Pod::TOC->new();
	isa_ok( $parser, 'Pod::TOC' );
	
	$parser->output_fh( $fh );
	$parser->parse_file( $file );
	
	#print STDERR "GOT: $output";
	
	return $output;
	}

1;