https://wiki.access-codelib.net/index.php?action=history&feed=atom&title=SimplyVBUnit 2026-04-28T20:17:35Z Versionsgeschichte für diese Seite in Access Code Library MediaWiki 1.15.1 https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=2170&oldid=prev 2013-10-13T19:50:41Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 19:50, 13. Okt. 2013</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 1:</td> <td colspan="2" class="diff-lineno">Zeile 1:</td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">__NOTOC__</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">Diese Seite </ins>ist <ins class="diffchange diffchange-inline">übersiedelt</ins>: <ins class="diffchange diffchange-inline">[</ins>http://<ins class="diffchange diffchange-inline">de</ins>.<ins class="diffchange diffchange-inline">accunit.access</ins>-<ins class="diffchange diffchange-inline">codelib</ins>.net/<ins class="diffchange diffchange-inline">SimplyVBUnit SimplyVBUnit]</ins></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">[[Kategorie:Testframework]]</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">== Allgemeines ==</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&#160;</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">SimplyVBUnit </del>ist <del class="diffchange diffchange-inline">ein Test-Framework für VB6 und VBA, das sich an NUnit orientiert.</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&#160;</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">Projektseite</del>: http://<del class="diffchange diffchange-inline">sourceforge</del>.<del class="diffchange diffchange-inline">net/projects/simplyvbunit/</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&#160;</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">Seite mit Setup</del>-<del class="diffchange diffchange-inline">Datei: http://sourceforge</del>.net/<del class="diffchange diffchange-inline">projects/simplyvbunit/files/</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&#160;</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">== Verwendung ==</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&#160;</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&#160;</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">=== Beispiele ===</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&#160;</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&lt;source&gt;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">Public Sub Test1()</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&nbsp; Dim testResult As Double</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&nbsp; testResult = VBA.Math.Sqr(4)</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&nbsp; Assert.AreEqual 2, testResult</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">End Sub</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&lt;/source&gt;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&lt;source&gt;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">Public Sub Test2()</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&nbsp; Dim testResult As Double</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&nbsp; testResult = VBA.Math.Sqr(4)</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&nbsp; Assert.That testResult, Iz.EqualTo(2)</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">End Sub</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&lt;/source&gt;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&lt;source&gt;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">Public Sub Test3()</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&nbsp; Dim testResult As Double</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&nbsp; testResult = VBA.Math.Sqr(4.5)</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&nbsp; Assert.That testResult, Iz.Not.EqualTo(2)</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">End Sub</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&lt;/source&gt;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Paul Rohorzka https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=1833&oldid=prev 2010-09-27T21:38:36Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 21:38, 27. Sep. 2010</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 6:</td> <td colspan="2" class="diff-lineno">Zeile 6:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Projektseite: http://sourceforge.net/projects/simplyvbunit/</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Projektseite: http://sourceforge.net/projects/simplyvbunit/</div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Seite mit Setup-Datei: http://sourceforge.net/projects/simplyvbunit/files/</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Seite mit Setup-Datei: http://sourceforge.net/projects/simplyvbunit/files/</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Josef Pötzl https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=1832&oldid=prev 2010-09-27T21:38:25Z

<p><span class="autocomment">Allgemeines</span></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 21:38, 27. Sep. 2010</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 6:</td> <td colspan="2" class="diff-lineno">Zeile 6:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Projektseite: http://sourceforge.net/projects/simplyvbunit/</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Projektseite: http://sourceforge.net/projects/simplyvbunit/</div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">Seite mit Setup-Datei: http://sourceforge.net/projects/simplyvbunit/files/</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>== Verwendung ==</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>== Verwendung ==</div></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Josef Pötzl https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=1690&oldid=prev 2010-09-14T11:42:22Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 11:42, 14. Sep. 2010</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 1:</td> <td colspan="2" class="diff-lineno">Zeile 1:</td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;">[[Kategorie:Testframework]]</del></div></td><td colspan="2">&nbsp;</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>__NOTOC__</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>__NOTOC__</div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">[[Kategorie:Testframework]]</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>== Allgemeines ==</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>== Allgemeines ==</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Josef Pötzl https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=1689&oldid=prev 2010-09-14T11:42:06Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 11:42, 14. Sep. 2010</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 1:</td> <td colspan="2" class="diff-lineno">Zeile 1:</td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">[[Kategorie:Testframework]]</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>__NOTOC__</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>__NOTOC__</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>== Allgemeines ==</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>== Allgemeines ==</div></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Josef Pötzl https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=1378&oldid=prev 2010-06-24T14:04:02Z

<p><span class="autocomment">Beispiele</span></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 14:04, 24. Jun. 2010</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 27:</td> <td colspan="2" class="diff-lineno">Zeile 27:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test3()</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test3()</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim testResult As <del class="diffchange diffchange-inline">Long </del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim testResult As <ins class="diffchange diffchange-inline">Double</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; testResult = VBA.Math.Sqr(4.5)</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; testResult = VBA.Math.Sqr(4.5)</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That testResult, Iz.Not.EqualTo(2)</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That testResult, Iz.Not.EqualTo(2)</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del style="color: red; font-weight: bold; text-decoration: none;">&nbsp; '=&gt; Test schlägt fehlt, weil als Ergebnis 2 kommt (Long statt Double)</del></div></td><td colspan="2">&nbsp;</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Josef Pötzl https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=1369&oldid=prev 2010-06-24T12:51:51Z

<p><span class="autocomment">Beispiele</span></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 12:51, 24. Jun. 2010</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 27:</td> <td colspan="2" class="diff-lineno">Zeile 27:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test3()</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test3()</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim testResult As Long <del class="diffchange diffchange-inline">'=&gt; Test schlägt fehlt, weil als Ergebnis 2 kommt (Long statt Double)</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim testResult As Long &nbsp;</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; testResult = VBA.Math.Sqr(4.5)</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; testResult = VBA.Math.Sqr(4.5)</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That testResult, Iz.Not.EqualTo(2)</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That testResult, Iz.Not.EqualTo(2)</div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">&nbsp; '=&gt; Test schlägt fehlt, weil als Ergebnis 2 kommt (Long statt Double)</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Josef Pötzl https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=1368&oldid=prev 2010-06-24T12:51:07Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 12:51, 24. Jun. 2010</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 13:</td> <td colspan="2" class="diff-lineno">Zeile 13:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test1()</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test1()</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim <del class="diffchange diffchange-inline">lngResult </del>As <del class="diffchange diffchange-inline">Long</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim <ins class="diffchange diffchange-inline">testResult </ins>As <ins class="diffchange diffchange-inline">Double</ins></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; <del class="diffchange diffchange-inline">lngResult </del>= <del class="diffchange diffchange-inline">1 + </del>4</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; <ins class="diffchange diffchange-inline">testResult </ins>= <ins class="diffchange diffchange-inline">VBA.Math.Sqr(</ins>4<ins class="diffchange diffchange-inline">)</ins></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.AreEqual <del class="diffchange diffchange-inline">5</del>, <del class="diffchange diffchange-inline">lngResult</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.AreEqual <ins class="diffchange diffchange-inline">2</ins>, <ins class="diffchange diffchange-inline">testResult</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test2()</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test2()</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim <del class="diffchange diffchange-inline">lngResult </del>As <del class="diffchange diffchange-inline">Long</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim <ins class="diffchange diffchange-inline">testResult </ins>As <ins class="diffchange diffchange-inline">Double</ins></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; <del class="diffchange diffchange-inline">lngResult </del>= <del class="diffchange diffchange-inline">1 + </del>4</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; <ins class="diffchange diffchange-inline">testResult </ins>= <ins class="diffchange diffchange-inline">VBA.Math.Sqr(</ins>4<ins class="diffchange diffchange-inline">)</ins></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That <del class="diffchange diffchange-inline">lngResult</del>, Iz.EqualTo(<del class="diffchange diffchange-inline">5</del>)</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That <ins class="diffchange diffchange-inline">testResult</ins>, Iz.EqualTo(<ins class="diffchange diffchange-inline">2</ins>)</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;source&gt;</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test3()</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Public Sub Test3()</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim <del class="diffchange diffchange-inline">lngResult </del>As Long</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Dim <ins class="diffchange diffchange-inline">testResult </ins>As Long <ins class="diffchange diffchange-inline">'=&gt; Test schlägt fehlt, weil als Ergebnis 2 kommt (Long statt Double)</ins></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; <del class="diffchange diffchange-inline">lngResult </del>= <del class="diffchange diffchange-inline">1 + </del>4 <del class="diffchange diffchange-inline">+ 1</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; <ins class="diffchange diffchange-inline">testResult </ins>= <ins class="diffchange diffchange-inline">VBA.Math.Sqr(</ins>4<ins class="diffchange diffchange-inline">.5)</ins></div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That <del class="diffchange diffchange-inline">lngResult</del>, Iz.Not.EqualTo(<del class="diffchange diffchange-inline">5</del>)</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That <ins class="diffchange diffchange-inline">testResult</ins>, Iz.Not.EqualTo(<ins class="diffchange diffchange-inline">2</ins>)</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Josef Pötzl https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=1367&oldid=prev 2010-06-24T12:41:05Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 12:41, 24. Jun. 2010</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 1:</td> <td colspan="2" class="diff-lineno">Zeile 1:</td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">{{TOCright}}</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">__NOTOC__</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>== Allgemeines ==</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>== Allgemeines ==</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Josef Pötzl https://wiki.access-codelib.net/index.php?title=SimplyVBUnit&diff=1366&oldid=prev 2010-06-24T12:40:40Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Nächstältere Version</td> <td colspan='2' style="background-color: white; color:black;">Version vom 12:40, 24. Jun. 2010</td> </tr> <tr><td colspan="2" class="diff-lineno">Zeile 23:</td> <td colspan="2" class="diff-lineno">Zeile 23:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; lngResult = 1 + 4</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; lngResult = 1 + 4</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That lngResult, Iz.EqualTo(5)</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp;&nbsp; Assert.That lngResult, Iz.EqualTo(5)</div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">End Sub</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">&lt;/source&gt;</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">&lt;source&gt;</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">Public Sub Test3()</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">&nbsp; Dim lngResult As Long</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">&nbsp; lngResult = 1 + 4 + 1</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">&nbsp; Assert.That lngResult, Iz.Not.EqualTo(5)</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&lt;/source&gt;</div></td></tr> <!-- diff generator: internal 2026-04-28 20:17:35 --> </table>

Josef Pötzl