Permalink
Browse files

Add new test where the first control point is not the origin.

  • Loading branch information...
1 parent 4d265ff commit 8689930e1f15af77bc07a0c8dd78ef9893c9343f SF committed Oct 20, 2009
Showing with 3 additions and 0 deletions.
  1. +3 −0 t/03-nubs.t
View
@@ -22,4 +22,7 @@ isa_ok(eval($nubs1.perl), Nubs, ".perl works, tested with isa");
is_approx_vector($nubs1.Evaluate(0.0), Vector.new(0, 0, 0, 0), "\$nubs1.Evaluate(0.0) is (0, 0, 0, 0)");
is_approx_vector($nubs1.Evaluate(0.4), Vector.new(0.4, 4, 40, 400), "\$nubs1.Evaluate(0.4) is (0.4, 4, 40, 400)");
+my $nubs2 = Nubs.new(1, $kv, (Vector.new(1, 10, 100, 1000), Vector.new(0, 0, 0, 0)));
+is_approx_vector($nubs2.Evaluate(0.0), Vector.new(1, 10, 100, 1000), "\$nubs2.Evaluate(0.0) is (1, 10, 100, 1000)");
+
done_testing;

0 comments on commit 8689930

Please sign in to comment.