+BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} }
+
+use Test::Leaner tests => 7 * 10 + 4 * 7 + 10;
+
+{
+ package Test::Leaner::TestCmpNum;
+
+ use overload '<=>' => sub {
+ my ($x, $y, $r) = @_;
+
+ $x = $x->{num};
+ $y = $y->{num} if ref $y;
+
+ ($x, $y) = ($y, $x) if $r;
+
+ return $x <=> $y;
+ };
+
+ sub new {
+ my $class = shift;
+
+ bless { num => $_[0] }, $class
+ }
+}