<commit_before>Red [
	Title:   "Red find test script"
	Author:  "<NAME> & <NAME>"
	File: 	 %find-test.red
	Tabs:	 4
	Rights:  "Copyright (C) 2011-2013 <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~~~ "find"

===start-group=== "find"
	--test-- "find-1"
		--assert [1 2 3 4] = find [1 2 3 4] 1
	--test-- "find-2"
		--assert [2 3 4] = find [1 2 3 4] 2
	--test-- "find-3"
		--assert [4] = find [1 2 3 4] 4
	--test-- "find-4"
		--assert none = find [1 2 3 4] 0
	--test-- "find-5"
		--assert none = find [1 2 3 4] 5
	--test-- "find-6"
		--assert none = find [1 2 3 4] "1"
	--test-- "find-7" 
		--assert "12345" = find "12345" #"1"
	;--test-- "find-8" 							;; unsupported case, it is unsure if it will be implemented or not
	;--assert "12345" = find "12345" 1			;; keeping it here commented for further reference.
	--test-- "find-9" 
		--assert "12345" = find "12345" "1"
	--test-- "find-10" 
		--assert "12345" = find "12345" "12"
	--test-- "find-11" 
		--assert "2345" = find "12345" #"2"
	--test-- "find-12" <commit_msg>TESTS: update find-test.red<commit_after>Red [
	Title:   "Red find test script"
	Author:  "<NAME> & <NAME>"
	File: 	 %find-test.red
	Tabs:	 4
	Rights:  "Copyright (C) 2011-2013 <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~~~ "find"

===start-group=== "find"
	--test-- "find-1"
		--assert [1 2 3 4] = find [1 2 3 4] 1
	--test-- "find-2"
		--assert [2 3 4] = find [1 2 3 4] 2
	--test-- "find-3"
		--assert [4] = find [1 2 3 4] 4
	--test-- "find-4"
		--assert none = find [1 2 3 4] 0
	--test-- "find-5"
		--assert none = find [1 2 3 4] 5
	--test-- "find-6"
		--assert none = find [1 2 3 4] "1"
	--test-- "find-7" 
		--assert "12345" = find "12345" #"1"
	--test-- "find-8" 							
		--assert none = find "12345" 1
	--test-- "find-9" 
		--assert "12345" = find "12345" "1"
	--test-- "find-10" 
		--assert "12345" = find "12345" "12"
	--test-- "find-11" 
		--assert "2345" = find "12345" #"2"
	--test-- "find-12" 
{'fraction_non_alphanumeric': 0.23164097914777879, 'fraction_numerical': 0.1056210335448776, 'mean_word_length': 2.2408223201174744, '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': '6179999', 'n_tokens_mistral': 1131, 'n_tokens_neox': 920, 'n_words': 287}