1256a93a4Safresh1use strict; 2256a93a4Safresh1use warnings; 3256a93a4Safresh1use Test2::Tools::Tiny; 4256a93a4Safresh1 5*f2a19305Safresh1BEGIN { 6*f2a19305Safresh1 skip_all "Not testing before 5.18 or after 5.37.10" 7*f2a19305Safresh1 if $] < 5.018 or $] >= 5.037010; 8*f2a19305Safresh1} 9256a93a4Safresh1 10256a93a4Safresh1require Test::More; 11256a93a4Safresh1*cmp_ok = \&Test::More::cmp_ok; 12256a93a4Safresh1 13256a93a4Safresh1no warnings "experimental::smartmatch"; 14*f2a19305Safresh1no if !exists $warnings::Offsets{"experimental::smartmatch"}, warnings => 'deprecated'; 15256a93a4Safresh1 16256a93a4Safresh1my $warnings = warnings { cmp_ok(1, "~~", 1) }; 17256a93a4Safresh1 18256a93a4Safresh1ok(!@$warnings, "Did not get any warnings"); 19256a93a4Safresh1 20256a93a4Safresh1done_testing; 21