From 8ec8da0491ad89604700b3e29a227966f6d84ba1 Mon Sep 17 00:00:00 2001 From: Perl Tidy Date: Wed, 5 Dec 2018 15:38:52 -0500 Subject: no bug - reformat all the code using the new perltidy rules --- t/sqlite-memory.t | 95 +++++++++++++++++++++++++++++++++---------------------- 1 file changed, 58 insertions(+), 37 deletions(-) (limited to 't/sqlite-memory.t') diff --git a/t/sqlite-memory.t b/t/sqlite-memory.t index 66f8e5d29..6b5d8bfd6 100644 --- a/t/sqlite-memory.t +++ b/t/sqlite-memory.t @@ -15,12 +15,12 @@ use Capture::Tiny qw(capture_merged); use Bugzilla::Test::MockParams; BEGIN { - $ENV{LOCALCONFIG_ENV} = 'BMO'; - $ENV{BMO_db_driver} = 'sqlite'; - $ENV{BMO_db_name} = ':memory:'; -}; + $ENV{LOCALCONFIG_ENV} = 'BMO'; + $ENV{BMO_db_driver} = 'sqlite'; + $ENV{BMO_db_name} = ':memory:'; +} use Bugzilla; -BEGIN { Bugzilla->extensions }; +BEGIN { Bugzilla->extensions } isa_ok(Bugzilla->dbh, 'Bugzilla::DB::Sqlite'); @@ -29,61 +29,82 @@ use ok 'Bugzilla::Install'; use ok 'Bugzilla::Install::DB'; my $lives_ok = sub { - my ($desc, $code) = @_; - my $output; - try { - $output = capture_merged { $code->() }; - pass($desc); - } catch { - diag $_; - fail($desc); - } finally { - diag "OUTPUT: $output" if $output; - }; + my ($desc, $code) = @_; + my $output; + try { + $output = capture_merged { $code->() }; + pass($desc); + } + catch { + diag $_; + fail($desc); + } + finally { + diag "OUTPUT: $output" if $output; + }; }; my $output = ''; -$lives_ok->('bz_setup_database' => sub { - Bugzilla->dbh->bz_setup_database -}); +$lives_ok->( + 'bz_setup_database' => sub { + Bugzilla->dbh->bz_setup_database; + } +); + +$lives_ok->( + 'bz_populate_enum_tables' => sub { -$lives_ok->('bz_populate_enum_tables' => sub { # Populate the tables that hold the values for the