[gitmo/MooseX-AutoDoc.git] / t / 001-basic.t

#!/usr/bin/perl -w

use strict;
use warnings;
use MooseX::AutoDoc;
use FindBin '$Bin';
use lib "$Bin/lib";

use Test::More tests => 6;

BEGIN{
  use_ok("AutoDocTest1");
}

ok(
   defined(my $autodoc = eval {MooseX::AutoDoc->new}),
   "Was instantiated successfully"
  );
die "Failed to instantiate MooseX::AutoDoc" unless $autodoc;

ok(
   defined(my $view = eval {$autodoc->view}),
   "Was instantiated successfully"
  );
die "Failed to instantiate MooseX::AutoDoc::View::TT" unless $view;
can_ok $view, "render_class", "render_role";

ok length($view->role_template),  "Role template appears to have been loaded successfully";
ok length($view->class_template), "Class template appears to have been loaded successfully";
Commit	Line	Data
3890b670	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use warnings;
	5	use MooseX::AutoDoc;
	6	use FindBin '$Bin';
	7	use lib "$Bin/lib";
	8
	9	use Test::More tests => 6;
	10
	11	BEGIN{
	12	use_ok("AutoDocTest1");
	13	}
	14
	15	ok(
	16	defined(my $autodoc = eval {MooseX::AutoDoc->new}),
	17	"Was instantiated successfully"
	18	);
	19	die "Failed to instantiate MooseX::AutoDoc" unless $autodoc;
	20
	21	ok(
	22	defined(my $view = eval {$autodoc->view}),
	23	"Was instantiated successfully"
	24	);
	25	die "Failed to instantiate MooseX::AutoDoc::View::TT" unless $view;
	26	can_ok $view, "render_class", "render_role";
	27
	28	ok length($view->role_template), "Role template appears to have been loaded successfully";
	29	ok length($view->class_template), "Class template appears to have been loaded successfully";