use strict;
use warnings;
use Test::More;
my $ntests = 9;
plan tests => $ntests;

{
   my $expected_version = 'v5.32.1';
   cmp_ok( $^V, 'eq', $expected_version, "Version = $expected_version" );
}

{
   my %hash;
   ok( !%hash,                     "Empty: !\%hash"         );
   ok( !scalar(%hash),             "Empty: ! scalar"        );
   cmp_ok( scalar(%hash), '==', 0, "Empty: 0 == scalar"     );
   ok( !keys(%hash),               "Empty: ! keys"          );

   ++$hash{entry};
   ok( (%hash ? 1 : 0),            "Not empty: \%hash"      );
   ok( scalar(%hash),              "Not empty: scalar"      );
   cmp_ok( scalar(%hash), '!=', 0, "Not empty: scalar != 0" );
   ok( (keys(%hash) ? 1 : 0),      "Not empty: keys"        );
}