- compare_ok($a, '<=>', "$b", $exp);
+
+ my $bs = "$b";
+ compare_ok($a, '<=>', $bs, $exp);
+
+ if (my $bv = $b->version) {
+ compare_ok($a, '<=>', $bv, $exp);
+ compare_ok($a, '<=>', "$bv", $exp);
+ } else {
+ pass("$bs has no version part ($_)") for 1, 2;
+ }
+