File: contains.ha

package info (click to toggle)
hare 0.25.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 6,948 kB
  • sloc: asm: 1,264; makefile: 123; sh: 114; lisp: 101
file content (38 lines) | stat: -rw-r--r-- 1,121 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
// SPDX-License-Identifier: MPL-2.0
// (c) Hare authors <https://harelang.org>

use bytes;
use encoding::utf8;

// Returns true if a string contains a rune or a sub-string, multiple of which
// can be given.
export fn contains(haystack: str, needles: (str | rune)...) bool = {
	for (let needle .. needles) {
		const matched = match (needle) {
		case let s: str =>
			yield bytes::contains(toutf8(haystack),
				toutf8(s));
		case let r: rune =>
			yield bytes::contains(toutf8(haystack),
				utf8::encoderune(r));
		};
		if (matched) {
			return true;
		};
	};
	return false;
};

@test fn contains() void = {
	assert(contains("hello world", "hello"));
	assert(contains("hello world", 'h'));
	assert(!contains("hello world", 'x'));
	assert(contains("hello world", "world"));
	assert(contains("hello world", ""));
	assert(!contains("hello world", "foobar"));
	assert(contains("hello world", "foobar", "hello", "bar"));
	assert(!contains("hello world", "foobar", "foo", "bar"));
	assert(contains("hello world", 'h', "foo", "bar"));
	assert(!contains("hello world", 'x', "foo", "bar"));
	assert(!contains("hello world"));
};