Permalink
Browse files

Move is_approx_vector to Vector.pm.

  • Loading branch information...
1 parent 871f3a8 commit b364122007ee13599e8fcce752b6ef7fee21e886 SF committed Nov 2, 2009
Showing with 4 additions and 6 deletions.
  1. +4 −1 lib/Vector.pm
  2. +0 −5 t/03-nubs.t
View
@@ -150,4 +150,7 @@ multi sub circumfix:<⎡ ⎤>(Vector $a)
subset UnitVector of Vector where { (1 - 1e-10) < $^v.Length < (1 + 1e-10) };
-
+sub is_approx_vector(Vector $a, Vector $b, $desc)
+{
+ ok(($a - $b).Length < 0.00001, $desc);
+}
View
@@ -4,11 +4,6 @@ use Nurbs;
use Vector;
use Test;
-sub is_approx_vector(Vector $a, Vector $b, $desc)
-{
- ok(($a - $b).Length < 0.00001, $desc);
-}
-
plan *;
my $kv = KnotVector.new((0, 0, 1, 1));

0 comments on commit b364122

Please sign in to comment.