ideal • runtime • elements • test_runtime

class test runtime util

private class test1

implements data, equality comparable

public test1(integer i, string s)

this • i = i

this • s = s

integer i

string s

private test1 v1

private test1 v2

private test1 v3

private test1 v4

test runtime util()

v1 = test1 • new(98, "asdf")

v2 = test1 • new(98, "asdf")

v3 = test1 • new(99, "asdf")

v4 = test1 • new(98, "asdfghj")

testcase test class name()

assert runtime util • short class name(this) == "test_runtime_util"

assert runtime util • short class name("Hi") == "base_string"

testcase test hash code()

hash1 : runtime util • compute hash code(v1)

hash2 : runtime util • compute hash code(v2)

hash3 : runtime util • compute hash code(v3)

hash4 : runtime util • compute hash code(v4)

assert hash1 == hash2

assert hash1 != hash3

assert hash1 != hash4

assert hash3 != hash4

testcase test simple equals()

assert runtime util • values equal(v1, v2)

assert !runtime util • values equal(v1, v3)

assert !runtime util • values equal(v1, v4)

assert !runtime util • values equal(v4, v3)

assert v1 != v3

assert v1 != v4

assert v4 != v3

private immutable list[readonly data] make list(readonly data first, readonly data second)

the list : base list[readonly data] • new()

the list • append(first)

the list • append(second)

return the list • frozen copy()

testcase test list equals()

s1 : make list(v1, v3)

s2 : make list(v2, v3)

s3 : make list(v4, v3)

assert runtime util • values equal(s1, s2)

assert !runtime util • values equal(s1, s3)

testcase test equals()

assert runtime util • values equal("Hi", "Hi")

assert !runtime util • values equal("Hi", "Hello")

assert runtime util • values equal(null, null)

assert !runtime util • values equal(null, "foo")

assert !runtime util • values equal("bar", null)

testcase test escape()

assert runtime util • escape markup("foo") == "foo"

assert runtime util • escape markup("hello! <>&") == "hello! <>&"

assert runtime util • escape markup("1: ' 2: \"") == "1: ' 2: ""