inspector vocab for error reporting (exercism#20)

We no longer cull the inspector vocab

Author: keiravillekode

Dockerfile

@@ -33,7 +33,7 @@ RUN sed -i 's#-i="\$BOOT_IMAGE"#-i="$BOOT_IMAGE" -exclude="'"${FACTOR_EXCLUDE}"'
 RUN ./build.sh net-bootstrap
 
 # Precompile tools.test AND the common exercise vocabs into factor.image, then re-save it.
-RUN ./factor -e='USING: accessors arrays ascii assocs bit-arrays calendar calendar.english circular combinators combinators.short-circuit command-line concurrency.combinators concurrency.locks continuations debugger deques destructors disjoint-sets dlists formatting fry generic grouping hash-sets hashtables heaps infix io io.encodings.utf8 io.files io.streams.string kernel lexer locals macros make math math.bitwise math.combinatorics math.constants math.functions math.order math.parser math.primes math.statistics namespaces pair-rocket prettyprint.config quotations qw random random.mersenne-twister ranges regexp sequences sequences.repeating sets sorting source-files.errors.debugger splitting splitting.monotonic strings system tools.test tr typed unicode vectors vocabs vocabs.loader memory ; save'
+RUN ./factor -e='USING: accessors arrays ascii assocs bit-arrays calendar calendar.english circular combinators combinators.short-circuit command-line concurrency.combinators concurrency.locks continuations debugger deques destructors disjoint-sets dlists formatting fry generic grouping hash-sets hashtables heaps infix inspector io io.encodings.utf8 io.files io.streams.string kernel lexer locals macros make math math.bitwise math.combinatorics math.constants math.functions math.order math.parser math.primes math.statistics namespaces pair-rocket prettyprint.config quotations qw random random.mersenne-twister ranges regexp sequences sequences.repeating sets sorting source-files.errors.debugger splitting splitting.monotonic strings system tools.test tr typed unicode vectors vocabs vocabs.loader memory ; save'
 
 # Remove files not needed at runtime
 RUN rm -rf .git build vm src misc Factor.app \

tests/concept-partial-fail/concept-partial-fail/concept-partial-fail-tests.factor

@@ -1,4 +1,4 @@
-USING: concept-partial-fail exercism-tools io kernel prettyprint tools.test ;
+USING: concept-partial-fail exercism-tools io kernel math prettyprint sequences tools.test ;
 IN: concept-partial-fail.tests
 
 TASK: 1 squaring
@@ -11,3 +11,18 @@ STOP-HERE
 TASK: 2 cubing
 { 27 } [ "cubing 3" print 3 cube ] unit-test
 { 64 } [ 4 cube ] unit-test
+
+TASK: 3 dropping the first element
+{ { } } [ { } but-first ] unit-test
+
+TASK: 4 divide by zero
+{ 0 } [ 4 0 / ] unit-test
+
+TASK: 5 index out of bounds
+{ 0 } [ 10 { 1 2 3 } nth ] unit-test
+
+TASK: 6 method lookup
+{ "text" } [ 5 label ] unit-test
+
+TASK: 7 stack effect mismatch
+{ 0 } [ 5 [ drop ] call( x -- x ) ] unit-test

tests/concept-partial-fail/concept-partial-fail/concept-partial-fail.factor

@@ -1,6 +1,11 @@
-USING: kernel math ;
+USING: kernel math sequences strings ;
 IN: concept-partial-fail
 
 : square ( n -- n^2 ) dup * ;
 
 : cube ( n -- n^3 ) dup dup * + ;
+
+: but-first ( seq -- rest ) rest ;
+
+GENERIC: label ( obj -- str )
+M: string label drop "text" ;

tests/concept-partial-fail/expected_results.json

@@ -30,6 +30,41 @@
       "test_code": "{ 64 } [ 4 cube ] unit-test",
       "task_id": 2,
       "message": "=== Expected:\n64\n=== Got:\n20"
+    },
+    {
+      "name": "Test 5",
+      "status": "error",
+      "test_code": "{ { } } [ { } but-first ] unit-test",
+      "task_id": 3,
+      "message": "Cannot create slice: from > to\nfrom 1\nto   0\nseq  { }"
+    },
+    {
+      "name": "Test 6",
+      "status": "error",
+      "test_code": "{ 0 } [ 4 0 / ] unit-test",
+      "task_id": 4,
+      "message": "Division by zero\nx 4"
+    },
+    {
+      "name": "Test 7",
+      "status": "error",
+      "test_code": "{ 0 } [ 10 { 1 2 3 } nth ] unit-test",
+      "task_id": 5,
+      "message": "Sequence index out of bounds\nindex 10\nseq   { 1 2 3 }"
+    },
+    {
+      "name": "Test 8",
+      "status": "error",
+      "test_code": "{ \"text\" } [ 5 label ] unit-test",
+      "task_id": 6,
+      "message": "Generic word label does not define a method for the fixnum class.\nDispatching on object: 5"
+    },
+    {
+      "name": "Test 9",
+      "status": "error",
+      "test_code": "{ 0 } [ 5 [ drop ] call( x -- x ) ] unit-test",
+      "task_id": 7,
+      "message": "Quotation's stack effect does not match call site\nquot      [ drop ]\ncall-site ( x -- x )"
     }
   ]
 }