Commit 5f0b743c8205e554071a7ce4b3fe9c03b00ebc0d
2023-04-11T02:45:56
wip tests
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 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130
diff --git a/test/buf_parse_test_s.rb b/test/buf_parse_test_s.rb
index 050cd5e..552371d 100644
--- a/test/buf_parse_test_s.rb
+++ b/test/buf_parse_test_s.rb
@@ -1,60 +1,99 @@
-def count(out, su, bits, base, base_prefix, negative)
- result = 0
- if negative == "-"
- max = 2 ** (if su == "S" then bits - 1; else bits; end)
- else
- max = 2 ** (if su == "S" then bits - 1; else bits; end) - 1
+def one(out, su, bits, base_prefix, negative, digits, result)
+ r = if result != 0 then "#{negative}#{result}" else result end
+ output = Proc.new do |digits|
+ zeros = 0
+ spaces = ""
+ digits.each do |digit|
+ if digit != 0 || zeros >= digits.count - 1
+ break
+ end
+ zeros += 1
+ end
+ i = zeros
+ while i > 0
+ test_digits = digits[i..(digits.count - 1)]
+ test_digits = test_digits.join
+ i -= 1
+ spaces = " " * (i + ((result.zero? && negative == "-") ? 1 : 0))
+ out.puts " BUF_PARSE_TEST_#{su}(#{bits}, \"#{negative}#{base_prefix}#{test_digits}\", #{spaces}#{r});"
+ end
+ end
+ output.(digits)
+ string_digits = false
+ digits_upcase = digits.map do |digit|
+ if digit.is_a?(String)
+ string_digits = true
+ digit.upcase
+ else
+ digit
+ end
end
+ output.(digits_upcase) if string_digits
+end
+
+def count(out, su, bits, base, base_prefix, negative, max)
+ result = 0
base.each do |i|
i = 0 if i == "0"
base.each do |j|
j = 0 if j == "0"
base.each do |k|
- r = if result != 0 then "#{negative}#{result}" else result end
- output = Proc.new do |i, j, k|
- if (i == 0 && j == 0)
- out.puts " BUF_PARSE_TEST_#{su}(#{bits}, \"#{negative}#{base_prefix}#{k}\", #{r});"
- end
- if (i == 0)
- out.puts " BUF_PARSE_TEST_#{su}(#{bits}, \"#{negative}#{base_prefix}#{j}#{k}\", #{r});"
- end
- out.puts " BUF_PARSE_TEST_#{su}(#{bits}, \"#{negative}#{base_prefix}#{i}#{j}#{k}\", #{r});"
- end
- output.(i, j, k)
- if i.is_a?(String) || j.is_a?(String) || k.is_a?(String)
- output.(i.is_a?(String) ? i.upcase : i,
- j.is_a?(String) ? j.upcase : j,
- k.is_a?(String) ? k.upcase : k)
- end
+ one(out, su, bits, base_prefix, negative, [i, j, k], result)
result += 1
if result > max
- return
+ return result
end
end
end
end
+ return result
+end
+
+def number_to_base(m, radix)
+ digits = []
+ while m > 0
+ digits.push(m % radix)
+ m = m / radix
+ end
+ digits
end
File.open("buf_parse_test_s.out", "w") do |out|
["S", "U"].each do |su|
- [8].each do |bits|
+ [8, 16].each do |bits|
out.puts ""
out.puts "void buf_parse_test_#{su.downcase}#{bits} ()"
out.puts "{"
[[0..1, "0b"],
[0..7, "0o"],
- [[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "e", "f"], "0x"],
+ [[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "e", "f"],
+ "0x"],
[0..9, ""]].each do |b|
base = b[0]
base_prefix = b[1]
+ radix = base.count
signs = if (su == "S")
["-", ""]
else
[""]
end
signs.each do |negative|
- count(out, su, bits, base, base_prefix, negative)
+ max = if negative == "-"
+ 2 ** (if su == "S" then bits - 1; else bits; end)
+ else
+ 2 ** (if su == "S" then bits - 1; else bits; end) - 1
+ end
+ result = count(out, su, bits, base, base_prefix, negative,
+ max)
+ if result < max - 1
+ digits = number_to_base(max - 1, radix)
+ one(out, su, bits, base_prefix, negative, digits, max - 1)
+ end
+ if result < max
+ digits = number_to_base(max, radix)
+ one(out, su, bits, base_prefix, negative, digits, max)
+ end
end
end
out.puts "}"