Permalink
Browse files

[t/spec] Remove initial spaces in test description strings added yest…

…erday as a workaround for a bug which has now been fixed.

git-svn-id: http://svn.pugscode.org/pugs@29699 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent ccef02b commit da387b993d54dea0c77ab7bb0d0efdee888e0a9f colomon committed Feb 12, 2010
Showing with 25 additions and 25 deletions.
  1. +25 −25 S32-num/complex.t
View
@@ -43,33 +43,33 @@ my @examples = (0i, 1 + 0i, -1 + 0i, 1i, -1i, 2 + 0i, -2 + 0i, 2i, -2i,
cis(1.1), cis(3.1), cis(5.1), 35.unpolar(0.8), 40.unpolar(3.7));
for @examples -> $z {
- is_approx($z + 0, $z, " $z + 0 = $z");
- is_approx(0 + $z, $z, " 0 + $z = $z");
- is_approx($z + 0.0, $z, " $z + 0.0 = $z");
- is_approx(0.0 + $z, $z, " 0.0 + $z = $z");
- is_approx($z + 0 / 1, $z, " $z + 0/1 = $z");
- is_approx(0 / 1 + $z, $z, " 0/1 + $z = $z");
+ is_approx($z + 0, $z, "$z + 0 = $z");
+ is_approx(0 + $z, $z, "0 + $z = $z");
+ is_approx($z + 0.0, $z, "$z + 0.0 = $z");
+ is_approx(0.0 + $z, $z, "0.0 + $z = $z");
+ is_approx($z + 0 / 1, $z, "$z + 0/1 = $z");
+ is_approx(0 / 1 + $z, $z, "0/1 + $z = $z");
- is_approx($z - 0, $z, " $z - 0 = $z");
- is_approx(0 - $z, -$z, " 0 - $z = -$z");
- is_approx($z - 0.0, $z, " $z - 0.0 = $z");
- is_approx(0.0 - $z, -$z, " 0.0 - $z = -$z");
- is_approx($z - 0 / 1, $z, " $z - 0/1 = $z");
- is_approx(0 / 1 - $z, -$z, " 0/1 - $z = -$z");
+ is_approx($z - 0, $z, "$z - 0 = $z");
+ is_approx(0 - $z, -$z, "0 - $z = -$z");
+ is_approx($z - 0.0, $z, "$z - 0.0 = $z");
+ is_approx(0.0 - $z, -$z, "0.0 - $z = -$z");
+ is_approx($z - 0 / 1, $z, "$z - 0/1 = $z");
+ is_approx(0 / 1 - $z, -$z, "0/1 - $z = -$z");
- is_approx($z + 2, $z.re + 2 + ($z.im)i, " $z + 2");
- is_approx(2 + $z, $z.re + 2 + ($z.im)i, " 2 + $z");
- is_approx($z + 2.5, $z.re + 2.5 + ($z.im)i, " $z + 2.5 = $z");
- is_approx(2.5 + $z, $z.re + 2.5 + ($z.im)i, " 2.5 + $z = $z");
- is_approx($z + 3 / 2, $z.re + 3/2 + ($z.im)i, " $z + 3/2");
- is_approx(3 / 2 + $z, $z.re + 3/2 + ($z.im)i, " 3/2 + $z");
-
- is_approx($z - 2, $z.re - 2 + ($z.im)i, " $z - 2");
- is_approx(2 - $z, -$z.re + 2 - ($z.im)i, " 2 - $z");
- is_approx($z - 2.5, $z.re - 2.5 + ($z.im)i, " $z - 2.5 = $z");
- is_approx(2.5 - $z, -$z.re + 2.5 - ($z.im)i, " 2.5 - $z = $z");
- is_approx($z - 3 / 2, $z.re - 3/2 + ($z.im)i, " $z - 3/2");
- is_approx(3 / 2 - $z, -$z.re + 3/2 - ($z.im)i, " 3/2 - $z");
+ is_approx($z + 2, $z.re + 2 + ($z.im)i, "$z + 2");
+ is_approx(2 + $z, $z.re + 2 + ($z.im)i, "2 + $z");
+ is_approx($z + 2.5, $z.re + 2.5 + ($z.im)i, "$z + 2.5 = $z");
+ is_approx(2.5 + $z, $z.re + 2.5 + ($z.im)i, "2.5 + $z = $z");
+ is_approx($z + 3 / 2, $z.re + 3/2 + ($z.im)i, "$z + 3/2");
+ is_approx(3 / 2 + $z, $z.re + 3/2 + ($z.im)i, "3/2 + $z");
+
+ is_approx($z - 2, $z.re - 2 + ($z.im)i, "$z - 2");
+ is_approx(2 - $z, -$z.re + 2 - ($z.im)i, "2 - $z");
+ is_approx($z - 2.5, $z.re - 2.5 + ($z.im)i, "$z - 2.5 = $z");
+ is_approx(2.5 - $z, -$z.re + 2.5 - ($z.im)i, "2.5 - $z = $z");
+ is_approx($z - 3 / 2, $z.re - 3/2 + ($z.im)i, "$z - 3/2");
+ is_approx(3 / 2 - $z, -$z.re + 3/2 - ($z.im)i, "3/2 - $z");
}
# L<S32::Numeric/Complex/=item re>

0 comments on commit da387b9

Please sign in to comment.