1use strict; 2use warnings; 3use Test2::Tools::Tiny; 4 5BEGIN { skip_all "Only testing on 5.18+" if $] < 5.018 } 6 7require Test::More; 8*cmp_ok = \&Test::More::cmp_ok; 9 10no warnings "experimental::smartmatch"; 11 12my $warnings = warnings { cmp_ok(1, "~~", 1) }; 13 14ok(!@$warnings, "Did not get any warnings"); 15 16done_testing; 17