[Tests] arrowDoubleInverted

[discoleo]

Error in the tests for arrowDoubleInverted

• the arrow function has a dH argument and d.head = c(-dH, dH);
• the tests need to be updated;

Example Test 1:

###### Test 1 ######
x = c(0, 6); y = c(1, 6);
d = -1; dH = 0.5; # default dH
plot.base()
...
cat("Test 1\n")
# Total length = (dH^2 + dV[1]^2) + (dH^2 + dV[2]^2)
testArrow(h=h1, d=dH)
testArrow(h=h2, d=dH)
testArrow(h=h3, d=dH)
testArrow(h=h4, d=dH)
testArrow(h=h5, d=dH)
testArrow(h=h6, d=dH)

Similarly for Test 2:

cat("Test 2\n")
testArrow(h=h1, d=dH, dV=d.head)
testArrow(h=h2, d=dH, dV=d.head)
testArrow(h=h3, d=dH, dV=d.head)

[DarianFlorianVoda]

Added