Add detailed testcase output to tester

tester.scm

@@ -5,11 +5,12 @@
   (lambda (filename expected-output)
     (if (eq? (interpret filename) expected-output)
         (string-append "Passed " filename)
-        (string-append "##### Failed " filename))))
+        (string-append "Failed " filename " ! Expected output: " (number->string expected-output) ", Interpreter output: " (symbol->string (interpret filename))))))
 
 ; Tests 1
+(newline)(newline)
 (print "     TESTS for Project 1     ")
-(newline)(newline)(newline)
+(newline)
 (test "Tests/1/test1.java" 150)
 (test "Tests/1/test2.java" -4)
 (test "Tests/1/test3.java" 10)
@@ -42,24 +43,24 @@
 ; Tests 2
 (newline)(newline)
 (print "     TESTS for Project 2     ")
-(newline)(newline)(newline)
-(test "tests/2/test01.java" 20)
-(test "tests/2/test02.java" 164)
-(test "tests/2/test03.java" 32)
-(test "tests/2/test04.java" 2)
-(test "tests/2/test05.java" `error)
-(test "tests/2/test06.java" 25)
-(test "tests/2/test07.java" 21)
-(test "tests/2/test08.java" 6)
-(test "tests/2/test09.java" (- 1))
-(test "tests/2/test10.java" 789)
-(test "tests/2/test11.java" `error)
-(test "tests/2/test12.java" `error)
-(test "tests/2/test13.java" `error)
-(test "tests/2/test14.java" 12)
-(test "tests/2/test15.java" 125)
-(test "tests/2/test16.java" 110)
-(test "tests/2/test17.java" 2000400)
-(test "tests/2/test18.java" 101)
-(test "tests/2/test19.java" `error)
-(test "tests/2/test20.java" 21)
+(newline)
+(test "Tests/2/test01.java" 20)
+(test "Tests/2/test02.java" 164)
+(test "Tests/2/test03.java" 32)
+(test "Tests/2/test04.java" 2)
+(test "Tests/2/test05.java" `error)
+(test "Tests/2/test06.java" 25)
+(test "Tests/2/test07.java" 21)
+(test "Tests/2/test08.java" 6)
+(test "Tests/2/test09.java" (- 1))
+(test "Tests/2/test10.java" 789)
+(test "Tests/2/test11.java" `error)
+(test "Tests/2/test12.java" `error)
+(test "Tests/2/test13.java" `error)
+(test "Tests/2/test14.java" 12)
+(test "Tests/2/test15.java" 125)
+(test "Tests/2/test16.java" 110)
+(test "Tests/2/test17.java" 2000400)
+(test "Tests/2/test18.java" 101)
+(test "Tests/2/test19.java" `error)
+(test "Tests/2/test20.java" 21)