writeexcel 0.1.0 → 0.3.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (143) hide show
  1. data/README +26 -31
  2. data/examples/a_simple.rb +42 -42
  3. data/examples/{autofilters.rb → autofilter.rb} +264 -266
  4. data/examples/bigfile.rb +29 -0
  5. data/examples/chart_area.rb +120 -0
  6. data/examples/chart_bar.rb +119 -0
  7. data/examples/chart_column.rb +119 -0
  8. data/examples/chart_line.rb +119 -0
  9. data/examples/chart_pie.rb +107 -0
  10. data/examples/chart_scatter.rb +120 -0
  11. data/examples/chart_stock.rb +147 -0
  12. data/examples/copyformat.rb +51 -51
  13. data/examples/data_validate.rb +278 -278
  14. data/examples/date_time.rb +86 -86
  15. data/examples/defined_name.rb +31 -0
  16. data/examples/demo.rb +120 -118
  17. data/examples/diag_border.rb +35 -35
  18. data/examples/formats.rb +489 -489
  19. data/examples/header.rb +136 -136
  20. data/examples/hidden.rb +28 -28
  21. data/examples/hyperlink.rb +42 -42
  22. data/examples/images.rb +52 -52
  23. data/examples/merge1.rb +39 -39
  24. data/examples/merge2.rb +44 -44
  25. data/examples/merge3.rb +65 -65
  26. data/examples/merge4.rb +82 -82
  27. data/examples/merge5.rb +79 -79
  28. data/examples/properties.rb +33 -0
  29. data/examples/properties_jp.rb +32 -0
  30. data/examples/protection.rb +46 -46
  31. data/examples/regions.rb +52 -52
  32. data/examples/repeat.rb +42 -42
  33. data/examples/stats.rb +75 -75
  34. data/examples/stocks.rb +80 -80
  35. data/examples/tab_colors.rb +30 -30
  36. data/examples/write_arrays.rb +82 -0
  37. data/lib/writeexcel.rb +1134 -18
  38. data/lib/writeexcel/biffwriter.rb +273 -260
  39. data/lib/writeexcel/chart.rb +2306 -217
  40. data/lib/writeexcel/charts/area.rb +152 -0
  41. data/lib/writeexcel/charts/bar.rb +177 -0
  42. data/lib/writeexcel/charts/column.rb +156 -0
  43. data/lib/writeexcel/charts/external.rb +61 -0
  44. data/lib/writeexcel/charts/line.rb +152 -0
  45. data/lib/writeexcel/charts/pie.rb +169 -0
  46. data/lib/writeexcel/charts/scatter.rb +192 -0
  47. data/lib/writeexcel/charts/stock.rb +211 -0
  48. data/lib/writeexcel/excelformulaparser.rb +208 -195
  49. data/lib/writeexcel/format.rb +1697 -1108
  50. data/lib/writeexcel/formula.rb +1050 -986
  51. data/lib/writeexcel/olewriter.rb +322 -322
  52. data/lib/writeexcel/properties.rb +251 -250
  53. data/lib/writeexcel/storage_lite.rb +968 -0
  54. data/lib/writeexcel/workbook.rb +3294 -2630
  55. data/lib/writeexcel/worksheet.rb +9012 -6377
  56. data/test/excelfile/Chart1.xls +0 -0
  57. data/test/excelfile/Chart2.xls +0 -0
  58. data/test/excelfile/Chart3.xls +0 -0
  59. data/test/excelfile/Chart4.xls +0 -0
  60. data/test/excelfile/Chart5.xls +0 -0
  61. data/test/perl_output/Chart1.xls.data +0 -0
  62. data/test/perl_output/Chart2.xls.data +0 -0
  63. data/test/perl_output/Chart3.xls.data +0 -0
  64. data/test/perl_output/Chart4.xls.data +0 -0
  65. data/test/perl_output/Chart5.xls.data +0 -0
  66. data/test/perl_output/a_simple.xls +0 -0
  67. data/test/perl_output/autofilter.xls +0 -0
  68. data/test/perl_output/chart_area.xls +0 -0
  69. data/test/perl_output/chart_bar.xls +0 -0
  70. data/test/perl_output/chart_column.xls +0 -0
  71. data/test/perl_output/chart_line.xls +0 -0
  72. data/test/perl_output/data_validate.xls +0 -0
  73. data/test/perl_output/date_time.xls +0 -0
  74. data/test/perl_output/demo.xls +0 -0
  75. data/test/perl_output/demo101.bin +0 -0
  76. data/test/perl_output/demo201.bin +0 -0
  77. data/test/perl_output/demo301.bin +0 -0
  78. data/test/perl_output/demo401.bin +0 -0
  79. data/test/perl_output/demo501.bin +0 -0
  80. data/test/perl_output/diag_border.xls +0 -0
  81. data/test/perl_output/headers.xls +0 -0
  82. data/test/perl_output/hyperlink.xls +0 -0
  83. data/test/perl_output/images.xls +0 -0
  84. data/test/perl_output/merge1.xls +0 -0
  85. data/test/perl_output/merge2.xls +0 -0
  86. data/test/perl_output/merge3.xls +0 -0
  87. data/test/perl_output/merge4.xls +0 -0
  88. data/test/perl_output/merge5.xls +0 -0
  89. data/test/perl_output/protection.xls +0 -0
  90. data/test/perl_output/regions.xls +0 -0
  91. data/test/perl_output/stats.xls +0 -0
  92. data/test/perl_output/stocks.xls +0 -0
  93. data/test/perl_output/tab_colors.xls +0 -0
  94. data/test/perl_output/unicode_cyrillic.xls +0 -0
  95. data/test/perl_output/workbook1.xls +0 -0
  96. data/test/perl_output/workbook2.xls +0 -0
  97. data/test/tc_all.rb +32 -31
  98. data/test/tc_biff.rb +104 -104
  99. data/test/tc_chart.rb +22 -22
  100. data/test/tc_example_match.rb +1944 -1280
  101. data/test/tc_format.rb +1254 -1267
  102. data/test/tc_formula.rb +63 -63
  103. data/test/tc_ole.rb +110 -110
  104. data/test/tc_storage_lite.rb +149 -0
  105. data/test/tc_workbook.rb +140 -115
  106. data/test/tc_worksheet.rb +115 -115
  107. data/test/test_00_IEEE_double.rb +14 -14
  108. data/test/test_01_add_worksheet.rb +12 -12
  109. data/test/test_02_merge_formats.rb +58 -58
  110. data/test/test_04_dimensions.rb +397 -397
  111. data/test/test_05_rows.rb +182 -182
  112. data/test/test_06_extsst.rb +80 -80
  113. data/test/test_11_date_time.rb +484 -484
  114. data/test/test_12_date_only.rb +506 -506
  115. data/test/test_13_date_seconds.rb +486 -486
  116. data/test/test_21_escher.rb +642 -629
  117. data/test/test_22_mso_drawing_group.rb +750 -739
  118. data/test/test_23_note.rb +78 -78
  119. data/test/test_24_txo.rb +80 -80
  120. data/test/test_25_position_object.rb +82 -0
  121. data/test/test_26_autofilter.rb +327 -327
  122. data/test/test_27_autofilter.rb +144 -144
  123. data/test/test_28_autofilter.rb +174 -174
  124. data/test/test_29_process_jpg.rb +681 -131
  125. data/test/test_30_validation_dval.rb +82 -82
  126. data/test/test_31_validation_dv_strings.rb +131 -131
  127. data/test/test_32_validation_dv_formula.rb +211 -211
  128. data/test/test_40_property_types.rb +191 -191
  129. data/test/test_41_properties.rb +238 -238
  130. data/test/test_42_set_properties.rb +442 -419
  131. data/test/test_50_name_stored.rb +305 -0
  132. data/test/test_51_name_print_area.rb +363 -0
  133. data/test/test_52_name_print_titles.rb +460 -0
  134. data/test/test_53_autofilter.rb +209 -0
  135. data/test/test_60_chart_generic.rb +576 -0
  136. data/test/test_61_chart_subclasses.rb +97 -0
  137. data/test/test_62_chart_formats.rb +270 -0
  138. data/test/test_63_chart_area_formats.rb +647 -0
  139. data/test/test_chartex.rb +35 -0
  140. data/test/ts_all.rb +46 -34
  141. data/writeexcel.gemspec +18 -0
  142. data/writeexcel.rdoc +583 -0
  143. metadata +162 -108
data/test/test_40_property_types.rb CHANGED
@@ -1,191 +1,191 @@
1
- ##########################################################################
2
- # test_40_property_types.rb
3
- #
4
- # Tests for the basic property types used in OLE property sets.
5
- #
6
- # reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
7
- #
8
- # original written in Perl by John McNamara
9
- # converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
10
- #
11
- #########################################################################
12
- $LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
13
-
14
- require 'test/unit'
15
- require 'rubygems'
16
- require 'writeexcel'
17
-
18
- class TC_property_types < Test::Unit::TestCase
19
-
20
- def setup
21
- @smiley = '☺' # chr 0x263A; in perl
22
- end
23
-
24
- def test_pack_a_VT_I2
25
- caption = " \tDoc properties: pack_VT_I2(1252)"
26
- target = %w(
27
- 02 00 00 00 E4 04 00 00
28
- ).join(' ')
29
-
30
- result = unpack_record( pack_VT_I2(1252) )
31
- assert_equal(target, result, caption)
32
- end
33
-
34
- def test_pack_a_VT_LPSTR_string_and_check_for_padding
35
- string = ''
36
- codepage = 0x04E4
37
- caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
38
- target = %w(
39
- 1E 00 00 00 01 00 00 00 00 00 00 00
40
- ).join(' ')
41
-
42
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
43
- assert_equal(target, result, caption)
44
- end
45
-
46
- def test_pack_a_VT_LPSTR_string_and_check_for_padding_2
47
- string = 'a'
48
- codepage = 0x04E4
49
- caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
50
- target = %w(
51
- 1E 00 00 00 02 00 00 00 61 00 00 00
52
- ).join(' ')
53
-
54
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
55
- assert_equal(target, result, caption)
56
- end
57
-
58
- def test_pack_a_VT_LPSTR_string_and_check_for_padding_3
59
- string = 'bb'
60
- codepage = 0x04E4
61
- caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
62
- target = %w(
63
- 1E 00 00 00 03 00 00 00 62 62 00 00
64
- ).join(' ')
65
-
66
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
67
- assert_equal(target, result, caption)
68
- end
69
-
70
- def test_pack_a_VT_LPSTR_string_and_check_for_padding_4
71
- string = 'ccc'
72
- codepage = 0x04E4
73
- caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
74
- target = %w(
75
- 1E 00 00 00 04 00 00 00 63 63 63 00
76
- ).join(' ')
77
-
78
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
79
- assert_equal(target, result, caption)
80
- end
81
-
82
- def test_pack_a_VT_LPSTR_string_and_check_for_padding_5
83
- string = 'dddd'
84
- codepage = 0x04E4
85
- caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
86
- target = %w(
87
- 1E 00 00 00 05 00 00 00 64 64 64 64 00 00 00 00
88
- ).join(' ')
89
-
90
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
91
- assert_equal(target, result, caption)
92
- end
93
-
94
- def test_pack_a_VT_LPSTR_string_and_check_for_padding_5
95
- string = 'Username'
96
- codepage = 0x04E4
97
- caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
98
- target = %w(
99
- 1E 00 00 00 09 00 00 00 55 73 65 72 6E 61 6D 65
100
- 00 00 00 00
101
- ).join(' ')
102
-
103
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
104
- assert_equal(target, result, caption)
105
- end
106
-
107
- def test_pack_a_VT_LPSTR_UTF8_string
108
- string = @smiley
109
- codepage = 0xFDE9
110
- caption = " \tDoc properties: _pack_VT_LPSTR('#{@smiley}',\t#{codepage}')"
111
- target = %w(
112
- 1E 00 00 00 04 00 00 00 E2 98 BA 00
113
- ).join(' ')
114
-
115
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
116
- assert_equal(target, result, caption)
117
- end
118
-
119
- def test_pack_a_VT_LPSTR_UTF8_string_2
120
- string = "a" + @smiley
121
- codepage = 0xFDE9
122
- caption = " \tDoc properties: _pack_VT_LPSTR('a#{@smiley}',\t#{codepage}')"
123
- target = %w(
124
- 1E 00 00 00 05 00 00 00 61 E2 98 BA 00 00 00 00
125
- ).join(' ')
126
-
127
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
128
- assert_equal(target, result, caption)
129
- end
130
-
131
- def test_pack_a_VT_LPSTR_UTF8_string_3
132
- string = "aa" + @smiley
133
- codepage = 0xFDE9
134
- caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
135
- target = %w(
136
- 1E 00 00 00 06 00 00 00 61 61 E2 98 BA 00 00 00
137
- ).join(' ')
138
-
139
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
140
- assert_equal(target, result, caption)
141
- end
142
-
143
- def test_pack_a_VT_LPSTR_UTF8_string_4
144
- string = "aaa" + @smiley
145
- codepage = 0xFDE9
146
- caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
147
- target = %w(
148
- 1E 00 00 00 07 00 00 00 61 61 61 E2 98 BA 00 00
149
- ).join(' ')
150
-
151
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
152
- assert_equal(target, result, caption)
153
- end
154
-
155
- def test_pack_a_VT_LPSTR_UTF8_string_5
156
- string = "aaaa" + @smiley
157
- codepage = 0xFDE9
158
- caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
159
- target = %w(
160
- 1E 00 00 00 08 00 00 00 61 61 61 61 E2 98 BA 00
161
- ).join(' ')
162
-
163
- result = unpack_record( pack_VT_LPSTR(string, codepage) )
164
- assert_equal(target, result, caption)
165
- end
166
-
167
- def test_pack_a_VT_FILETIME
168
- # Wed Aug 13 00:40:00 2008
169
- # $sec,$min,$hour,$mday,$mon,$year
170
- # We normalise the time using timegm() so that the tests don't fail due to
171
- # different timezones.
172
- filetime = Time.gm(2008,8,13,0,40,0)
173
-
174
- caption = " \tDoc properties: _pack_VT_FILETIME()"
175
- target = %w(
176
- 40 00 00 00 00 70 EB 1D DD FC C8 01
177
- ).join(' ')
178
-
179
- result = unpack_record( pack_VT_FILETIME(filetime) )
180
- assert_equal(target, result, caption)
181
- end
182
-
183
- ###############################################################################
184
- #
185
- # Unpack the binary data into a format suitable for printing in tests.
186
- #
187
- def unpack_record(data)
188
- data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
189
- end
190
-
191
- end
1
+ ##########################################################################
2
+ # test_40_property_types.rb
3
+ #
4
+ # Tests for the basic property types used in OLE property sets.
5
+ #
6
+ # reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
7
+ #
8
+ # original written in Perl by John McNamara
9
+ # converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
10
+ #
11
+ #########################################################################
12
+ $LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
13
+
14
+ require 'test/unit'
15
+ require 'rubygems'
16
+ require 'writeexcel'
17
+
18
+ class TC_property_types < Test::Unit::TestCase
19
+
20
+ def setup
21
+ @smiley = '☺' # chr 0x263A; in perl
22
+ end
23
+
24
+ def test_pack_a_VT_I2
25
+ caption = " \tDoc properties: pack_VT_I2(1252)"
26
+ target = %w(
27
+ 02 00 00 00 E4 04 00 00
28
+ ).join(' ')
29
+
30
+ result = unpack_record( pack_VT_I2(1252) )
31
+ assert_equal(target, result, caption)
32
+ end
33
+
34
+ def test_pack_a_VT_LPSTR_string_and_check_for_padding
35
+ string = ''
36
+ codepage = 0x04E4
37
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
38
+ target = %w(
39
+ 1E 00 00 00 01 00 00 00 00 00 00 00
40
+ ).join(' ')
41
+
42
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
43
+ assert_equal(target, result, caption)
44
+ end
45
+
46
+ def test_pack_a_VT_LPSTR_string_and_check_for_padding_2
47
+ string = 'a'
48
+ codepage = 0x04E4
49
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
50
+ target = %w(
51
+ 1E 00 00 00 02 00 00 00 61 00 00 00
52
+ ).join(' ')
53
+
54
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
55
+ assert_equal(target, result, caption)
56
+ end
57
+
58
+ def test_pack_a_VT_LPSTR_string_and_check_for_padding_3
59
+ string = 'bb'
60
+ codepage = 0x04E4
61
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
62
+ target = %w(
63
+ 1E 00 00 00 03 00 00 00 62 62 00 00
64
+ ).join(' ')
65
+
66
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
67
+ assert_equal(target, result, caption)
68
+ end
69
+
70
+ def test_pack_a_VT_LPSTR_string_and_check_for_padding_4
71
+ string = 'ccc'
72
+ codepage = 0x04E4
73
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
74
+ target = %w(
75
+ 1E 00 00 00 04 00 00 00 63 63 63 00
76
+ ).join(' ')
77
+
78
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
79
+ assert_equal(target, result, caption)
80
+ end
81
+
82
+ def test_pack_a_VT_LPSTR_string_and_check_for_padding_5
83
+ string = 'dddd'
84
+ codepage = 0x04E4
85
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
86
+ target = %w(
87
+ 1E 00 00 00 05 00 00 00 64 64 64 64 00 00 00 00
88
+ ).join(' ')
89
+
90
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
91
+ assert_equal(target, result, caption)
92
+ end
93
+
94
+ def test_pack_a_VT_LPSTR_string_and_check_for_padding_6
95
+ string = 'Username'
96
+ codepage = 0x04E4
97
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
98
+ target = %w(
99
+ 1E 00 00 00 09 00 00 00 55 73 65 72 6E 61 6D 65
100
+ 00 00 00 00
101
+ ).join(' ')
102
+
103
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
104
+ assert_equal(target, result, caption)
105
+ end
106
+
107
+ def test_pack_a_VT_LPSTR_UTF8_string
108
+ string = @smiley
109
+ codepage = 0xFDE9
110
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{@smiley}',\t#{codepage}')"
111
+ target = %w(
112
+ 1E 00 00 00 04 00 00 00 E2 98 BA 00
113
+ ).join(' ')
114
+
115
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
116
+ assert_equal(target, result, caption)
117
+ end
118
+
119
+ def test_pack_a_VT_LPSTR_UTF8_string_2
120
+ string = "a" + @smiley
121
+ codepage = 0xFDE9
122
+ caption = " \tDoc properties: _pack_VT_LPSTR('a#{@smiley}',\t#{codepage}')"
123
+ target = %w(
124
+ 1E 00 00 00 05 00 00 00 61 E2 98 BA 00 00 00 00
125
+ ).join(' ')
126
+
127
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
128
+ assert_equal(target, result, caption)
129
+ end
130
+
131
+ def test_pack_a_VT_LPSTR_UTF8_string_3
132
+ string = "aa" + @smiley
133
+ codepage = 0xFDE9
134
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
135
+ target = %w(
136
+ 1E 00 00 00 06 00 00 00 61 61 E2 98 BA 00 00 00
137
+ ).join(' ')
138
+
139
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
140
+ assert_equal(target, result, caption)
141
+ end
142
+
143
+ def test_pack_a_VT_LPSTR_UTF8_string_4
144
+ string = "aaa" + @smiley
145
+ codepage = 0xFDE9
146
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
147
+ target = %w(
148
+ 1E 00 00 00 07 00 00 00 61 61 61 E2 98 BA 00 00
149
+ ).join(' ')
150
+
151
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
152
+ assert_equal(target, result, caption)
153
+ end
154
+
155
+ def test_pack_a_VT_LPSTR_UTF8_string_5
156
+ string = "aaaa" + @smiley
157
+ codepage = 0xFDE9
158
+ caption = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
159
+ target = %w(
160
+ 1E 00 00 00 08 00 00 00 61 61 61 61 E2 98 BA 00
161
+ ).join(' ')
162
+
163
+ result = unpack_record( pack_VT_LPSTR(string, codepage) )
164
+ assert_equal(target, result, caption)
165
+ end
166
+
167
+ def test_pack_a_VT_FILETIME
168
+ # Wed Aug 13 00:40:00 2008
169
+ # $sec,$min,$hour,$mday,$mon,$year
170
+ # We normalise the time using timegm() so that the tests don't fail due to
171
+ # different timezones.
172
+ filetime = Time.gm(2008,8,13,0,40,0)
173
+
174
+ caption = " \tDoc properties: _pack_VT_FILETIME()"
175
+ target = %w(
176
+ 40 00 00 00 00 70 EB 1D DD FC C8 01
177
+ ).join(' ')
178
+
179
+ result = unpack_record( pack_VT_FILETIME(filetime) )
180
+ assert_equal(target, result, caption)
181
+ end
182
+
183
+ ###############################################################################
184
+ #
185
+ # Unpack the binary data into a format suitable for printing in tests.
186
+ #
187
+ def unpack_record(data)
188
+ data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
189
+ end
190
+
191
+ end
data/test/test_41_properties.rb CHANGED
@@ -1,238 +1,238 @@
1
- ##########################################################################
2
- # test_41_properties.rb
3
- #
4
- # Tests for OLE property sets.
5
- #
6
- # reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
7
- #
8
- # original written in Perl by John McNamara
9
- # converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
10
- #
11
- #########################################################################
12
- $LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
13
-
14
- require 'test/unit'
15
- require 'rubygems'
16
- require 'writeexcel'
17
-
18
- class TC_properties < Test::Unit::TestCase
19
-
20
- def setup
21
- @smiley = '☺' # chr 0x263A; in perl
22
- end
23
-
24
- def test_codepage_only
25
- properties = [[0x0001, 'VT_I2', 0x04E4]]
26
- caption = " \tDoc properties: _create_property_set('Code page')"
27
- target = %w(
28
- FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
29
- 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
30
- F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
31
- 18 00 00 00 01 00 00 00 01 00 00 00 10 00 00 00
32
- 02 00 00 00 E4 04 00 00
33
- ).join(' ')
34
-
35
- result = unpack_record( create_summary_property_set(properties))
36
- assert_equal(target, result, caption)
37
- end
38
-
39
- def test_same_as_previous_plus_title
40
- properties = [
41
- [0x0001, 'VT_I2', 0x04E4 ],
42
- [0x0002, 'VT_LPSTR', 'Title'],
43
- ]
44
- caption = " \tDoc properties: _create_property_set('+ Title')"
45
- target = %w(
46
- FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
47
- 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
48
- F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
49
- 30 00 00 00 02 00 00 00 01 00 00 00 18 00 00 00
50
- 02 00 00 00 20 00 00 00 02 00 00 00 E4 04 00 00
51
- 1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
52
- ).join(' ')
53
-
54
- result = unpack_record( create_summary_property_set(properties))
55
- assert_equal(target, result, caption)
56
- end
57
-
58
- def test_same_as_previous_plus_subject
59
- properties = [
60
- [0x0001, 'VT_I2', 0x04E4 ],
61
- [0x0002, 'VT_LPSTR', 'Title'],
62
- [0x0003, 'VT_LPSTR', 'Subject'],
63
- ]
64
- caption = " \tDoc properties: _create_property_set('+ Subject')"
65
- target = %w(
66
- FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
67
- 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
68
- F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
69
- 48 00 00 00 03 00 00 00 01 00 00 00 20 00 00 00
70
- 02 00 00 00 28 00 00 00 03 00 00 00 38 00 00 00
71
- 02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
72
- 54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
73
- 53 75 62 6A 65 63 74 00
74
- ).join(' ')
75
-
76
- result = unpack_record( create_summary_property_set(properties))
77
- assert_equal(target, result, caption)
78
- end
79
-
80
- def test_same_as_previous_plus_author
81
- properties = [
82
- [0x0001, 'VT_I2', 0x04E4 ],
83
- [0x0002, 'VT_LPSTR', 'Title'],
84
- [0x0003, 'VT_LPSTR', 'Subject'],
85
- [0x0004, 'VT_LPSTR', 'Author' ],
86
- ]
87
- caption = " \tDoc properties: _create_property_set('+ Keywords')"
88
- target = %w(
89
- FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
90
- 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
91
- F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
92
- 60 00 00 00 04 00 00 00 01 00 00 00 28 00 00 00
93
- 02 00 00 00 30 00 00 00 03 00 00 00 40 00 00 00
94
- 04 00 00 00 50 00 00 00 02 00 00 00 E4 04 00 00
95
- 1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
96
- 1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
97
- 1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
98
- ).join(' ')
99
-
100
- result = unpack_record( create_summary_property_set(properties))
101
- assert_equal(target, result, caption)
102
- end
103
-
104
- def test_same_as_previous_plus_keywords
105
- properties = [
106
- [0x0001, 'VT_I2', 0x04E4 ],
107
- [0x0002, 'VT_LPSTR', 'Title'],
108
- [0x0003, 'VT_LPSTR', 'Subject'],
109
- [0x0004, 'VT_LPSTR', 'Author' ],
110
- [0x0005, 'VT_LPSTR', 'Keywords'],
111
- ]
112
- caption = " \tDoc properties: _create_property_set('+ Keywords')"
113
- target = %w(
114
- FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
115
- 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
116
- F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
117
- 7C 00 00 00 05 00 00 00 01 00 00 00 30 00 00 00
118
- 02 00 00 00 38 00 00 00 03 00 00 00 48 00 00 00
119
- 04 00 00 00 58 00 00 00 05 00 00 00 68 00 00 00
120
- 02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
121
- 54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
122
- 53 75 62 6A 65 63 74 00 1E 00 00 00 07 00 00 00
123
- 41 75 74 68 6F 72 00 00 1E 00 00 00 09 00 00 00
124
- 4B 65 79 77 6F 72 64 73 00 00 00 00
125
- ).join(' ')
126
-
127
- result = unpack_record( create_summary_property_set(properties))
128
- assert_equal(target, result, caption)
129
- end
130
-
131
- def test_same_as_previous_plus_comments
132
- properties = [
133
- [0x0001, 'VT_I2', 0x04E4 ],
134
- [0x0002, 'VT_LPSTR', 'Title'],
135
- [0x0003, 'VT_LPSTR', 'Subject'],
136
- [0x0004, 'VT_LPSTR', 'Author' ],
137
- [0x0005, 'VT_LPSTR', 'Keywords'],
138
- [0x0006, 'VT_LPSTR', 'Comments'],
139
- ]
140
- caption = " \tDoc properties: _create_property_set('+ Comments')"
141
- target = %w(
142
- FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
143
- 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
144
- F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
145
- 98 00 00 00 06 00 00 00 01 00 00 00 38 00 00 00
146
- 02 00 00 00 40 00 00 00 03 00 00 00 50 00 00 00
147
- 04 00 00 00 60 00 00 00 05 00 00 00 70 00 00 00
148
- 06 00 00 00 84 00 00 00 02 00 00 00 E4 04 00 00
149
- 1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
150
- 1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
151
- 1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
152
- 1E 00 00 00 09 00 00 00 4B 65 79 77 6F 72 64 73
153
- 00 00 00 00 1E 00 00 00 09 00 00 00 43 6F 6D 6D
154
- 65 6E 74 73 00 00 00 00
155
- ).join(' ')
156
-
157
- result = unpack_record( create_summary_property_set(properties))
158
- assert_equal(target, result, caption)
159
- end
160
-
161
- def test_same_as_previous_plus_last_author
162
- properties = [
163
- [0x0001, 'VT_I2', 0x04E4 ],
164
- [0x0002, 'VT_LPSTR', 'Title'],
165
- [0x0003, 'VT_LPSTR', 'Subject'],
166
- [0x0004, 'VT_LPSTR', 'Author' ],
167
- [0x0005, 'VT_LPSTR', 'Keywords'],
168
- [0x0006, 'VT_LPSTR', 'Comments'],
169
- [0x0008, 'VT_LPSTR', 'Username'],
170
- ]
171
- caption = " \tDoc properties: _create_property_set('+ Comments')"
172
- target = %w(
173
- FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
174
- 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
175
- F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
176
- B4 00 00 00 07 00 00 00 01 00 00 00 40 00 00 00
177
- 02 00 00 00 48 00 00 00 03 00 00 00 58 00 00 00
178
- 04 00 00 00 68 00 00 00 05 00 00 00 78 00 00 00
179
- 06 00 00 00 8C 00 00 00 08 00 00 00 A0 00 00 00
180
- 02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
181
- 54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
182
- 53 75 62 6A 65 63 74 00 1E 00 00 00 07 00 00 00
183
- 41 75 74 68 6F 72 00 00 1E 00 00 00 09 00 00 00
184
- 4B 65 79 77 6F 72 64 73 00 00 00 00 1E 00 00 00
185
- 09 00 00 00 43 6F 6D 6D 65 6E 74 73 00 00 00 00
186
- 1E 00 00 00 09 00 00 00 55 73 65 72 6E 61 6D 65
187
- 00 00 00 00
188
- ).join(' ')
189
-
190
- result = unpack_record( create_summary_property_set(properties))
191
- assert_equal(target, result, caption)
192
- end
193
-
194
- def test_same_as_previous_plus_creation_date
195
- filetime = Time.gm(2008,8,19,23,20,13)
196
- properties = [
197
- [0x0001, 'VT_I2', 0x04E4 ],
198
- [0x0002, 'VT_LPSTR', 'Title'],
199
- [0x0003, 'VT_LPSTR', 'Subject'],
200
- [0x0004, 'VT_LPSTR', 'Author' ],
201
- [0x0005, 'VT_LPSTR', 'Keywords'],
202
- [0x0006, 'VT_LPSTR', 'Comments'],
203
- [0x0008, 'VT_LPSTR', 'Username'],
204
- [0x000C, 'VT_FILETIME', filetime ],
205
- ]
206
- caption = " \tDoc properties: _create_property_set('+ Comments')"
207
- target = %w(
208
- FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
209
- 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
210
- F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
211
- C8 00 00 00 08 00 00 00 01 00 00 00 48 00 00 00
212
- 02 00 00 00 50 00 00 00 03 00 00 00 60 00 00 00
213
- 04 00 00 00 70 00 00 00 05 00 00 00 80 00 00 00
214
- 06 00 00 00 94 00 00 00 08 00 00 00 A8 00 00 00
215
- 0C 00 00 00 BC 00 00 00 02 00 00 00 E4 04 00 00
216
- 1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
217
- 1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
218
- 1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
219
- 1E 00 00 00 09 00 00 00 4B 65 79 77 6F 72 64 73
220
- 00 00 00 00 1E 00 00 00 09 00 00 00 43 6F 6D 6D
221
- 65 6E 74 73 00 00 00 00 1E 00 00 00 09 00 00 00
222
- 55 73 65 72 6E 61 6D 65 00 00 00 00 40 00 00 00
223
- 80 74 89 21 52 02 C9 01
224
- ).join(' ')
225
-
226
- result = unpack_record( create_summary_property_set(properties))
227
- assert_equal(target, result, caption)
228
- end
229
-
230
- ###############################################################################
231
- #
232
- # Unpack the binary data into a format suitable for printing in tests.
233
- #
234
- def unpack_record(data)
235
- data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
236
- end
237
-
238
- end
1
+ ##########################################################################
2
+ # test_41_properties.rb
3
+ #
4
+ # Tests for OLE property sets.
5
+ #
6
+ # reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
7
+ #
8
+ # original written in Perl by John McNamara
9
+ # converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
10
+ #
11
+ #########################################################################
12
+ $LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
13
+
14
+ require 'test/unit'
15
+ require 'rubygems'
16
+ require 'writeexcel'
17
+
18
+ class TC_properties < Test::Unit::TestCase
19
+
20
+ def setup
21
+ @smiley = '☺' # chr 0x263A; in perl
22
+ end
23
+
24
+ def test_codepage_only
25
+ properties = [[0x0001, 'VT_I2', 0x04E4]]
26
+ caption = " \tDoc properties: _create_property_set('Code page')"
27
+ target = %w(
28
+ FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
29
+ 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
30
+ F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
31
+ 18 00 00 00 01 00 00 00 01 00 00 00 10 00 00 00
32
+ 02 00 00 00 E4 04 00 00
33
+ ).join(' ')
34
+
35
+ result = unpack_record( create_summary_property_set(properties))
36
+ assert_equal(target, result, caption)
37
+ end
38
+
39
+ def test_same_as_previous_plus_title
40
+ properties = [
41
+ [0x0001, 'VT_I2', 0x04E4 ],
42
+ [0x0002, 'VT_LPSTR', 'Title'],
43
+ ]
44
+ caption = " \tDoc properties: _create_property_set('+ Title')"
45
+ target = %w(
46
+ FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
47
+ 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
48
+ F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
49
+ 30 00 00 00 02 00 00 00 01 00 00 00 18 00 00 00
50
+ 02 00 00 00 20 00 00 00 02 00 00 00 E4 04 00 00
51
+ 1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
52
+ ).join(' ')
53
+
54
+ result = unpack_record( create_summary_property_set(properties))
55
+ assert_equal(target, result, caption)
56
+ end
57
+
58
+ def test_same_as_previous_plus_subject
59
+ properties = [
60
+ [0x0001, 'VT_I2', 0x04E4 ],
61
+ [0x0002, 'VT_LPSTR', 'Title'],
62
+ [0x0003, 'VT_LPSTR', 'Subject'],
63
+ ]
64
+ caption = " \tDoc properties: _create_property_set('+ Subject')"
65
+ target = %w(
66
+ FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
67
+ 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
68
+ F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
69
+ 48 00 00 00 03 00 00 00 01 00 00 00 20 00 00 00
70
+ 02 00 00 00 28 00 00 00 03 00 00 00 38 00 00 00
71
+ 02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
72
+ 54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
73
+ 53 75 62 6A 65 63 74 00
74
+ ).join(' ')
75
+
76
+ result = unpack_record( create_summary_property_set(properties))
77
+ assert_equal(target, result, caption)
78
+ end
79
+
80
+ def test_same_as_previous_plus_author
81
+ properties = [
82
+ [0x0001, 'VT_I2', 0x04E4 ],
83
+ [0x0002, 'VT_LPSTR', 'Title'],
84
+ [0x0003, 'VT_LPSTR', 'Subject'],
85
+ [0x0004, 'VT_LPSTR', 'Author' ],
86
+ ]
87
+ caption = " \tDoc properties: _create_property_set('+ Keywords')"
88
+ target = %w(
89
+ FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
90
+ 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
91
+ F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
92
+ 60 00 00 00 04 00 00 00 01 00 00 00 28 00 00 00
93
+ 02 00 00 00 30 00 00 00 03 00 00 00 40 00 00 00
94
+ 04 00 00 00 50 00 00 00 02 00 00 00 E4 04 00 00
95
+ 1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
96
+ 1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
97
+ 1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
98
+ ).join(' ')
99
+
100
+ result = unpack_record( create_summary_property_set(properties))
101
+ assert_equal(target, result, caption)
102
+ end
103
+
104
+ def test_same_as_previous_plus_keywords
105
+ properties = [
106
+ [0x0001, 'VT_I2', 0x04E4 ],
107
+ [0x0002, 'VT_LPSTR', 'Title'],
108
+ [0x0003, 'VT_LPSTR', 'Subject'],
109
+ [0x0004, 'VT_LPSTR', 'Author' ],
110
+ [0x0005, 'VT_LPSTR', 'Keywords'],
111
+ ]
112
+ caption = " \tDoc properties: _create_property_set('+ Keywords')"
113
+ target = %w(
114
+ FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
115
+ 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
116
+ F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
117
+ 7C 00 00 00 05 00 00 00 01 00 00 00 30 00 00 00
118
+ 02 00 00 00 38 00 00 00 03 00 00 00 48 00 00 00
119
+ 04 00 00 00 58 00 00 00 05 00 00 00 68 00 00 00
120
+ 02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
121
+ 54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
122
+ 53 75 62 6A 65 63 74 00 1E 00 00 00 07 00 00 00
123
+ 41 75 74 68 6F 72 00 00 1E 00 00 00 09 00 00 00
124
+ 4B 65 79 77 6F 72 64 73 00 00 00 00
125
+ ).join(' ')
126
+
127
+ result = unpack_record( create_summary_property_set(properties))
128
+ assert_equal(target, result, caption)
129
+ end
130
+
131
+ def test_same_as_previous_plus_comments
132
+ properties = [
133
+ [0x0001, 'VT_I2', 0x04E4 ],
134
+ [0x0002, 'VT_LPSTR', 'Title'],
135
+ [0x0003, 'VT_LPSTR', 'Subject'],
136
+ [0x0004, 'VT_LPSTR', 'Author' ],
137
+ [0x0005, 'VT_LPSTR', 'Keywords'],
138
+ [0x0006, 'VT_LPSTR', 'Comments'],
139
+ ]
140
+ caption = " \tDoc properties: _create_property_set('+ Comments')"
141
+ target = %w(
142
+ FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
143
+ 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
144
+ F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
145
+ 98 00 00 00 06 00 00 00 01 00 00 00 38 00 00 00
146
+ 02 00 00 00 40 00 00 00 03 00 00 00 50 00 00 00
147
+ 04 00 00 00 60 00 00 00 05 00 00 00 70 00 00 00
148
+ 06 00 00 00 84 00 00 00 02 00 00 00 E4 04 00 00
149
+ 1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
150
+ 1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
151
+ 1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
152
+ 1E 00 00 00 09 00 00 00 4B 65 79 77 6F 72 64 73
153
+ 00 00 00 00 1E 00 00 00 09 00 00 00 43 6F 6D 6D
154
+ 65 6E 74 73 00 00 00 00
155
+ ).join(' ')
156
+
157
+ result = unpack_record( create_summary_property_set(properties))
158
+ assert_equal(target, result, caption)
159
+ end
160
+
161
+ def test_same_as_previous_plus_last_author
162
+ properties = [
163
+ [0x0001, 'VT_I2', 0x04E4 ],
164
+ [0x0002, 'VT_LPSTR', 'Title'],
165
+ [0x0003, 'VT_LPSTR', 'Subject'],
166
+ [0x0004, 'VT_LPSTR', 'Author' ],
167
+ [0x0005, 'VT_LPSTR', 'Keywords'],
168
+ [0x0006, 'VT_LPSTR', 'Comments'],
169
+ [0x0008, 'VT_LPSTR', 'Username'],
170
+ ]
171
+ caption = " \tDoc properties: _create_property_set('+ Comments')"
172
+ target = %w(
173
+ FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
174
+ 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
175
+ F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
176
+ B4 00 00 00 07 00 00 00 01 00 00 00 40 00 00 00
177
+ 02 00 00 00 48 00 00 00 03 00 00 00 58 00 00 00
178
+ 04 00 00 00 68 00 00 00 05 00 00 00 78 00 00 00
179
+ 06 00 00 00 8C 00 00 00 08 00 00 00 A0 00 00 00
180
+ 02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
181
+ 54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
182
+ 53 75 62 6A 65 63 74 00 1E 00 00 00 07 00 00 00
183
+ 41 75 74 68 6F 72 00 00 1E 00 00 00 09 00 00 00
184
+ 4B 65 79 77 6F 72 64 73 00 00 00 00 1E 00 00 00
185
+ 09 00 00 00 43 6F 6D 6D 65 6E 74 73 00 00 00 00
186
+ 1E 00 00 00 09 00 00 00 55 73 65 72 6E 61 6D 65
187
+ 00 00 00 00
188
+ ).join(' ')
189
+
190
+ result = unpack_record( create_summary_property_set(properties))
191
+ assert_equal(target, result, caption)
192
+ end
193
+
194
+ def test_same_as_previous_plus_creation_date
195
+ filetime = Time.gm(2008,8,19,23,20,13)
196
+ properties = [
197
+ [0x0001, 'VT_I2', 0x04E4 ],
198
+ [0x0002, 'VT_LPSTR', 'Title'],
199
+ [0x0003, 'VT_LPSTR', 'Subject'],
200
+ [0x0004, 'VT_LPSTR', 'Author' ],
201
+ [0x0005, 'VT_LPSTR', 'Keywords'],
202
+ [0x0006, 'VT_LPSTR', 'Comments'],
203
+ [0x0008, 'VT_LPSTR', 'Username'],
204
+ [0x000C, 'VT_FILETIME', filetime ],
205
+ ]
206
+ caption = " \tDoc properties: _create_property_set('+ Comments')"
207
+ target = %w(
208
+ FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
209
+ 00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
210
+ F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
211
+ C8 00 00 00 08 00 00 00 01 00 00 00 48 00 00 00
212
+ 02 00 00 00 50 00 00 00 03 00 00 00 60 00 00 00
213
+ 04 00 00 00 70 00 00 00 05 00 00 00 80 00 00 00
214
+ 06 00 00 00 94 00 00 00 08 00 00 00 A8 00 00 00
215
+ 0C 00 00 00 BC 00 00 00 02 00 00 00 E4 04 00 00
216
+ 1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
217
+ 1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
218
+ 1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
219
+ 1E 00 00 00 09 00 00 00 4B 65 79 77 6F 72 64 73
220
+ 00 00 00 00 1E 00 00 00 09 00 00 00 43 6F 6D 6D
221
+ 65 6E 74 73 00 00 00 00 1E 00 00 00 09 00 00 00
222
+ 55 73 65 72 6E 61 6D 65 00 00 00 00 40 00 00 00
223
+ 80 74 89 21 52 02 C9 01
224
+ ).join(' ')
225
+
226
+ result = unpack_record( create_summary_property_set(properties))
227
+ assert_equal(target, result, caption)
228
+ end
229
+
230
+ ###############################################################################
231
+ #
232
+ # Unpack the binary data into a format suitable for printing in tests.
233
+ #
234
+ def unpack_record(data)
235
+ data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
236
+ end
237
+
238
+ end