Mathematica bug?

f[x_, r_] := x*(r - x)*Exp[-Pi*I/(2 r)*x^2];
g[x_, r_] := Exp[-Pi*I/(2 r)*x^2]*(r - Pi*I*x^2 - 2*x + Pi*I/r*x^3);

Clear[r];
FullSimplify[
  Integrate[f[x, r], {x, 0, r}] +
   Integrate[-Sum[Sin[2*Pi*n*x]/(n*Pi), {n, 1, Infinity}]*g[x, r], {x,
      0, r}], r > 0 && Element[r, Integers]]  // N

r = 12;
FullSimplify[
  Integrate[f[x, r], {x, 0, r}] +
   Integrate[-Sum[Sin[2*Pi*n*x]/(n*Pi), {n, 1, Infinity}]*g[x, r], {x,
      0, r}], r > 0 && Element[r, Integers]]  // N


Output:
0.
2.64102 - 39.4256 I