test/-ext-/string/test_fstring.rb


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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

# frozen_string_literal: false
require 'test/unit'
require '-test-/string'

class Test_String_Fstring < Test::Unit::TestCase
  def assert_fstring(str)
    fstr = Bug::String.fstring(str)
    yield str
    yield fstr
  end

  def test_taint_shared_string
    str = __method__.to_s.dup
    str.taint
    assert_fstring(str) {|s| assert_predicate(s, :tainted?)}
  end

  def test_taint_normal_string
    str = __method__.to_s * 3
    str.taint
    assert_fstring(str) {|s| assert_predicate(s, :tainted?)}
  end

  def test_taint_registered_tainted
    str = __method__.to_s * 3
    str.taint
    assert_fstring(str) {|s| assert_predicate(s, :tainted?)}

    str = __method__.to_s * 3
    assert_fstring(str) {|s| assert_not_predicate(s, :tainted?)}
  end

  def test_taint_registered_untainted
    str = __method__.to_s * 3
    assert_fstring(str) {|s| assert_not_predicate(s, :tainted?)}

    str = __method__.to_s * 3
    str.taint
    assert_fstring(str) {|s| assert_predicate(s, :tainted?)}
  end

  def test_instance_variable
    str = __method__.to_s * 3
    str.instance_variable_set(:@test, 42)
    str.freeze
    assert_fstring(str) {|s| assert_send([s, :instance_variable_defined?, :@test])}
  end

  def test_singleton_method
    str = __method__.to_s * 3
    def str.foo
    end
    str.freeze
    assert_fstring(str) {|s| assert_send([s, :respond_to?, :foo])}
  end

  class S < String
  end

  def test_subclass
    str = S.new(__method__.to_s * 3)
    str.freeze
    assert_fstring(str) {|s| assert_instance_of(S, s)}
  end
end