--- trunk/t/02-frey-session.t	2008/11/19 15:28:23	455
+++ trunk/t/02-frey-session.t	2008/11/27 21:04:35	562
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 12;
+use Test::More tests => 15;
 use lib 'lib';
 
 use Data::Dump qw/dump/;
@@ -32,3 +32,10 @@
 
 ok( my $data = $o->as_data, 'data' );
 diag $data if $debug;
+
+ok( $o->TODO( "test,ignore" ), 'TODO' );
+
+ok( defined( $o->bugs->{TODO} ), 'TODO' );
+ok( my $todo = $o->bugs->{TODO}->{"test,ignore"}, 'have test,ignore' );
+
+diag dump( $todo );