#!/usr/bin/perl -w

package Test::FloatNear;

use strict;

use base qw/Exporter/;
use vars qw/@EXPORT/;

@EXPORT = qw/is_near/;

sub is_near ($$;@) {
	my ($got, $expected) = (shift, shift);
	@_ = (abs($got - $expected), "<", 0.001, @_);
	goto \&Test::More::cmp_ok;
}

__PACKAGE__

__END__