Changeset 19676 for ext

Timestamp:

01/25/08 00:24:31 (12 months ago)

Author:

cosimo

Message:

Added and documented approx(), is_approx() approximate test functions.

Files:

• ext/Test/lib/Test.pm (modified) (6 diffs)

ext/Test/lib/Test.pm

@@ -3 +3 @@
 use v6-alpha;
 
-module Test-0.0.7;
+module Test-0.0.8;
 
 #if substr($*PROGRAM_NAME, -2) eq '.t' {
@@ -53 +53 @@
 ### FUNCTIONS
 
+# Compare numeric values with approximation
+
+sub approx (Num $a, Num $b) returns Bool is export {
+    my $EPSILON = 0.00001;
+    (abs($a - $b) < $EPSILON);
+}
+
 ## plan
 
@@ -87 +94 @@
 }
 
+## is_approx   Approximately compare two Nums
+
+sub is_approx(Num $got, Num $expected, Str $desc?, :$todo, $:depends) returns Bool is export {
+    my $test := Test::approx($got, $expected);
+    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
+}
 
 ## isnt
@@ -389 +402 @@
   ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
   is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
+  is_approx(pi(), 3.141562, 'approximate compare');
   isa_ok({'one' => 1}, 'Hash', :todo(1));
 
@@ -509 +523 @@
 
 The code must at least be parsable. If the code might not parse, wrap it in C<eval>.
+
+=head3 is_approx
+
+  is_approx (Num $got, Num $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool
+
+Similar to is(), but compares approximately, to account for floating point
+precision errors.
 
 =head3 is_deeply
@@ -680 +701 @@
 Simon Sun <dolmens@gmail.com>
 
+Cosimo Streppone <cosimo@cpan.org>
+
 =head1 COPYRIGHT