<commit_before>Red [
	Title:   "Red words-of function test script"
	Author:  "<NAME> & <NAME>"
	File: 	 %words-of-test.red
	Tabs:	 4
	Rights:  "Copyright (C) 2015 <NAME> & <NAME>. All rights reserved."
	License: "BSD-3 - https://github.com/dockimbel/Red/blob/origin/BSD-3-License.txt"
]

#include  %../../../quick-test/quick-test.red

~~~start-file~~~ "words-of"

===start-group=== "words-of-basic"

	--test-- "wob1"
		wob1-o: make object! [
		    b: [a b c d]
		    c: #"a"
		    f: 1.0
		    o: make object! [a: 1 b: 2 c: 3]
		    i: 1
		    n: none
		    s: "abcde"
		]
		--assert [b c f o i n s] = words-of wob1-o
	
===end-group===

===start-group=== "words-of-self"

	--test-- "wos1"
		wos1-o: make object! [
		    b: [a b c d]
		    c: #"a"
		    f: 1.0
		    o: make object! [a: 1 b: 2 c: 3]
		    i: 1
		    n: none
		    s: "abcde"
		    wos: words-of self
		]
		--assert [b c f o i n s] = wos1-o/wos
		
	--test-- "wos2"
		wos2-o: make object! [
		    b: [a b c d]
		    c: #"a"
		    f: 1.0
		    o: make object! [a: 1 b: 2 c: 3]
		    i: 1
		    n: none
		    s: "abcde"
		    do-wos: does [words-of self]
		]
		--assert [b c f o i n s] = wos2-o/do-wos
	
===end-group===

~~~end-file~~~<commit_msg>TESTS: correct mistakes in words-of test<commit_after>Red [
	Title:   "Red words-of function test script"
	Author:  "<NAME> & <NAME>"
	File: 	 %words-of-test.red
	Tabs:	 4
	Rights:  "Copyright (C) 2015 <NAME> & <NAME>. All rights reserved."
	License: "BSD-3 - https://github.com/dockimbel/Red/blob/origin/BSD-3-License.txt"
]

#include  %../../../quick-test/quick-test.red

~~~start-file~~~ "words-of"

===start-group=== "words-of-basic"

	--test-- "wob1"
		wob1-o: make object! [
		    b: [a b c d]
		    c: #"a"
		    f: 1.0
		    o: make object! [a: 1 b: 2 c: 3]
		    i: 1
		    n: none
		    s: "abcde"
		]
		--assert [b c f o i n s] = words-of wob1-o
	
===end-group===

===start-group=== "words-of-self"

	--test-- "wos1"
		wos1-o: make object! [
		    b: [a b c d]
		    c: #"a"
		    f: 1.0
		    o: make object! [a: 1 b: 2 c: 3]
		    i: 1
		    n: none
		    s: "abcde"
		    wos: words-of self
		]
		--assert [b c f o i n s wos] = wos1-o/wos
		
	--test-- "wos2"
		wos2-o: make object! [
		    b: [a b c d]
		    c: #"a"
		    f: 1.0
		    o: make object! [a: 1 b: 2 c: 3]
		    i: 1
		    n: none
		    s: "abcde"
		    do-wos: does [words-of self]
		]
		--assert [b c f o i n s do-wos] = wos2-o/do-wos
	
===end-group===

~~~end-file~~~
{'fraction_non_alphanumeric': 0.2007328990228013, 'fraction_numerical': 0.02768729641693811, 'mean_word_length': 1.7857142857142858, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 11, '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': '2254744', 'n_tokens_mistral': 1278, 'n_tokens_neox': 1095, 'n_words': 324}