add some more coverage for untested subs

Author: wchristian

t/15_transform.t

@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use t::lib::PPI::Test::pragmas;
-use Test::More 0.86 tests => 23 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+use Test::More 0.86 tests => 24 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
 
 use File::Spec::Functions ':ALL';
 use File::Remove;
@@ -101,6 +101,11 @@ foreach my $input ( @files ) {
 }
 
 
+eval { PPI::Transform->document };
+like $@, qr/PPI::Transform does not implement the required ->document method/,
+  "transform classes need to implement ->document";
+
+
 
 
 

t/ppi_lexer.t

@@ -3,7 +3,7 @@
 # Unit testing for PPI::Lexer
 
 use t::lib::PPI::Test::pragmas;
-use Test::More tests => 43 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+use Test::More tests => 46 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
 
 use PPI;
 
@@ -147,3 +147,10 @@ LEX_STRUCTURE: {
 	# Validate the creation of an empty statement
 	new_ok( 'PPI::Statement' => [ ] );
 }
+
+ERROR_HANDLING: {
+	my $test_lexer = PPI::Lexer->new;
+	is $test_lexer->errstr, "", "errstr is an empty string at the start";
+	is $test_lexer->lex_file( undef ), undef, "lex_file fails without a filename";
+	is( PPI::Lexer->errstr, "Did not pass a filename to PPI::Lexer::lex_file", "error can be gotten from class attribute" );
+}

t/ppi_token.t

@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+# Unit testing for PPI::Token
+
+use t::lib::PPI::Test::pragmas;
+use Test::More tests => 5 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+
+use PPI;
+
+MODIFICATION: {
+	my $one = PPI::Token->new( "" );
+	is $one->length, 0, "empty token has no length";
+	ok $one->add_content( "abcde" ), "can add strings";
+	is $one->length, 5, "adding actually adds";
+	ok $one->set_content( "abc" ), "can set content";
+	is $one->length, 3, "setting overwrites";
+}

t/ppi_token_whitespace.t

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+# Unit testing for PPI::Token::Whitespace
+
+use t::lib::PPI::Test::pragmas;
+use Test::More tests => 6 + ( $ENV{AUTHOR_TESTING} ? 1 : 0 );
+
+use PPI;
+
+TIDY: {
+	my $ws1 = PPI::Token::Whitespace->new( "   " );
+	is $ws1->length, "3";
+	ok $ws1->tidy;
+	is $ws1->length, "3";
+	my $ws2 = PPI::Token::Whitespace->new( "   \n" );
+	is $ws2->length, "4";
+	ok $ws2->tidy;
+	is $ws2->length, "0";
+}