Kaydet (Commit) 420ae489 authored tarafından Helge Delfs [hde]'s avatar Helge Delfs [hde]

#automationooo330m4#i113911#warning corrected

üst ab6bd75b
...@@ -358,11 +358,11 @@ testcase tToolsNumbering6 ...@@ -358,11 +358,11 @@ testcase tToolsNumbering6
Warnlog "First paragraph not 'This is the first' but: " & sClipBrd(0) Warnlog "First paragraph not 'This is the first' but: " & sClipBrd(0)
end if end if
Case 2 Case 2
if sClipBrd(1) <> "1.This is the second" then if sClipBrd(1) <> "1. This is the second" then
Warnlog "First paragraph not '1.This is the second' but: " & sClipBrd(1) Warnlog "First paragraph not '1.This is the second' but: " & sClipBrd(1)
end if end if
Case 3 Case 3
if sClipBrd(2) <> "2.This is the third" then if sClipBrd(2) <> "2. This is the third" then
Warnlog "First paragraph not '2.This is the third' but: " & sClipBrd(2) Warnlog "First paragraph not '2.This is the third' but: " & sClipBrd(2)
end if end if
end select end select
...@@ -472,12 +472,12 @@ testcase tToolsNumbering7 ...@@ -472,12 +472,12 @@ testcase tToolsNumbering7
end if end if
end if end if
Case 2 Case 2
if sClipBrd(1) <> "1.1.My second number" then if sClipBrd(1) <> "1. 1.My second number" then
Warnlog "#128041#First paragraph not '1.1.My second number' but: " & sClipBrd(1) Warnlog "#128041#Second paragraph not '1. 1.My second number' but: " & sClipBrd(1)
end if end if
Case 3 Case 3
if sClipBrd(2) <> "2.2.My third number" then if sClipBrd(2) <> "2. 2.My third number" then
Warnlog "#128041#First paragraph not '2.2.My third number' but: " & sClipBrd(2) Warnlog "#128041#Third paragraph not '2. 2.My third number' but: " & sClipBrd(2)
end if end if
end select end select
next i next i
...@@ -707,16 +707,16 @@ testcase tToolsNumbering11 ...@@ -707,16 +707,16 @@ testcase tToolsNumbering11
For i = 1 to 3 For i = 1 to 3
Select Case i Select Case i
Case 1 Case 1
if sClipBrd(0) <> "11A new first paragraph" then if sClipBrd(0) <> "1 1A new first paragraph" then
Warnlog "First Heading not: '11A new first paragraph' but: " & sClipBrd(0) Warnlog "First Heading not: '1 1A new first paragraph' but: " & sClipBrd(0)
end if end if
Case 2 Case 2
if sClipBrd(1) <> "22" then if sClipBrd(1) <> "2 2" then
Warnlog "First paragraph not '22' but: " & sClipBrd(1) Warnlog "First paragraph not '2 2' but: " & sClipBrd(1)
end if end if
Case 3 Case 3
if sClipBrd(2) <> "33A new third paragraph" then if sClipBrd(2) <> "3 3A new third paragraph" then
Warnlog "First paragraph not '33A new third paragraph' but: " & sClipBrd(2) Warnlog "First paragraph not '3 3A new third paragraph' but: " & sClipBrd(2)
end if end if
end select end select
next i next i
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment