ooxml

Check-in [b7dd6e7b67]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:merged from tcltest
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: b7dd6e7b672ebb8d9ba6005bfc1b84b1d4146fbaf46eed2c687ac793bd1a1716
User & Date: alex 2019-11-16 10:42:15
Context
2019-11-20
17:43
more accurate error messages check-in: 5a5b6893ba user: alex tags: trunk
2019-11-16
10:42
merged from tcltest check-in: b7dd6e7b67 user: alex tags: trunk
10:40
merged from trunk check-in: 5b32057030 user: alex tags: tcltest
10:37
merged from namespaces check-in: 6931dd69d4 user: alex tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/simple.test.

59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
..
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
  return [set appDoc [string match domDoc* $doc]]
} 1

testConstraint appCheck $appDoc

test DocPropsApp-3.2 {Check Application -application} appCheck {
  $doc selectNodesNamespaces $appXmlNs
  [$doc selectNodes /x:Properties/x:Application/text()] nodeValue
} {Tcl Test}
 

$doc delete


test DocPropsCore-4.1 {Parse xlsx/docProps/core.xml} {
................................................................................
  return [set coreDoc [string match domDoc* $doc]]
} 1

testConstraint coreCheck $coreDoc

test DocPropsCore-4.2 {Check Creator -creator} coreCheck {
  $doc selectNodesNamespaces $coreXmlNs
  [$doc selectNodes /cp:coreProperties/dc:creator/text()] nodeValue
} {User A}
 
test DocPropsCore-4.3 {Check Modified By -modifiedby} coreCheck {
  $doc selectNodesNamespaces $coreXmlNs
  [$doc selectNodes /cp:coreProperties/cp:lastModifiedBy/text()] nodeValue
} {User B}

test DocPropsCore-4.4 {Check Modified By -created} coreCheck {
  $doc selectNodesNamespaces $coreXmlNs
  [$doc selectNodes /cp:coreProperties/dcterms:created/text()] nodeValue
} {2019-10-31T14:10:23Z}

test DocPropsCore-4.5 {Check Modified By -modified} coreCheck {
  $doc selectNodesNamespaces $coreXmlNs
  [$doc selectNodes /cp:coreProperties/dcterms:modified/text()] nodeValue
} {2019-10-31T16:20:45Z}


$doc delete


vfs::zip::Unmount $mnt xlsx







|







 







|




|




|




|







59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
..
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
  return [set appDoc [string match domDoc* $doc]]
} 1

testConstraint appCheck $appDoc

test DocPropsApp-3.2 {Check Application -application} appCheck {
  $doc selectNodesNamespaces $appXmlNs
  $doc selectNodes string(/x:Properties/x:Application)
} {Tcl Test}
 

$doc delete


test DocPropsCore-4.1 {Parse xlsx/docProps/core.xml} {
................................................................................
  return [set coreDoc [string match domDoc* $doc]]
} 1

testConstraint coreCheck $coreDoc

test DocPropsCore-4.2 {Check Creator -creator} coreCheck {
  $doc selectNodesNamespaces $coreXmlNs
  $doc selectNodes string(/cp:coreProperties/dc:creator)
} {User A}
 
test DocPropsCore-4.3 {Check Modified By -modifiedby} coreCheck {
  $doc selectNodesNamespaces $coreXmlNs
  $doc selectNodes string(/cp:coreProperties/cp:lastModifiedBy)
} {User B}

test DocPropsCore-4.4 {Check Modified By -created} coreCheck {
  $doc selectNodesNamespaces $coreXmlNs
  $doc selectNodes string(/cp:coreProperties/dcterms:created)
} {2019-10-31T14:10:23Z}

test DocPropsCore-4.5 {Check Modified By -modified} coreCheck {
  $doc selectNodesNamespaces $coreXmlNs
  $doc selectNodes string(/cp:coreProperties/dcterms:modified)
} {2019-10-31T16:20:45Z}


$doc delete


vfs::zip::Unmount $mnt xlsx