--- trunk/t/05-frey-dumper.t	2008/11/19 14:39:10	454
+++ trunk/t/05-frey-dumper.t	2008/11/19 15:28:23	455
@@ -4,7 +4,7 @@
 
 my $debug = @ARGV ? 1 : 0;
 
-use Test::More tests => 4;
+use Test::More tests => 5;
 use lib 'lib';
 
 use Data::Dump qw/dump/;
@@ -13,8 +13,11 @@
 	use_ok('Frey::Dumper');
 }
 
-ok( my $o = Frey::Dumper->new( data => { foo => 'bar' } ), 'new' );
-ok( my $markup = $o->markup, 'markup' );
+my $data = { foo => 'bar' };
+
+ok( my $o = Frey::Dumper->new( data => $data ), 'new' );
+ok( my $markup = $o->as_markup, 'markup' );
 diag $markup if $debug;
 like( $markup, qr/foo.*bar/, 'correct' );
+is_deeply( $o->as_data, $data, 'as_data' );