--- t/10-iselect.t	2007/10/25 16:08:43	13
+++ t/10-iselect.t	2007/10/25 17:24:33	14
@@ -4,7 +4,7 @@
 
 my $debug = shift @ARGV;
 
-use Test::More tests => 3;
+use Test::More tests => 6;
 use Data::Dump qw/dump/;
 use blib;
 
@@ -12,14 +12,27 @@
 	use_ok('Term::ISelect');
 }
 
-ok( my $iselect = Term::ISelect->new({
-	lines => [
+my $lines = [
 		'first line',
 		'{s}second selectable line',
 		'',
 		'last line',
-	],
+];
+
+ok( my $iselect = Term::ISelect->new({
+	lines => $lines,
 	debug => $debug,
 }), 'new' );
 isa_ok( $iselect, 'Term::ISelect' );
 
+diag "lines = ", dump( $iselect->lines ) if $debug;
+
+is_deeply( $iselect->lines, $lines, 'lines' );
+
+ok( $iselect->open_screen, 'open_screen' );
+system 'stty sane';
+
+ok( my $l = $iselect->full_line( "foo bar" ), 'full_line' );
+
+diag "full_line '$l'" if $debug;
+