From 13e7474953a9a96cd9359e4811de9e5f5ac8259b Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 6 May 2021 00:42:26 +0900
Subject: [PATCH] Remove report-errors

---
 runtests.fs         |  2 --
 test/coreexttest.fs |  1 -
 test/errorreport.fs | 78 ---------------------------------------------
 3 files changed, 81 deletions(-)
 delete mode 100644 test/errorreport.fs

diff --git a/runtests.fs b/runtests.fs
index 4f78a84..08aec4f 100644
--- a/runtests.fs
+++ b/runtests.fs
@@ -10,12 +10,10 @@ include lib/tester.fs
 
 include test/core.fs
 include test/utilities.fs
-include test/errorreport.fs
 include test/coreexttest.fs
 
 include test/export.fs
 include lib/array.fs
 include lib/bitscan.fs
 
-report-errors
 report-and-exit
diff --git a/test/coreexttest.fs b/test/coreexttest.fs
index ffa8782..1c429ff 100644
--- a/test/coreexttest.fs
+++ b/test/coreexttest.fs
@@ -684,7 +684,6 @@ skip T{ : SSQ9  s\" 11 : SSQ10 S\\\" \\x32\\x32\" evaluate ; SSQ10 33" evaluate
 skip T{ SSQ9 -> 11 22 33 }T
 
 \ -----------------------------------------------------------------------------
-core-ext-errors set-error-count
 
 cr .( End of Core Extension word tests) cr
 
diff --git a/test/errorreport.fs b/test/errorreport.fs
deleted file mode 100644
index 4ea942d..0000000
--- a/test/errorreport.fs
+++ /dev/null
@@ -1,78 +0,0 @@
-\ planckforth -
-\ Copyright (C) 2021 nineties
-
-\ test/tester.fs and test codes are base on
-\ https://github.com/gerryjackson/forth2012-test-suite
-
-decimal
-
-variable total-errors
-
-: error-count  ( "name" n1 -- n2 )  \ n2 = n1 + 1cell
-   create  dup , cell+
-   does>  ( -- offset ) @     \ offset in address units
-;
-
-0     \ Offset into errors[] array
-error-count core-errors          error-count core-ext-errors
-error-count double-errors        error-count exception-errors
-error-count facility-errors      error-count file-errors
-error-count locals-errors        error-count memory-errors
-error-count searchorder-errors   error-count string-errors
-error-count tools-errors         error-count block-errors
-create errors[] dup allot constant #error-counts
-
-\ set-error-count called at the end of each test file with its own offset into
-\ the errors[] array. #error is in files tester.fr and ttester.fs
-
-: set-error-count  ( offset -- )
-   #error @ swap errors[] + !
-   #error @ total-errors +!
-   0 #error !
-;
-
-: init-errors  ( -- )
-   errors[] #error-counts over + swap do -1 i ! 1 cells +loop
-   0 total-errors !
-   core-errors set-error-count
-;
-
-init-errors
-
-\ Report summary of errors
-
-25 constant margin
-
-: show-error-line  ( n caddr -- )
-   cr dup strlen swap type margin - abs >r
-   dup -1 = if drop r> 1- spaces ." -" else
-   r> .r then
-;
-
-: show-error-count  ( caddr offset -- )
-   errors[] + @ swap show-error-line
-;
-
-: hline  ( -- )  cr ." ---------------------------"  ;
-
-: report-errors
-   hline
-   cr 8 spaces ." Error Report"
-   cr ." Word Set" 13 spaces ." Errors"
-   hline
-   s" Core" core-errors show-error-count
-   s" Core extension" core-ext-errors show-error-count
-   s" Block" block-errors show-error-count
-   s" Double number" double-errors show-error-count
-   s" Exception" exception-errors show-error-count
-   s" Facility" facility-errors show-error-count
-   s" File-access" file-errors show-error-count
-   s" Locals"    locals-errors show-error-count
-   s" Memory-allocation" memory-errors show-error-count
-   s" Programming-tools" tools-errors show-error-count
-   s" Search-order" searchorder-errors show-error-count
-   s" String" string-errors show-error-count
-   hline
-   total-errors @ s" Total" show-error-line
-   hline cr cr
-;