#!perl -w

use Test::More tests=>1;

my @expected = <DATA>;
my @actual = `blib/script/pod-outline t/indent.pod`;

is_deeply( \@actual, \@expected );

__DATA__
HEADING 1

    Should be indented 4

    HEADING 2 A (Should be indented 4)

	Should be indented 8

	* Bullet 1

	* Bullet 2

HEADING 1 again

    HEADING 2 B (Should be indented 4)

	Should be indented 8

	HEADING3 A (should be in 8)

	    Should be in 12

	HEADING3 B (should be in 8)

	    Should be in 12

	    HEADING4 A (should be in 12)

		Should be in 16

		  1 Mega-indent

		  2 Mega-indent

	HEADING3 C (should be in 8)

	    Should be in 12

HEADING 1 A

    Should be indented 4