--- trunk/t/03-Frey-Pod.t	2009/02/03 20:55:45	1033
+++ trunk/t/03-Frey-Pod.t	2009/02/03 21:24:02	1034
@@ -4,13 +4,14 @@
 
 my $debug = @ARGV ? 1 : 0;
 
-use Test::More tests => 7;
+use Test::More tests => 11;
 use lib 'lib';
 
 use Data::Dump qw/dump/;
 
 BEGIN {
 	use_ok('Frey::Pod');
+	use_ok('Test::HTML::Lint');
 }
 
 ok( my $o = Frey::Pod->new( class => 'Frey::Pod', debug => $debug ), 'new' );
@@ -19,6 +20,7 @@
 
 ok( my $h = $o->as_markup('Frey::Pod'), 'markup' );
 diag $h if $debug;
+html_ok($h);
 
 like( $h, qr/Frey::Pod/, 'found me' );
 
@@ -26,3 +28,5 @@
 diag dump( @h ) if $debug;
 isa_ok( \@h, 'ARRAY' );
 
+html_ok( $_ ) foreach @h;
+