writeexcel 0.5.0 → 0.6.0
Sign up to get free protection for your applications and to get access to all the features.
- data/.gitattributes +1 -1
- data/.gitignore +24 -24
- data/README.rdoc +34 -55
- data/VERSION +1 -1
- data/charts/chartex.rb +316 -316
- data/charts/demo1.rb +46 -46
- data/charts/demo2.rb +65 -65
- data/charts/demo3.rb +117 -117
- data/charts/demo4.rb +119 -119
- data/charts/demo5.rb +48 -48
- data/examples/a_simple.rb +43 -43
- data/examples/autofilter.rb +265 -265
- data/examples/bigfile.rb +30 -30
- data/examples/chart_area.rb +121 -121
- data/examples/chart_bar.rb +120 -120
- data/examples/chart_column.rb +120 -120
- data/examples/chart_line.rb +120 -120
- data/examples/chart_pie.rb +108 -108
- data/examples/chart_scatter.rb +121 -121
- data/examples/chart_stock.rb +148 -148
- data/examples/chess.rb +142 -142
- data/examples/colors.rb +129 -129
- data/examples/comments1.rb +27 -27
- data/examples/comments2.rb +352 -352
- data/examples/copyformat.rb +52 -52
- data/examples/data_validate.rb +279 -279
- data/examples/date_time.rb +87 -87
- data/examples/defined_name.rb +32 -32
- data/examples/demo.rb +124 -124
- data/examples/diag_border.rb +36 -36
- data/examples/formats.rb +490 -490
- data/examples/formula_result.rb +30 -30
- data/examples/header.rb +137 -137
- data/examples/hide_sheet.rb +29 -29
- data/examples/hyperlink.rb +43 -43
- data/examples/images.rb +63 -63
- data/examples/indent.rb +31 -31
- data/examples/merge1.rb +40 -40
- data/examples/merge2.rb +45 -45
- data/examples/merge3.rb +66 -66
- data/examples/merge4.rb +83 -83
- data/examples/merge5.rb +80 -80
- data/examples/merge6.rb +67 -67
- data/examples/outline.rb +255 -255
- data/examples/outline_collapsed.rb +209 -209
- data/examples/panes.rb +113 -113
- data/examples/properties.rb +34 -34
- data/examples/properties_jp.rb +33 -33
- data/examples/protection.rb +47 -47
- data/examples/regions.rb +53 -53
- data/examples/repeat.rb +43 -43
- data/examples/right_to_left.rb +27 -27
- data/examples/row_wrap.rb +53 -53
- data/examples/stats.rb +74 -74
- data/examples/stocks.rb +81 -81
- data/examples/tab_colors.rb +31 -31
- data/examples/utf8.rb +15 -15
- data/examples/write_arrays.rb +83 -83
- data/lib/writeexcel/biffwriter.rb +232 -232
- data/lib/writeexcel/caller_info.rb +12 -12
- data/lib/writeexcel/chart.rb +2190 -2177
- data/lib/writeexcel/charts/area.rb +154 -154
- data/lib/writeexcel/charts/bar.rb +177 -177
- data/lib/writeexcel/charts/column.rb +156 -156
- data/lib/writeexcel/charts/external.rb +66 -66
- data/lib/writeexcel/charts/line.rb +154 -154
- data/lib/writeexcel/charts/pie.rb +169 -169
- data/lib/writeexcel/charts/scatter.rb +192 -192
- data/lib/writeexcel/charts/stock.rb +213 -213
- data/lib/writeexcel/colors.rb +64 -64
- data/lib/writeexcel/compatibility.rb +0 -255
- data/lib/writeexcel/debug_info.rb +37 -33
- data/lib/writeexcel/excelformulaparser.rb +587 -587
- data/lib/writeexcel/format.rb +13 -4
- data/lib/writeexcel/formula.rb +26 -9
- data/lib/writeexcel/helper.rb +68 -64
- data/lib/writeexcel/olewriter.rb +311 -311
- data/lib/writeexcel/properties.rb +242 -240
- data/lib/writeexcel/storage_lite.rb +984 -978
- data/lib/writeexcel/workbook.rb +3210 -3192
- data/lib/writeexcel/worksheet.rb +143 -51
- data/lib/writeexcel/write_file.rb +44 -40
- data/lib/writeexcel.rb +1159 -1159
- data/test/helper.rb +31 -28
- data/test/perl_output/README +31 -31
- data/test/test_00_IEEE_double.rb +13 -13
- data/test/test_01_add_worksheet.rb +10 -10
- data/test/test_02_merge_formats.rb +53 -53
- data/test/test_04_dimensions.rb +392 -392
- data/test/test_05_rows.rb +179 -179
- data/test/test_06_extsst.rb +77 -77
- data/test/test_11_date_time.rb +479 -479
- data/test/test_12_date_only.rb +501 -501
- data/test/test_13_date_seconds.rb +481 -481
- data/test/test_21_escher.rb +637 -637
- data/test/test_22_mso_drawing_group.rb +745 -745
- data/test/test_23_note.rb +73 -73
- data/test/test_24_txo.rb +75 -75
- data/test/test_25_position_object.rb +84 -84
- data/test/test_26_autofilter.rb +314 -314
- data/test/test_27_autofilter.rb +131 -131
- data/test/test_28_autofilter.rb +161 -161
- data/test/test_29_process_jpg.rb +683 -683
- data/test/test_30_validation_dval.rb +77 -77
- data/test/test_31_validation_dv_strings.rb +126 -126
- data/test/test_32_validation_dv_formula.rb +206 -206
- data/test/test_40_property_types.rb +188 -188
- data/test/test_41_properties.rb +235 -235
- data/test/test_42_set_properties.rb +437 -437
- data/test/test_50_name_stored.rb +299 -299
- data/test/test_51_name_print_area.rb +357 -357
- data/test/test_52_name_print_titles.rb +454 -454
- data/test/test_53_autofilter.rb +203 -203
- data/test/test_60_chart_generic.rb +578 -578
- data/test/test_61_chart_subclasses.rb +95 -95
- data/test/test_62_chart_formats.rb +272 -272
- data/test/test_63_chart_area_formats.rb +649 -649
- data/test/test_biff.rb +75 -75
- data/test/test_compatibility.rb +12 -627
- data/test/test_example_match.rb +3144 -3144
- data/test/test_formula.rb +61 -61
- data/test/test_ole.rb +106 -106
- data/test/test_storage_lite.rb +125 -125
- data/test/test_workbook.rb +139 -139
- data/test/test_worksheet.rb +110 -110
- data/utils/add_magic_comment.rb +80 -80
- data/writeexcel.gemspec +4 -6
- data/writeexcel.rdoc +58 -15
- metadata +9 -6
- data/test/test_new_encoding.rb +0 -205
@@ -1,188 +1,188 @@
|
|
1
|
-
# -*- coding: utf-8 -*-
|
2
|
-
##########################################################################
|
3
|
-
# test_40_property_types.rb
|
4
|
-
#
|
5
|
-
# Tests for the basic property types used in OLE property sets.
|
6
|
-
#
|
7
|
-
# reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
|
8
|
-
#
|
9
|
-
# original written in Perl by John McNamara
|
10
|
-
# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
|
11
|
-
#
|
12
|
-
#########################################################################
|
13
|
-
require 'helper'
|
14
|
-
|
15
|
-
class TC_property_types < Test::Unit::TestCase
|
16
|
-
|
17
|
-
def setup
|
18
|
-
@smiley = '☺' # chr 0x263A; in perl
|
19
|
-
end
|
20
|
-
|
21
|
-
def test_pack_a_VT_I2
|
22
|
-
caption = " \tDoc properties: pack_VT_I2(1252)"
|
23
|
-
target = %w(
|
24
|
-
02 00 00 00 E4 04 00 00
|
25
|
-
).join(' ')
|
26
|
-
|
27
|
-
result = unpack_record(pack_VT_I2(1252))
|
28
|
-
assert_equal(target, result, caption)
|
29
|
-
end
|
30
|
-
|
31
|
-
def test_pack_a_VT_LPSTR_string_and_check_for_padding
|
32
|
-
string = ''
|
33
|
-
codepage = 0x04E4
|
34
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
35
|
-
target = %w(
|
36
|
-
1E 00 00 00 01 00 00 00 00 00 00 00
|
37
|
-
).join(' ')
|
38
|
-
|
39
|
-
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
40
|
-
assert_equal(target, result, caption)
|
41
|
-
end
|
42
|
-
|
43
|
-
def test_pack_a_VT_LPSTR_string_and_check_for_padding_2
|
44
|
-
string = 'a'
|
45
|
-
codepage = 0x04E4
|
46
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
47
|
-
target = %w(
|
48
|
-
1E 00 00 00 02 00 00 00 61 00 00 00
|
49
|
-
).join(' ')
|
50
|
-
|
51
|
-
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
52
|
-
assert_equal(target, result, caption)
|
53
|
-
end
|
54
|
-
|
55
|
-
def test_pack_a_VT_LPSTR_string_and_check_for_padding_3
|
56
|
-
string = 'bb'
|
57
|
-
codepage = 0x04E4
|
58
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
59
|
-
target = %w(
|
60
|
-
1E 00 00 00 03 00 00 00 62 62 00 00
|
61
|
-
).join(' ')
|
62
|
-
|
63
|
-
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
64
|
-
assert_equal(target, result, caption)
|
65
|
-
end
|
66
|
-
|
67
|
-
def test_pack_a_VT_LPSTR_string_and_check_for_padding_4
|
68
|
-
string = 'ccc'
|
69
|
-
codepage = 0x04E4
|
70
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
71
|
-
target = %w(
|
72
|
-
1E 00 00 00 04 00 00 00 63 63 63 00
|
73
|
-
).join(' ')
|
74
|
-
|
75
|
-
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
76
|
-
assert_equal(target, result, caption)
|
77
|
-
end
|
78
|
-
|
79
|
-
def test_pack_a_VT_LPSTR_string_and_check_for_padding_5
|
80
|
-
string = 'dddd'
|
81
|
-
codepage = 0x04E4
|
82
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
83
|
-
target = %w(
|
84
|
-
1E 00 00 00 05 00 00 00 64 64 64 64 00 00 00 00
|
85
|
-
).join(' ')
|
86
|
-
|
87
|
-
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
88
|
-
assert_equal(target, result, caption)
|
89
|
-
end
|
90
|
-
|
91
|
-
def test_pack_a_VT_LPSTR_string_and_check_for_padding_6
|
92
|
-
string = 'Username'
|
93
|
-
codepage = 0x04E4
|
94
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
95
|
-
target = %w(
|
96
|
-
1E 00 00 00 09 00 00 00 55 73 65 72 6E 61 6D 65
|
97
|
-
00 00 00 00
|
98
|
-
).join(' ')
|
99
|
-
|
100
|
-
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
101
|
-
assert_equal(target, result, caption)
|
102
|
-
end
|
103
|
-
|
104
|
-
def test_pack_a_VT_LPSTR_UTF8_string
|
105
|
-
string = @smiley
|
106
|
-
codepage = 0xFDE9
|
107
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{@smiley}',\t#{codepage}')"
|
108
|
-
target = %w(
|
109
|
-
1E 00 00 00 04 00 00 00 E2 98 BA 00
|
110
|
-
).join(' ')
|
111
|
-
|
112
|
-
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
113
|
-
assert_equal(target, result, caption)
|
114
|
-
end
|
115
|
-
|
116
|
-
def test_pack_a_VT_LPSTR_UTF8_string_2
|
117
|
-
string = "a" + @smiley
|
118
|
-
codepage = 0xFDE9
|
119
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('a#{@smiley}',\t#{codepage}')"
|
120
|
-
target = %w(
|
121
|
-
1E 00 00 00 05 00 00 00 61 E2 98 BA 00 00 00 00
|
122
|
-
).join(' ')
|
123
|
-
|
124
|
-
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
125
|
-
assert_equal(target, result, caption)
|
126
|
-
end
|
127
|
-
|
128
|
-
def test_pack_a_VT_LPSTR_UTF8_string_3
|
129
|
-
string = "aa" + @smiley
|
130
|
-
codepage = 0xFDE9
|
131
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
132
|
-
target = %w(
|
133
|
-
1E 00 00 00 06 00 00 00 61 61 E2 98 BA 00 00 00
|
134
|
-
).join(' ')
|
135
|
-
|
136
|
-
result = unpack_record( pack_VT_LPSTR(string, codepage) )
|
137
|
-
assert_equal(target, result, caption)
|
138
|
-
end
|
139
|
-
|
140
|
-
def test_pack_a_VT_LPSTR_UTF8_string_4
|
141
|
-
string = "aaa" + @smiley
|
142
|
-
codepage = 0xFDE9
|
143
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
144
|
-
target = %w(
|
145
|
-
1E 00 00 00 07 00 00 00 61 61 61 E2 98 BA 00 00
|
146
|
-
).join(' ')
|
147
|
-
|
148
|
-
result = unpack_record( pack_VT_LPSTR(string, codepage) )
|
149
|
-
assert_equal(target, result, caption)
|
150
|
-
end
|
151
|
-
|
152
|
-
def test_pack_a_VT_LPSTR_UTF8_string_5
|
153
|
-
string = "aaaa" + @smiley
|
154
|
-
codepage = 0xFDE9
|
155
|
-
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
156
|
-
target = %w(
|
157
|
-
1E 00 00 00 08 00 00 00 61 61 61 61 E2 98 BA 00
|
158
|
-
).join(' ')
|
159
|
-
|
160
|
-
result = unpack_record( pack_VT_LPSTR(string, codepage) )
|
161
|
-
assert_equal(target, result, caption)
|
162
|
-
end
|
163
|
-
|
164
|
-
def test_pack_a_VT_FILETIME
|
165
|
-
# Wed Aug 13 00:40:00 2008
|
166
|
-
# $sec,$min,$hour,$mday,$mon,$year
|
167
|
-
# We normalise the time using timegm() so that the tests don't fail due to
|
168
|
-
# different timezones.
|
169
|
-
filetime = Time.gm(2008,8,13,0,40,0)
|
170
|
-
|
171
|
-
caption = " \tDoc properties: _pack_VT_FILETIME()"
|
172
|
-
target = %w(
|
173
|
-
40 00 00 00 00 70 EB 1D DD FC C8 01
|
174
|
-
).join(' ')
|
175
|
-
|
176
|
-
result = unpack_record( pack_VT_FILETIME(filetime) )
|
177
|
-
assert_equal(target, result, caption)
|
178
|
-
end
|
179
|
-
|
180
|
-
###############################################################################
|
181
|
-
#
|
182
|
-
# Unpack the binary data into a format suitable for printing in tests.
|
183
|
-
#
|
184
|
-
def unpack_record(data)
|
185
|
-
data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
|
186
|
-
end
|
187
|
-
|
188
|
-
end
|
1
|
+
# -*- coding: utf-8 -*-
|
2
|
+
##########################################################################
|
3
|
+
# test_40_property_types.rb
|
4
|
+
#
|
5
|
+
# Tests for the basic property types used in OLE property sets.
|
6
|
+
#
|
7
|
+
# reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
|
8
|
+
#
|
9
|
+
# original written in Perl by John McNamara
|
10
|
+
# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
|
11
|
+
#
|
12
|
+
#########################################################################
|
13
|
+
require 'helper'
|
14
|
+
|
15
|
+
class TC_property_types < Test::Unit::TestCase
|
16
|
+
|
17
|
+
def setup
|
18
|
+
@smiley = '☺' # chr 0x263A; in perl
|
19
|
+
end
|
20
|
+
|
21
|
+
def test_pack_a_VT_I2
|
22
|
+
caption = " \tDoc properties: pack_VT_I2(1252)"
|
23
|
+
target = %w(
|
24
|
+
02 00 00 00 E4 04 00 00
|
25
|
+
).join(' ')
|
26
|
+
|
27
|
+
result = unpack_record(pack_VT_I2(1252))
|
28
|
+
assert_equal(target, result, caption)
|
29
|
+
end
|
30
|
+
|
31
|
+
def test_pack_a_VT_LPSTR_string_and_check_for_padding
|
32
|
+
string = ''
|
33
|
+
codepage = 0x04E4
|
34
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
35
|
+
target = %w(
|
36
|
+
1E 00 00 00 01 00 00 00 00 00 00 00
|
37
|
+
).join(' ')
|
38
|
+
|
39
|
+
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
40
|
+
assert_equal(target, result, caption)
|
41
|
+
end
|
42
|
+
|
43
|
+
def test_pack_a_VT_LPSTR_string_and_check_for_padding_2
|
44
|
+
string = 'a'
|
45
|
+
codepage = 0x04E4
|
46
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
47
|
+
target = %w(
|
48
|
+
1E 00 00 00 02 00 00 00 61 00 00 00
|
49
|
+
).join(' ')
|
50
|
+
|
51
|
+
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
52
|
+
assert_equal(target, result, caption)
|
53
|
+
end
|
54
|
+
|
55
|
+
def test_pack_a_VT_LPSTR_string_and_check_for_padding_3
|
56
|
+
string = 'bb'
|
57
|
+
codepage = 0x04E4
|
58
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
59
|
+
target = %w(
|
60
|
+
1E 00 00 00 03 00 00 00 62 62 00 00
|
61
|
+
).join(' ')
|
62
|
+
|
63
|
+
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
64
|
+
assert_equal(target, result, caption)
|
65
|
+
end
|
66
|
+
|
67
|
+
def test_pack_a_VT_LPSTR_string_and_check_for_padding_4
|
68
|
+
string = 'ccc'
|
69
|
+
codepage = 0x04E4
|
70
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
71
|
+
target = %w(
|
72
|
+
1E 00 00 00 04 00 00 00 63 63 63 00
|
73
|
+
).join(' ')
|
74
|
+
|
75
|
+
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
76
|
+
assert_equal(target, result, caption)
|
77
|
+
end
|
78
|
+
|
79
|
+
def test_pack_a_VT_LPSTR_string_and_check_for_padding_5
|
80
|
+
string = 'dddd'
|
81
|
+
codepage = 0x04E4
|
82
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
83
|
+
target = %w(
|
84
|
+
1E 00 00 00 05 00 00 00 64 64 64 64 00 00 00 00
|
85
|
+
).join(' ')
|
86
|
+
|
87
|
+
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
88
|
+
assert_equal(target, result, caption)
|
89
|
+
end
|
90
|
+
|
91
|
+
def test_pack_a_VT_LPSTR_string_and_check_for_padding_6
|
92
|
+
string = 'Username'
|
93
|
+
codepage = 0x04E4
|
94
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
95
|
+
target = %w(
|
96
|
+
1E 00 00 00 09 00 00 00 55 73 65 72 6E 61 6D 65
|
97
|
+
00 00 00 00
|
98
|
+
).join(' ')
|
99
|
+
|
100
|
+
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
101
|
+
assert_equal(target, result, caption)
|
102
|
+
end
|
103
|
+
|
104
|
+
def test_pack_a_VT_LPSTR_UTF8_string
|
105
|
+
string = @smiley
|
106
|
+
codepage = 0xFDE9
|
107
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{@smiley}',\t#{codepage}')"
|
108
|
+
target = %w(
|
109
|
+
1E 00 00 00 04 00 00 00 E2 98 BA 00
|
110
|
+
).join(' ')
|
111
|
+
|
112
|
+
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
113
|
+
assert_equal(target, result, caption)
|
114
|
+
end
|
115
|
+
|
116
|
+
def test_pack_a_VT_LPSTR_UTF8_string_2
|
117
|
+
string = "a" + @smiley
|
118
|
+
codepage = 0xFDE9
|
119
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('a#{@smiley}',\t#{codepage}')"
|
120
|
+
target = %w(
|
121
|
+
1E 00 00 00 05 00 00 00 61 E2 98 BA 00 00 00 00
|
122
|
+
).join(' ')
|
123
|
+
|
124
|
+
result = unpack_record(pack_VT_LPSTR(string, codepage))
|
125
|
+
assert_equal(target, result, caption)
|
126
|
+
end
|
127
|
+
|
128
|
+
def test_pack_a_VT_LPSTR_UTF8_string_3
|
129
|
+
string = "aa" + @smiley
|
130
|
+
codepage = 0xFDE9
|
131
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
132
|
+
target = %w(
|
133
|
+
1E 00 00 00 06 00 00 00 61 61 E2 98 BA 00 00 00
|
134
|
+
).join(' ')
|
135
|
+
|
136
|
+
result = unpack_record( pack_VT_LPSTR(string, codepage) )
|
137
|
+
assert_equal(target, result, caption)
|
138
|
+
end
|
139
|
+
|
140
|
+
def test_pack_a_VT_LPSTR_UTF8_string_4
|
141
|
+
string = "aaa" + @smiley
|
142
|
+
codepage = 0xFDE9
|
143
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
144
|
+
target = %w(
|
145
|
+
1E 00 00 00 07 00 00 00 61 61 61 E2 98 BA 00 00
|
146
|
+
).join(' ')
|
147
|
+
|
148
|
+
result = unpack_record( pack_VT_LPSTR(string, codepage) )
|
149
|
+
assert_equal(target, result, caption)
|
150
|
+
end
|
151
|
+
|
152
|
+
def test_pack_a_VT_LPSTR_UTF8_string_5
|
153
|
+
string = "aaaa" + @smiley
|
154
|
+
codepage = 0xFDE9
|
155
|
+
caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
|
156
|
+
target = %w(
|
157
|
+
1E 00 00 00 08 00 00 00 61 61 61 61 E2 98 BA 00
|
158
|
+
).join(' ')
|
159
|
+
|
160
|
+
result = unpack_record( pack_VT_LPSTR(string, codepage) )
|
161
|
+
assert_equal(target, result, caption)
|
162
|
+
end
|
163
|
+
|
164
|
+
def test_pack_a_VT_FILETIME
|
165
|
+
# Wed Aug 13 00:40:00 2008
|
166
|
+
# $sec,$min,$hour,$mday,$mon,$year
|
167
|
+
# We normalise the time using timegm() so that the tests don't fail due to
|
168
|
+
# different timezones.
|
169
|
+
filetime = Time.gm(2008,8,13,0,40,0)
|
170
|
+
|
171
|
+
caption = " \tDoc properties: _pack_VT_FILETIME()"
|
172
|
+
target = %w(
|
173
|
+
40 00 00 00 00 70 EB 1D DD FC C8 01
|
174
|
+
).join(' ')
|
175
|
+
|
176
|
+
result = unpack_record( pack_VT_FILETIME(filetime) )
|
177
|
+
assert_equal(target, result, caption)
|
178
|
+
end
|
179
|
+
|
180
|
+
###############################################################################
|
181
|
+
#
|
182
|
+
# Unpack the binary data into a format suitable for printing in tests.
|
183
|
+
#
|
184
|
+
def unpack_record(data)
|
185
|
+
data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
|
186
|
+
end
|
187
|
+
|
188
|
+
end
|