whitespace cleanup

gugod · Jul 25, 2024 · 93f348b · 93f348b
1 parent 3a80783
commit 93f348b
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/t/18.release-detail-perl-remote.t b/t/18.release-detail-perl-remote.t
@@ -20,7 +20,7 @@ ok !$error, 'no error';
 ok defined( $rd->{tarball_url} ), 'tarball_url is defined';
 ok defined( $rd->{tarball_name} ), 'tarball_url is defined';
 
-is $rd->{tarball_url}, "https://www.cpan.org/src/5.0/perl-5.18.2.tar.bz2", 
+is $rd->{tarball_url}, "https://www.cpan.org/src/5.0/perl-5.18.2.tar.bz2",
  'tarball_url is correct';
 is $rd->{tarball_name}, "perl-5.18.2.tar.bz2",
  'tarball_name is correct';

diff --git a/t/command-list.t b/t/command-list.t
@@ -33,7 +33,7 @@ describe "list command," => sub {
  my $app = App::perlbrew->new("list");
  my $events = intercept { $app->run() };
  like $events,
- [ 
+ [
  {info => [{tag => 'STDOUT', details => qr/^(\s|\*)\sc?perl-?\d\.\d{1,3}[_.]\d{1,2}\s+/}]}
  ],
  'Cannot find Perl in output';
@@ -54,7 +54,7 @@ describe "list command," => sub {
  my $app = App::perlbrew->new("list");
  my $events = intercept { $app->run() };
  like $events,
- [ 
+ [
  {info => [{tag => 'STDOUT', details => qr/^(\s|\*)\sc?perl-?\d\.\d{1,3}[_.]\d{1,2}(@\w+)?/}]}
  ],
  'Cannot find Perl with libraries in output';
@@ -65,7 +65,7 @@ describe "list command," => sub {
  my $app = App::perlbrew->new("list");
  my $events = intercept { $app->run() };
  like $events,
- [ 
+ [
  {info => [{tag => 'STDOUT', details => qr/^(\s|\*)\sc?perl-?\d\.\d{1,3}[_.]\d{1,2}(\@nobita)?/}]}
  ],
  'Cannot find Perl with libraries in output';
@@ -79,7 +79,7 @@ describe "list command," => sub {
  $app->run();
  };
  like $events,
- [ 
+ [
  {info => [{tag => 'STDOUT', details => qr/^perl-?\d\.\d{1,3}[_.]\d{1,2}(@\w+)?/}]}
  ],
  'No decoration mark in the output';
@@ -91,7 +91,7 @@ describe "list command," => sub {
  my $app = App::perlbrew->new("list", "--no-decoration");
  my $events = intercept { $app->run() };
  like $events,
- [ 
+ [
  {info => [{tag => 'STDOUT', details => qr/^perl-?\d\.\d{1,3}[_.]\d{1,2}(@\w+)?/}]}
  ],
  'No decoration mark in the output';

diff --git a/t/http-program-control.t b/t/http-program-control.t
@@ -25,7 +25,7 @@ for my $prog (qw(curl wget fetch)) {
 
 subtest "something not supported", sub {
  local $App::Perlbrew::HTTP::HTTP_USER_AGENT_PROGRAM = "something-that-is-not-recognized";
- ok dies { http_user_agent_program() }, 
+ ok dies { http_user_agent_program() },
  "should die when asked to use unrecognized http UA program";
 };