#!perl
use 5.006;
use strict;
our $VERSION = '0.06';
use GCC::Builtins qw/:all/;
my $res = ctz(2);
my $expected = "1";
if( $expected =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/ ){
my $dif = abs($res-$expected);
ok($dif<1e-09, "called ctz(2) returned ($res) and expected ($expected) values differ ($dif) by less than 1e-09.");
} else {
is(lc($res), lc($expected), "called ctz(2) returned ($res) and expected ($expected) values are identical.");
}
diag("copy-this-expected-value 'ctz' => '$res',");
done_testing();