Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

More sqrt(2) tests.

  • Loading branch information...
commit 949d46f42b47ec1a901b90c16371856a4579fca0 1 parent 736b38b
colomon authored March 21, 2012

Showing 1 changed file with 5 additions and 2 deletions. Show diff stats Hide diff stats

  1. 7  t/00-experiments.t
7  t/00-experiments.t
... ...
@@ -1,6 +1,6 @@
1 1
 use Test;
2 2
 
3  
-plan 14;
  3
+plan 18;
4 4
 
5 5
 sub make-continued-fraction (Real $x is copy) {
6 6
     gather loop {
@@ -135,4 +135,7 @@ is cf-sqrt-two()[^10], make-continued-fraction(sqrt(2))[^10], "approximation for
135 135
 is z(0, 1, 1, 0, 1, 0, 0, 0, cf-sqrt-two(), make-continued-fraction(1/2))[^10],
136 136
    make-continued-fraction(sqrt(2)+1/2)[^10],
137 137
    "Extended continued fraction addition";
138  
-eval_dies_ok "z(0, 0, 0, 1, 1, 0, 0, 0, cf-sqrt-two(), cf-sqrt-two())", "sqrt(2)^2 cannot be calculated";
  138
+is z(0, 1, 1, 0, 1, 0, 0, 0, cf-sqrt-two(), cf-sqrt-two())[^10],
  139
+   make-continued-fraction(sqrt(2)*2)[^10],
  140
+   "Extended continued fraction addition";
  141
+eval_dies_ok "z(0, 0, 0, 1, 1, 0, 0, 0, cf-sqrt-two(), cf-sqrt-two())[0]", "sqrt(2)^2 cannot be calculated";

0 notes on commit 949d46f

Please sign in to comment.
Something went wrong with that request. Please try again.