# $Id$

use Test::More 'no_plan';

BEGIN {
use lib qw( t/lib );
}

require "parse.pl";

my $output = parse_it( '37979.pod' );

my $expected = <<"HERE";
Chapter title
Section 1
	\$c->action
	\$c->action2()
	\$c - > action3
HERE

is( $output, $expected, "TOC comes out right" );