1use strict; 2use warnings; 3use Test2::Tools::Tiny; 4 5BEGIN { 6 skip_all "Not testing before 5.18 or after 5.37.10" 7 if $] < 5.018 or $] >= 5.037010; 8} 9 10require Test::More; 11*cmp_ok = \&Test::More::cmp_ok; 12 13no warnings "experimental::smartmatch"; 14no if !exists $warnings::Offsets{"experimental::smartmatch"}, warnings => 'deprecated'; 15 16my $warnings = warnings { cmp_ok(1, "~~", 1) }; 17 18ok(!@$warnings, "Did not get any warnings"); 19 20done_testing; 21