ok($this eq $that, $test_name);

##</code><code>##

$ perl -e '%h = (1, 1, 1, 1); print scalar keys %h, "\n"'
1

##</code><code>##

$ perl -e 'print scalar (1, "a"), "\n";'
a