From 11c2f4e70f2c9ed6603eaf53763e990e28557665 Mon Sep 17 00:00:00 2001 From: Kenichi Ishigaki Date: Wed, 2 Jan 2019 21:17:30 +0900 Subject: [PATCH] use warnings --- t/01_compile.t | 6 +----- t/02_logon.t | 6 +----- t/03_create_table.t | 6 +----- t/04_insert.t | 6 +----- t/05_select.t | 6 +----- t/06_tran.t | 6 +----- t/07_error.t | 6 +----- t/08_busy.t | 6 +----- t/09_create_function.t | 6 +----- t/10_create_aggregate.t | 6 +----- t/11_get_info.t | 6 +----- t/12_unicode.t | 6 +----- t/13_create_collation.t | 6 +----- t/14_progress_handler.t | 6 +----- t/15_ak_dbd.t | 6 +----- t/16_column_info.t | 6 +----- t/17_createdrop.t | 6 +----- t/18_insertfetch.t | 6 +----- t/19_bindparam.t | 6 +----- t/20_blobs.t | 6 +----- t/21_blobtext.t | 6 +----- t/22_listfields.t | 6 +----- t/23_nulls.t | 6 +----- t/24_numrows.t | 6 +----- t/25_chopblanks.t | 6 +----- t/26_commit.t | 6 +----- t/27_metadata.t | 6 +----- t/28_schemachange.t | 6 +----- t/30_auto_rollback.t | 6 +----- t/31_bind_weird_number_param.t | 6 +----- t/32_inactive_error.t | 6 +----- t/33_non_latin_path.t | 6 +----- t/35_table_info.t | 6 +----- t/36_hooks.t | 6 +----- t/37_regexp.t | 6 +----- t/38_empty_statement.t | 6 +----- t/39_foreign_keys.t | 6 +----- t/40_multiple_statements.t | 6 +----- t/41_placeholders.t | 6 +----- t/42_primary_key_info.t | 6 +----- t/43_fts3.t | 6 +----- t/44_rtree.t | 6 +----- t/45_savepoints.t | 6 +----- t/46_mod_perl.t | 6 +----- t/47_execute.t | 6 +----- t/48_bind_param_is_sticky.t | 6 +----- t/49_trace_and_profile.t | 6 +----- t/50_foreign_key_info.t | 6 +----- t/51_table_column_metadata.t | 6 +----- t/52_db_filename.t | 6 +----- t/53_status.t | 6 +----- t/54_literal_txn.t | 6 +----- t/55_statistics_info.t | 6 +----- t/56_open_flags.t | 6 +----- t/57_uri_filename.t | 6 +----- t/58_see_if_its_a_number_and_explicit_binding.t | 6 +----- t/59_extended_result_codes.t | 6 +----- t/60_readonly.t | 6 +----- t/61_strlike.t | 6 +----- t/62_regexp_multibyte_char_class.t | 6 +----- t/63_param_values.t | 6 +----- t/64_limit.t | 6 +----- t/65_db_config.t | 6 +----- t/cookbook_variance.t | 6 +----- t/rt_106151_outermost_savepoint.t | 6 +----- t/rt_106950_extra_warnings_with_savepoints.t | 6 +----- t/rt_115465_column_info_with_spaces.t | 6 +----- t/rt_15186_prepcached.t | 6 +----- t/rt_21406_auto_finish.t | 6 +----- t/rt_25371_asymmetric_unicode.t | 6 +----- t/rt_25460_numeric_aggregate.t | 6 +----- t/rt_25924_user_defined_func_unicode.t | 6 +----- t/rt_27553_prepared_cache_and_analyze.t | 6 +----- t/rt_29058_group_by.t | 6 +----- t/rt_29629_sqlite_where_length.t | 6 +----- t/rt_31324_full_names.t | 6 +----- t/rt_32889_prepare_cached_reexecute.t | 6 +----- t/rt_36836_duplicate_key.t | 6 +----- t/rt_36838_unique_and_bus_error.t | 6 +----- t/rt_40594_nullable.t | 6 +----- t/rt_48393_debug_panic_with_commit.t | 6 +----- t/rt_50503_fts3.t | 6 +----- t/rt_52573_manual_exclusive_lock.t | 6 +----- t/rt_53235_icu_compatibility.t | 6 +----- t/rt_62370_diconnected_handles_operation.t | 6 +----- t/rt_64177_ping_wipes_out_the_errstr.t | 6 +----- t/rt_67581_bind_params_mismatch.t | 6 +----- t/rt_71311_bind_col_and_unicode.t | 6 +----- t/rt_73159_fts_tokenizer_segfault.t | 6 +----- t/rt_73787_exponential_buffer_overflow.t | 6 +----- t/rt_76395_int_overflow.t | 5 +---- t/rt_77724_primary_key_with_a_whitespace.t | 6 +----- t/rt_78833_utf8_flag_for_column_names.t | 6 +----- t/rt_81536_multi_column_primary_key_info.t | 6 +----- t/rt_88228_sqlite_3_8_0_crash.t | 6 +----- t/rt_96050_db_filename_for_a_closed_database.t | 6 +----- t/rt_96877_unicode_statements.t | 6 +----- t/rt_96878_fts_contentless_table.t | 6 +----- t/rt_97598_crash_on_disconnect_with_virtual_tables.t | 6 +----- t/virtual_table/00_base.t | 6 +----- t/virtual_table/01_destroy.t | 6 +----- t/virtual_table/02_find_function.t | 6 +----- t/virtual_table/10_filecontent.t | 7 +------ t/virtual_table/11_filecontent_fulltext.t | 6 +----- t/virtual_table/20_perldata.t | 7 +------ t/virtual_table/21_perldata_charinfo.t | 6 +----- t/virtual_table/rt_124941.t | 6 +----- t/virtual_table/rt_99748.t | 6 +----- 108 files changed, 108 insertions(+), 541 deletions(-) diff --git a/t/01_compile.t b/t/01_compile.t index eb47233..cd5a802 100644 --- a/t/01_compile.t +++ b/t/01_compile.t @@ -2,11 +2,7 @@ # load modules without having to check if it worked. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use Test::More tests => 3; use lib "t/lib"; diff --git a/t/02_logon.t b/t/02_logon.t index 7ddffaf..ab76385 100644 --- a/t/02_logon.t +++ b/t/02_logon.t @@ -1,11 +1,7 @@ # Tests basic login and pragma setting use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/03_create_table.t b/t/03_create_table.t index 758abf8..fddf3b7 100644 --- a/t/03_create_table.t +++ b/t/03_create_table.t @@ -1,11 +1,7 @@ # Tests simple table creation use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 7; diff --git a/t/04_insert.t b/t/04_insert.t index 274d938..a86aba6 100644 --- a/t/04_insert.t +++ b/t/04_insert.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 14; diff --git a/t/05_select.t b/t/05_select.t index f1fe361..40779a9 100644 --- a/t/05_select.t +++ b/t/05_select.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 22; diff --git a/t/06_tran.t b/t/06_tran.t index 33dbce4..ca45e58 100644 --- a/t/06_tran.t +++ b/t/06_tran.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 6; diff --git a/t/07_error.t b/t/07_error.t index 5af810b..121786d 100644 --- a/t/07_error.t +++ b/t/07_error.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 8; diff --git a/t/08_busy.t b/t/08_busy.t index 4d38cbd..f7f9182 100644 --- a/t/08_busy.t +++ b/t/08_busy.t @@ -1,11 +1,7 @@ # Test that two processes can write at once, assuming we commit timely. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/; use Test::More; diff --git a/t/09_create_function.t b/t/09_create_function.t index e91f734..a2a430c 100644 --- a/t/09_create_function.t +++ b/t/09_create_function.t @@ -1,10 +1,6 @@ use 5.00503; use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/10_create_aggregate.t b/t/10_create_aggregate.t index 73e9dd5..fa5fafc 100644 --- a/t/10_create_aggregate.t +++ b/t/10_create_aggregate.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/11_get_info.t b/t/11_get_info.t index 1cbe70d..84efb9c 100644 --- a/t/11_get_info.t +++ b/t/11_get_info.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/12_unicode.t b/t/12_unicode.t index 173b011..7ac4819 100644 --- a/t/12_unicode.t +++ b/t/12_unicode.t @@ -2,11 +2,7 @@ # handle parameter. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/13_create_collation.t b/t/13_create_collation.t index e007b60..4a0e130 100644 --- a/t/13_create_collation.t +++ b/t/13_create_collation.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok dies @CALL_FUNCS/; use Test::More; diff --git a/t/14_progress_handler.t b/t/14_progress_handler.t index 4dae78a..4466cc1 100644 --- a/t/14_progress_handler.t +++ b/t/14_progress_handler.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/15_ak_dbd.t b/t/15_ak_dbd.t index 9866ae4..a2d8db3 100644 --- a/t/15_ak_dbd.t +++ b/t/15_ak_dbd.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 37; diff --git a/t/16_column_info.t b/t/16_column_info.t index 864268a..95039c3 100644 --- a/t/16_column_info.t +++ b/t/16_column_info.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 12; diff --git a/t/17_createdrop.t b/t/17_createdrop.t index 373b0ed..b40a805 100644 --- a/t/17_createdrop.t +++ b/t/17_createdrop.t @@ -2,11 +2,7 @@ # and modify/extend it. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 4; diff --git a/t/18_insertfetch.t b/t/18_insertfetch.t index 7031d16..d7f3104 100644 --- a/t/18_insertfetch.t +++ b/t/18_insertfetch.t @@ -1,11 +1,7 @@ # This is a simple insert/fetch test. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 10; diff --git a/t/19_bindparam.t b/t/19_bindparam.t index 0499d69..a533a2e 100644 --- a/t/19_bindparam.t +++ b/t/19_bindparam.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 39; diff --git a/t/20_blobs.t b/t/20_blobs.t index 770c862..259de8f 100644 --- a/t/20_blobs.t +++ b/t/20_blobs.t @@ -2,11 +2,7 @@ # is expected to work correctly. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 17; diff --git a/t/21_blobtext.t b/t/21_blobtext.t index 5d303b9..a0aebde 100644 --- a/t/21_blobtext.t +++ b/t/21_blobtext.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 27; diff --git a/t/22_listfields.t b/t/22_listfields.t index 1d9ae58..91dbc1b 100644 --- a/t/22_listfields.t +++ b/t/22_listfields.t @@ -1,11 +1,7 @@ # This is a test for statement attributes being present appropriately. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 12; diff --git a/t/23_nulls.t b/t/23_nulls.t index 90297df..1f9ff31 100644 --- a/t/23_nulls.t +++ b/t/23_nulls.t @@ -1,11 +1,7 @@ # This is a test for correctly handling NULL values. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 9; diff --git a/t/24_numrows.t b/t/24_numrows.t index b199875..5768e77 100644 --- a/t/24_numrows.t +++ b/t/24_numrows.t @@ -1,11 +1,7 @@ # This tests, whether the number of rows can be retrieved. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 18; diff --git a/t/25_chopblanks.t b/t/25_chopblanks.t index 5acb15e..062a0d0 100644 --- a/t/25_chopblanks.t +++ b/t/25_chopblanks.t @@ -1,11 +1,7 @@ # Check whether 'ChopBlanks' works. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 14; diff --git a/t/26_commit.t b/t/26_commit.t index 4b8929d..7e9912f 100644 --- a/t/26_commit.t +++ b/t/26_commit.t @@ -1,11 +1,7 @@ # This is testing the transaction support. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 28; diff --git a/t/27_metadata.t b/t/27_metadata.t index a9c6e63..67dabda 100644 --- a/t/27_metadata.t +++ b/t/27_metadata.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use Test::More tests => 21; use lib "t/lib"; use SQLiteTest; diff --git a/t/28_schemachange.t b/t/28_schemachange.t index 7b8c038..b4cc618 100644 --- a/t/28_schemachange.t +++ b/t/28_schemachange.t @@ -2,11 +2,7 @@ # the thing that the test was originally meant to test. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use Test::More tests => 9; use lib "t/lib"; use SQLiteTest; diff --git a/t/30_auto_rollback.t b/t/30_auto_rollback.t index 7ee4c82..cc0f3bc 100644 --- a/t/30_auto_rollback.t +++ b/t/30_auto_rollback.t @@ -1,11 +1,7 @@ # I've disabled warnings, so theoretically warnings shouldn't be printed use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 6; diff --git a/t/31_bind_weird_number_param.t b/t/31_bind_weird_number_param.t index c581177..fbc0b36 100644 --- a/t/31_bind_weird_number_param.t +++ b/t/31_bind_weird_number_param.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; my @to_be_tested; BEGIN { @to_be_tested = (1.23E4); } diff --git a/t/32_inactive_error.t b/t/32_inactive_error.t index 781527f..f3d57c3 100644 --- a/t/32_inactive_error.t +++ b/t/32_inactive_error.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use Test::More tests => 7; use lib "t/lib"; use SQLiteTest; diff --git a/t/33_non_latin_path.t b/t/33_non_latin_path.t index 183844d..1f124e3 100644 --- a/t/33_non_latin_path.t +++ b/t/33_non_latin_path.t @@ -2,11 +2,7 @@ # currently fails on Windows use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/35_table_info.t b/t/35_table_info.t index 711b7af..a70540d 100644 --- a/t/35_table_info.t +++ b/t/35_table_info.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 22; diff --git a/t/36_hooks.t b/t/36_hooks.t index 53b561d..347e64e 100644 --- a/t/36_hooks.t +++ b/t/36_hooks.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/37_regexp.t b/t/37_regexp.t index c85ef58..ed2ffe0 100644 --- a/t/37_regexp.t +++ b/t/37_regexp.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/38_empty_statement.t b/t/38_empty_statement.t index 4a8b712..1686252 100644 --- a/t/38_empty_statement.t +++ b/t/38_empty_statement.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More; diff --git a/t/39_foreign_keys.t b/t/39_foreign_keys.t index 7aa18ee..e737167 100644 --- a/t/39_foreign_keys.t +++ b/t/39_foreign_keys.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/40_multiple_statements.t b/t/40_multiple_statements.t index 3168d6a..c86a67e 100644 --- a/t/40_multiple_statements.t +++ b/t/40_multiple_statements.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More; diff --git a/t/41_placeholders.t b/t/41_placeholders.t index e07ebcd..e9f3976 100644 --- a/t/41_placeholders.t +++ b/t/41_placeholders.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More; diff --git a/t/42_primary_key_info.t b/t/42_primary_key_info.t index 16b937a..9a36392 100644 --- a/t/42_primary_key_info.t +++ b/t/42_primary_key_info.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More; diff --git a/t/43_fts3.t b/t/43_fts3.t index 9c8464b..6483b50 100644 --- a/t/43_fts3.t +++ b/t/43_fts3.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok has_sqlite/; use Test::More; diff --git a/t/44_rtree.t b/t/44_rtree.t index d3516c8..1c41b34 100644 --- a/t/44_rtree.t +++ b/t/44_rtree.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/45_savepoints.t b/t/45_savepoints.t index 3a3e455..87e1ef3 100644 --- a/t/45_savepoints.t +++ b/t/45_savepoints.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/46_mod_perl.t b/t/46_mod_perl.t index b0dfab8..8863852 100644 --- a/t/46_mod_perl.t +++ b/t/46_mod_perl.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/47_execute.t b/t/47_execute.t index e5faab2..43206c0 100644 --- a/t/47_execute.t +++ b/t/47_execute.t @@ -1,11 +1,7 @@ # Trigger locking error and test prepared statement is still valid afterwards use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/; use Test::More; diff --git a/t/48_bind_param_is_sticky.t b/t/48_bind_param_is_sticky.t index 7fdf3cd..9184a55 100644 --- a/t/48_bind_param_is_sticky.t +++ b/t/48_bind_param_is_sticky.t @@ -1,11 +1,7 @@ # Check data type assignment in bind_param is sticky use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use DBI qw(:sql_types); diff --git a/t/49_trace_and_profile.t b/t/49_trace_and_profile.t index 394a15f..a5b77ae 100644 --- a/t/49_trace_and_profile.t +++ b/t/49_trace_and_profile.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS requires_sqlite/; use Test::More; diff --git a/t/50_foreign_key_info.t b/t/50_foreign_key_info.t index 41c3495..73f3f93 100644 --- a/t/50_foreign_key_info.t +++ b/t/50_foreign_key_info.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/51_table_column_metadata.t b/t/51_table_column_metadata.t index cb9712b..360b8c4 100644 --- a/t/51_table_column_metadata.t +++ b/t/51_table_column_metadata.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use DBD::SQLite; use Test::More; diff --git a/t/52_db_filename.t b/t/52_db_filename.t index 55b08cf..2e746e1 100644 --- a/t/52_db_filename.t +++ b/t/52_db_filename.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS requires_sqlite/; use Test::More; diff --git a/t/53_status.t b/t/53_status.t index e8b5f3f..42c41b2 100644 --- a/t/53_status.t +++ b/t/53_status.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS has_sqlite/; use Test::More; diff --git a/t/54_literal_txn.t b/t/54_literal_txn.t index 762096a..76d9f74 100644 --- a/t/54_literal_txn.t +++ b/t/54_literal_txn.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More tests => 5; diff --git a/t/55_statistics_info.t b/t/55_statistics_info.t index 785b141..94c2865 100644 --- a/t/55_statistics_info.t +++ b/t/55_statistics_info.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/56_open_flags.t b/t/56_open_flags.t index 91f5c37..6d46a2e 100644 --- a/t/56_open_flags.t +++ b/t/56_open_flags.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/57_uri_filename.t b/t/57_uri_filename.t index f00476a..90ab4e3 100644 --- a/t/57_uri_filename.t +++ b/t/57_uri_filename.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/58_see_if_its_a_number_and_explicit_binding.t b/t/58_see_if_its_a_number_and_explicit_binding.t index 362d7dd..949e791 100644 --- a/t/58_see_if_its_a_number_and_explicit_binding.t +++ b/t/58_see_if_its_a_number_and_explicit_binding.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More; diff --git a/t/59_extended_result_codes.t b/t/59_extended_result_codes.t index 77cf4a5..c35bffd 100644 --- a/t/59_extended_result_codes.t +++ b/t/59_extended_result_codes.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More; diff --git a/t/60_readonly.t b/t/60_readonly.t index c3748b9..349f05d 100644 --- a/t/60_readonly.t +++ b/t/60_readonly.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok requires_sqlite/; use Test::More; diff --git a/t/61_strlike.t b/t/61_strlike.t index 2ce7571..05522d1 100644 --- a/t/61_strlike.t +++ b/t/61_strlike.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/requires_sqlite/; use Test::More; diff --git a/t/62_regexp_multibyte_char_class.t b/t/62_regexp_multibyte_char_class.t index 3a7492a..1832c52 100644 --- a/t/62_regexp_multibyte_char_class.t +++ b/t/62_regexp_multibyte_char_class.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/63_param_values.t b/t/63_param_values.t index 8d153c3..b74e9fb 100644 --- a/t/63_param_values.t +++ b/t/63_param_values.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More; diff --git a/t/64_limit.t b/t/64_limit.t index 25ec53f..a9473ba 100644 --- a/t/64_limit.t +++ b/t/64_limit.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/65_db_config.t b/t/65_db_config.t index 1203d2d..f25b2e3 100644 --- a/t/65_db_config.t +++ b/t/65_db_config.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/cookbook_variance.t b/t/cookbook_variance.t index 33e64b0..21ad5ac 100644 --- a/t/cookbook_variance.t +++ b/t/cookbook_variance.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_106151_outermost_savepoint.t b/t/rt_106151_outermost_savepoint.t index 017444a..335b18c 100644 --- a/t/rt_106151_outermost_savepoint.t +++ b/t/rt_106151_outermost_savepoint.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_106950_extra_warnings_with_savepoints.t b/t/rt_106950_extra_warnings_with_savepoints.t index 5669579..454503c 100644 --- a/t/rt_106950_extra_warnings_with_savepoints.t +++ b/t/rt_106950_extra_warnings_with_savepoints.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_115465_column_info_with_spaces.t b/t/rt_115465_column_info_with_spaces.t index 6190eb8..5f23d57 100644 --- a/t/rt_115465_column_info_with_spaces.t +++ b/t/rt_115465_column_info_with_spaces.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_15186_prepcached.t b/t/rt_15186_prepcached.t index 04a7853..9a422c8 100644 --- a/t/rt_15186_prepcached.t +++ b/t/rt_15186_prepcached.t @@ -3,11 +3,7 @@ # About re-using statements with prepare_cached(). use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 13; diff --git a/t/rt_21406_auto_finish.t b/t/rt_21406_auto_finish.t index 7afa02b..22f12ec 100644 --- a/t/rt_21406_auto_finish.t +++ b/t/rt_21406_auto_finish.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 11; diff --git a/t/rt_25371_asymmetric_unicode.t b/t/rt_25371_asymmetric_unicode.t index f500a5e..680dd8d 100644 --- a/t/rt_25371_asymmetric_unicode.t +++ b/t/rt_25371_asymmetric_unicode.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_25460_numeric_aggregate.t b/t/rt_25460_numeric_aggregate.t index c814c98..95c073f 100644 --- a/t/rt_25460_numeric_aggregate.t +++ b/t/rt_25460_numeric_aggregate.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 14; diff --git a/t/rt_25924_user_defined_func_unicode.t b/t/rt_25924_user_defined_func_unicode.t index e89f534..6e01d74 100644 --- a/t/rt_25924_user_defined_func_unicode.t +++ b/t/rt_25924_user_defined_func_unicode.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/rt_27553_prepared_cache_and_analyze.t b/t/rt_27553_prepared_cache_and_analyze.t index 130bf42..f77202a 100644 --- a/t/rt_27553_prepared_cache_and_analyze.t +++ b/t/rt_27553_prepared_cache_and_analyze.t @@ -1,10 +1,6 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 6; diff --git a/t/rt_29058_group_by.t b/t/rt_29058_group_by.t index dc739b1..d41a394 100644 --- a/t/rt_29058_group_by.t +++ b/t/rt_29058_group_by.t @@ -1,10 +1,6 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 9; diff --git a/t/rt_29629_sqlite_where_length.t b/t/rt_29629_sqlite_where_length.t index fac86d5..acba34e 100644 --- a/t/rt_29629_sqlite_where_length.t +++ b/t/rt_29629_sqlite_where_length.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 21; diff --git a/t/rt_31324_full_names.t b/t/rt_31324_full_names.t index 96f394d..5ee6bb0 100644 --- a/t/rt_31324_full_names.t +++ b/t/rt_31324_full_names.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 8; diff --git a/t/rt_32889_prepare_cached_reexecute.t b/t/rt_32889_prepare_cached_reexecute.t index 01cf171..8d9f78b 100644 --- a/t/rt_32889_prepare_cached_reexecute.t +++ b/t/rt_32889_prepare_cached_reexecute.t @@ -3,11 +3,7 @@ # up and that it does not generate a warning. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 32; diff --git a/t/rt_36836_duplicate_key.t b/t/rt_36836_duplicate_key.t index 0c0ac11..9fb5e21 100644 --- a/t/rt_36836_duplicate_key.t +++ b/t/rt_36836_duplicate_key.t @@ -1,11 +1,7 @@ # This is a simple insert/fetch test. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 5; diff --git a/t/rt_36838_unique_and_bus_error.t b/t/rt_36838_unique_and_bus_error.t index 13e6aba..3946981 100644 --- a/t/rt_36838_unique_and_bus_error.t +++ b/t/rt_36838_unique_and_bus_error.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 4; diff --git a/t/rt_40594_nullable.t b/t/rt_40594_nullable.t index 1b5682b..1caf580 100644 --- a/t/rt_40594_nullable.t +++ b/t/rt_40594_nullable.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use Test::More; use lib "t/lib"; use SQLiteTest; diff --git a/t/rt_48393_debug_panic_with_commit.t b/t/rt_48393_debug_panic_with_commit.t index dbbfae3..64f2cd3 100644 --- a/t/rt_48393_debug_panic_with_commit.t +++ b/t/rt_48393_debug_panic_with_commit.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_50503_fts3.t b/t/rt_50503_fts3.t index 7573bd1..437ac72 100644 --- a/t/rt_50503_fts3.t +++ b/t/rt_50503_fts3.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_52573_manual_exclusive_lock.t b/t/rt_52573_manual_exclusive_lock.t index 2ad876e..c88e90a 100644 --- a/t/rt_52573_manual_exclusive_lock.t +++ b/t/rt_52573_manual_exclusive_lock.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 92 * 4 + 2; diff --git a/t/rt_53235_icu_compatibility.t b/t/rt_53235_icu_compatibility.t index 8c33a4e..05200bd 100644 --- a/t/rt_53235_icu_compatibility.t +++ b/t/rt_53235_icu_compatibility.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_62370_diconnected_handles_operation.t b/t/rt_62370_diconnected_handles_operation.t index cc548cf..b6e506a 100644 --- a/t/rt_62370_diconnected_handles_operation.t +++ b/t/rt_62370_diconnected_handles_operation.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok @CALL_FUNCS/; use Test::More; diff --git a/t/rt_64177_ping_wipes_out_the_errstr.t b/t/rt_64177_ping_wipes_out_the_errstr.t index d2c4ee0..c121c80 100644 --- a/t/rt_64177_ping_wipes_out_the_errstr.t +++ b/t/rt_64177_ping_wipes_out_the_errstr.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 8; diff --git a/t/rt_67581_bind_params_mismatch.t b/t/rt_67581_bind_params_mismatch.t index a51155a..a8600fb 100644 --- a/t/rt_67581_bind_params_mismatch.t +++ b/t/rt_67581_bind_params_mismatch.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More tests => 34; diff --git a/t/rt_71311_bind_col_and_unicode.t b/t/rt_71311_bind_col_and_unicode.t index b351f3e..d87ee75 100644 --- a/t/rt_71311_bind_col_and_unicode.t +++ b/t/rt_71311_bind_col_and_unicode.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More; diff --git a/t/rt_73159_fts_tokenizer_segfault.t b/t/rt_73159_fts_tokenizer_segfault.t index b289c3b..e80798f 100644 --- a/t/rt_73159_fts_tokenizer_segfault.t +++ b/t/rt_73159_fts_tokenizer_segfault.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 2; diff --git a/t/rt_73787_exponential_buffer_overflow.t b/t/rt_73787_exponential_buffer_overflow.t index 1954471..e006e9a 100644 --- a/t/rt_73787_exponential_buffer_overflow.t +++ b/t/rt_73787_exponential_buffer_overflow.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More tests => 6; diff --git a/t/rt_76395_int_overflow.t b/t/rt_76395_int_overflow.t index c69b00a..a9278cf 100644 --- a/t/rt_76395_int_overflow.t +++ b/t/rt_76395_int_overflow.t @@ -1,9 +1,6 @@ use warnings; use strict; -BEGIN { - $| = 1; - $^W = 1; -} +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_77724_primary_key_with_a_whitespace.t b/t/rt_77724_primary_key_with_a_whitespace.t index 1649e4a..d149350 100644 --- a/t/rt_77724_primary_key_with_a_whitespace.t +++ b/t/rt_77724_primary_key_with_a_whitespace.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 4; diff --git a/t/rt_78833_utf8_flag_for_column_names.t b/t/rt_78833_utf8_flag_for_column_names.t index 8350fea..cfda629 100644 --- a/t/rt_78833_utf8_flag_for_column_names.t +++ b/t/rt_78833_utf8_flag_for_column_names.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_81536_multi_column_primary_key_info.t b/t/rt_81536_multi_column_primary_key_info.t index 39e413d..d07e17b 100644 --- a/t/rt_81536_multi_column_primary_key_info.t +++ b/t/rt_81536_multi_column_primary_key_info.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok/; use Test::More; diff --git a/t/rt_88228_sqlite_3_8_0_crash.t b/t/rt_88228_sqlite_3_8_0_crash.t index 144e5b7..af8c871 100644 --- a/t/rt_88228_sqlite_3_8_0_crash.t +++ b/t/rt_88228_sqlite_3_8_0_crash.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More tests => 3; diff --git a/t/rt_96050_db_filename_for_a_closed_database.t b/t/rt_96050_db_filename_for_a_closed_database.t index 3e5cc0e..928ad96 100644 --- a/t/rt_96050_db_filename_for_a_closed_database.t +++ b/t/rt_96050_db_filename_for_a_closed_database.t @@ -1,11 +1,7 @@ #!/usr/bin/env perl use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_96877_unicode_statements.t b/t/rt_96877_unicode_statements.t index af19ddf..c43b0a1 100644 --- a/t/rt_96877_unicode_statements.t +++ b/t/rt_96877_unicode_statements.t @@ -3,11 +3,7 @@ # sqlite_unicode => 1). Only bind values are properly converted. use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_96878_fts_contentless_table.t b/t/rt_96878_fts_contentless_table.t index 7f5d4cb..398c6bb 100644 --- a/t/rt_96878_fts_contentless_table.t +++ b/t/rt_96878_fts_contentless_table.t @@ -5,11 +5,7 @@ # column, using a CAST expression or a call to bind_param(). use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/rt_97598_crash_on_disconnect_with_virtual_tables.t b/t/rt_97598_crash_on_disconnect_with_virtual_tables.t index 771675f..1ef9369 100644 --- a/t/rt_97598_crash_on_disconnect_with_virtual_tables.t +++ b/t/rt_97598_crash_on_disconnect_with_virtual_tables.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest; use Test::More; diff --git a/t/virtual_table/00_base.t b/t/virtual_table/00_base.t index b9e6c6e..d7a1426 100644 --- a/t/virtual_table/00_base.t +++ b/t/virtual_table/00_base.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok $sqlite_call/; use Test::More; diff --git a/t/virtual_table/01_destroy.t b/t/virtual_table/01_destroy.t index 8bc5cc0..63a22dc 100644 --- a/t/virtual_table/01_destroy.t +++ b/t/virtual_table/01_destroy.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok $sqlite_call/; use Test::More; diff --git a/t/virtual_table/02_find_function.t b/t/virtual_table/02_find_function.t index 3b8b5d1..6adb08e 100644 --- a/t/virtual_table/02_find_function.t +++ b/t/virtual_table/02_find_function.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok $sqlite_call/; use Test::More; diff --git a/t/virtual_table/10_filecontent.t b/t/virtual_table/10_filecontent.t index eec27ce..bba35cf 100644 --- a/t/virtual_table/10_filecontent.t +++ b/t/virtual_table/10_filecontent.t @@ -1,10 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok $sqlite_call/; use Test::More; diff --git a/t/virtual_table/11_filecontent_fulltext.t b/t/virtual_table/11_filecontent_fulltext.t index 1d9df04..d77292f 100644 --- a/t/virtual_table/11_filecontent_fulltext.t +++ b/t/virtual_table/11_filecontent_fulltext.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok $sqlite_call requires_sqlite/; use Test::More; diff --git a/t/virtual_table/20_perldata.t b/t/virtual_table/20_perldata.t index eda6994..34d3853 100644 --- a/t/virtual_table/20_perldata.t +++ b/t/virtual_table/20_perldata.t @@ -1,10 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok $sqlite_call requires_sqlite has_sqlite/; use Test::More; diff --git a/t/virtual_table/21_perldata_charinfo.t b/t/virtual_table/21_perldata_charinfo.t index 060908b..c2978a7 100644 --- a/t/virtual_table/21_perldata_charinfo.t +++ b/t/virtual_table/21_perldata_charinfo.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; # test the example described in # L diff --git a/t/virtual_table/rt_124941.t b/t/virtual_table/rt_124941.t index 94331f5..189d4cb 100644 --- a/t/virtual_table/rt_124941.t +++ b/t/virtual_table/rt_124941.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok $sqlite_call has_sqlite/; use Test::More tests => 6; diff --git a/t/virtual_table/rt_99748.t b/t/virtual_table/rt_99748.t index 1d6bf6d..fcccb0f 100644 --- a/t/virtual_table/rt_99748.t +++ b/t/virtual_table/rt_99748.t @@ -1,9 +1,5 @@ use strict; -BEGIN { - $| = 1; - $^W = 1; -} - +use warnings; use lib "t/lib"; use SQLiteTest qw/connect_ok $sqlite_call has_sqlite/; use Test::More;