File: ppi_token_whitespace.t

package info (click to toggle)
libppi-perl 1.236-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 2,056 kB
  • ctags: 922
  • sloc: perl: 15,002; makefile: 8
file content (20 lines) | stat: -rwxr-xr-x 408 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl

# Unit testing for PPI::Token::Whitespace

use lib 't/lib';
use 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";
}