X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/9c88539c987533cf1d54d90029ae209031d98d62..7359501c4b44efadc76eef5570008dd52f6767fc:/stdlib_tests/5001_abs.pvvs

diff --git a/stdlib_tests/5001_abs.pvvs b/stdlib_tests/5001_abs.pvvs
new file mode 100644
index 0000000..7898e56
--- /dev/null
+++ b/stdlib_tests/5001_abs.pvvs
@@ -0,0 +1,26 @@
+@ +1 should remain +1
+SSSTN           | PUSH +1
+NSTTSSSTN       | JSR > 10001 (abs)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ -1 should become +1
+SSTTN           | PUSH -1
+NSTTSSSTN       | JSR > 10001 (abs)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ 0 should remain 0
+SSSSN           | PUSH 0
+NSTTSSSTN       | JSR > 10001 (abs)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Test the most negative number.
+@ It is impossible to return the true absolute value but should return zero.
+SSSTN           | PUSH +1
+SSSTTTTTTN      | PUSH +63
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSSTN       | JSR > 10001 (abs)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+NNN             | DIE
+
+#include <logic.pvvs>
+#include <stdio.pvvs>