<commit_before>REBOL [
  Title:   "Builds and Runs the Red/System Tests"
	File: 	 %run-all.r
	Author:  "<NAME>"
	Version: 0.1.1
	License: "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]
;; make runnable/ directory if needed 
make-dir %runnable/
;; include quick-test.r
if not value? 'qt [do %quick-test/quick-test.r]

;; compile & run rs-test-suite.reds
either exe: qt/compile %source/rs-test-suite.reds [
  qt/run exe
  print qt/output
  part1-failures?: either find qt/output "TEST FAILURES" [true] [false]
][
  qt/start-test "Test Suite Compile Error!!!!!!"
  qt/assert false
  print qt/comp-output
  part1-failures?: true
]

;; copy and run rs-test-suite.r
write %runnable/rs-test-suite.r read %source/rs-test-suite.r
do %runnable/rs-test-suite.r

if part1-failures? [print "^/****** FAILURES IN PART I ABOVE ******"]

print ""

halt<commit_msg>TESTS: added a starting banner and some useful metrics for internal unit tests compilation and execution<commit_after>REBOL [
  Title:   "Builds and Runs the Red/System Tests"
	File: 	 %run-all.r
	Author:  "<NAME>"
	Version: 0.1.1
	License: "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]

;; make runnable/ directory if needed 
make-dir %runnable/
;; include quick-test.r
if not value? 'qt [do %quick-test/quick-test.r]

print rejoin ["Quick-Test v" system/script/header/version]

;; compile & run rs-test-suite.reds
print "Compiling rs-test-suite.reds..."
t0: now/time/precise

either exe: qt/compile %source/rs-test-suite.reds [
  print ["...done in" now/time/precise - t0]
  print "Running rs-test-suite..."
  t0: now/time/precise
  qt/run exe
  print ["...done in" now/time/precise - t0 newline]
  print qt/output
  part1-failures?: either find qt/output "TEST FAILURES" [true] [false]
][
  qt/start-test "Test Suite Compile Error!!!!!!"
  qt/assert false
  print qt/comp-output
  part1-failures?: true
]

;; copy and run rs-test-suite.r
write %runnable/rs-test-suite.r read %source/rs-test-suite.r
do %runnable/rs-test-suite.r

if part1-failures? [print "^/****** FAILURES IN PART I ABOVE ******"]

print ""

halt
{'fraction_non_alphanumeric': 0.15928369462770972, 'fraction_numerical': 0.00942507068803016, 'mean_word_length': 3.5952380952380953, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 2, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '743621', 'n_tokens_mistral': 836, 'n_tokens_neox': 800, 'n_words': 204}