(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 72925, 1716] NotebookOptionsPosition[ 68405, 1601] NotebookOutlinePosition[ 70164, 1653] CellTagsIndexPosition[ 70121, 1650] WindowTitle->WriteUnitTest | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Create a unit test and write it to file:", "Text", TaggingRules->{}, CellChangeTimes->{{3.769964469739517*^9, 3.76996447776266*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["WriteUnitTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["WriteUnitTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WriteUnitTest"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WriteUnitTest"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["WriteUnitTest"], BoxID -> "WriteUnitTest", Selectable->False], "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ RowBox[{"f", "[", "x0_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "x0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"x", ">", "0"}], ",", RowBox[{"x", "=", RowBox[{"Log", "[", "x", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "x"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\n", RowBox[{"f", "[", "2.0", "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{3.769964351308497*^9}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQ1YXNW57+d6rB6tXn36YU/v6TmnPfdY2xpj9Njec2uNEq3Hmlii1afW gNWagPa0EaKnCdjamNQP0EogmoDWgDeADUMUiAI1QIWkYUgAw6CAYSKDBhMm YZIMykQmzP/utfbs+WI+GQYQ/r/n2Ur23rP3Wu9a693vevfa7/uNXzx4W8oZ Op3uob9X/nPbvasTVq26N+MnFyr/uGPlQw+krlyx/EcrH16RumLVf/zi75Sd Ncq27H/odGcq/wchhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBAy Sxmz9eLldSsw78z5uCIhEfkN/dNdpDnF6aFWrE3PQq89/LljI114PHUF0tLS lC0D9abh+BeQkLhjQ+71OohPer23255un7ISDHdtxe33l+LjuN3BjuJkHc4+ NxmvNrXhrcotKNv1kc8Zx03N0OtLsL22E6eiuPLYyS48k3KtlNl3l2aieSDy XzsdFuzU65X71uCA1RHFXePP2EgHfvo5HVaV9rj2OFCZcY2UodEW/fWGWnPw d59bhPYIfuscPYTXSgoVuRTi5jN1eK7tePQ3dBG+XR04aKjAGy0fBTw6U4mk 3+2tKcMe08RlRyYbBwbNJpj72vDIAh0uUXSeSfn3R9YIDJBJYqTjWXzhoryQ Om7UZsWwfYL6yGnBqnN1eL49+B0as36GnMpdaGs3I+K7OA/hsfN0+F83ZGNv rxGFad+Wuqg7YtHZ0NHWhu25y7Fx19FIfzSOmGQThLGRVlx6hg5fuSoPJ+DR vWedvXRCunak6yWpa6P7rR0brohN14ZrV3Pdb/DPt2Zjv3kClZouIux3Hxir cc85l2GH+fT0lJMEwY7Nin17R0Gnz97h3grcs6oU77aWSRtDPEd/mlmED13t 2qVfjeVZpXjxsVvkMTEWSwyajeBAzbolSC/yXFPYsAlXpqPLJv7ehiWXJ+Da +ep1ExIS5HbhglSfMXl6sA7XKOP+/Asz8WFUKsWGkrRbsOC6+fL6581fFPD6 gqbc1WjxH25Kn16/9FJklGrld6BOGbsLV5XL58KwS3902j3nC53+cNXBaAqJ IcMmFExQ105cNqERulVcV8htt0UpY/MT7vbVZHfcVIf/SlDP+Z+XL0Vxk7df xoHdJaulvhYy+lmC929D9wsPNmQH1bU2/CV/pXse9qPUApgDPOMCtqv38eyV eNPitzNMu8edSex3Q805yGuY+HOcxAPVl/CTPF/fwVDrJtmXRdturW/H36o3 yH8/3qDq0335i+W/lyj619jdhhfSFuKMM+bL8SmuKeySm7yuae3wzCU/tXSh pqYer25ejnPOS8WO+ibU19cr+5pwzEtv2Pu2ucd5Z1TmtgPvNtWjumKzHPMr 86vQGOD6AjEmDdbxV+ir/o289w6zUhtlHiz+3t6t+g+7iu/EP91YhOHRPmzN y1f0hAP7cv8NN2a3RFNIDCrjYaK6duKyCY2wa8WzVejbVfp26T84d/58t748 dahOyvSbio7rNHWjPOsuWY4XDGo9Oorvk/9eW9KALmMdfnm5t64N3S88BNO1 DlRkqNfb1tSDvu5G/HaRDl+/rWicHypYu4Y7Hqrdp4LJ6nex9C0SLwLrWmvH Jqk7Gwa0Par9q7Xrvs1Xy3mm1sedox1ePrbx1xTX859LjnSF8yE48L7RgLcn 6HvSyvQnY/A7BB+TYlxfIsssdMsDXraYqPuFX8pWbH71eXRvaQ/2b7kZN0bp 645tPASTjR21uWuQ6nq/pG4p2FDVE/Aq/ghdu/D8ZOgrnnLr8tKKDe62E3W/ 4IvrMeR1v5eW6rDgkQblb6vUkd5jf6TLu90j6xfBdK0om3gG/KG2X973lPLc tLj8wYHmK6F0bXPeauyOst3DE5vsw90/mn432JSDF1r4bnFmEVzX+vZh3/NE u//Ddwu87AmrtFnuKeoJeM1AY0rYNELXxuvdmDY2Xwzh9ws1Jk8PviH7tLC9 D3ntF/1btS8sqNZXwqyM+X25V0+pXRuKEZsVVqvvdtwWmaNB6tpzE7F/0Ih7 ztLh4rtL8YGXz1W0+zduK/V5Pgp5iHa0nmxW5d3uGeO+7R6brhVzaP93udrc y//dW6h27W/ehCuuzJTtFohg7R4Jscg+3P2j6XenDlXLZ2ZF22fr3d/sRrVX b9/o+/yORNd+7YcF7jEnbEiPXlPnit4+4KEA9kd4XevAAUMd9nb7O9YiIzZd a0dJmjqORb9/pNzjE7MpshHvJEzuPVb5zuLe0mjsl9jt2mCyEe88u7u7YTKZ 5Cb+ft8S2TsgqWvPTpB+CUPhWhS1HFd0nKcv7Mn1nc8IKhQ5Cf1rd/ZJ/+F/ lXpk5W/XRtIvtPOeb/O1y8Zculz1Vzhgt9vhEGrMMV6XhdK1R7sqcNcNmUHW oQVv90iIRfbh7h9Nv7P3bsP112eiMeCcUMyJGrHXOBDgGIkHx8yiP6jrEK7L LJfrEA4OqP0irK7NXyyPlxkOwmYbQEnGQvnvNlf/bsz6Jr6o2A4dSj87rPRt MZcX89F2H12rzoWKDB8pw8WGPqVfnvAaNsO9W93z2Mjf8XsYOzlxXXug4tfS hyKOHapRfWhVJvXJ4hztkjZf4vpaDCtjo61kpZevOnJi0bXBZWPH7pINyM7N Ra5r25CVheII1xVruta/nbS+YO1Qbcs1RS04brehsy7Hy4/vkHpX2GONpqM4 aenA+kTf92qR9Autr12aXi7v0ddtVp/pTovcL36/x2RR+oxdvnN/sXT8HHqi PoRQ7R6e2GQf7v7R9LtQPgTtmSXaNJSMyGShztP852PafETM13zX+dhRnDJe 12rvrMXf+jaP3rC6xpE4JvrDixWFck7joxeUsVOYttDn/n8Z8KxTOT3U6H7X Hmy+FwptvVK0ula7r+oXFKg+NOGn1OZ0on5a3cVWsCv6uVosujZW2QRD8yEY /XStd1/ornnSp82E3tWKINZ/ivdV2rFfPpaBeed4dGlE/ULBVOe5h/fzxDnS i2eSLvW5/4MFu8at6wr7bizvsQm1ezyZzH4Xqm85R3ulfSV+/1wL1+HOdDQf gphLnrRa5XsKf5yK3WGz2QIe82ZEOUecF+i0UXv438dCuLVBodDqN+ynJ06Y W+U6C7G2wnsT+/q8vl2IZc2XIN6yCUWwumuoxwIXLtJ+4bSr/SKQVTmqHQty jXDt2pi1HK9/RqfQ4WQvGGx8MuTa7bGTO9V1fbRrZzzCbyd8rSemuyAxIta8 Z1U2oKXNFPm3DGFQv1mqRGWl7yb2qd+JWdFhMMj1UrF8y0CCE65dB5ufwBeu SMdO4+yT/zv1W3DN5+ajNsi3DMd7q+V87/LM2knr8yR+9NbkIKc8mvUwMxNh g1YrenBHvXFq1qtD/Ub3Lal/fe1cMnlE0q5HlGfiRN+7zmQOGJpwwBLc6B1o 2oRHC3ZNWX8nhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQEp5Thxqx5v68 CPIRWlGUsQJZPt902FGV9aCMYZqRkYbf5dXGbc240x7Zt66EEDLViLgbIu6f f7xegfju+OKfl+NwhPkItZiNvjEG7dhbWYxSfQkeXebJ2zURgucntKEqd7lP /JXo4lHHRvxzck4852bs2NFQuNodT2lzrW9MxZmcl3MyEHGG/GNmzhZme9vN PALHRtf2i/wsWgzBSHLLjFgtOB4kxsr+/Jv94qlHR+D8hA5UZ1widcHmmk5Y bRa06NdiyaqqKdNJkeTkjJUJ5dycBET8OhF/bFtTJ3YrchVy9o1ZMTl5OWcq Ip5wPOP3h8I52qfME+9CwqJELEtMxI3JmdhjnsxeFlnbxSNn6lylMesHrjjn DugzrkFKnogjaZe69pelPW5d+0p1iYzRESivpcjBJfJFJip94rEgMcLH567Q mHh+Qnvfa/I3zzQEj+EoypeplOlwhycvp3d+wn5DMe505dW8YEEyKo2euHri 2f+XwsfccftEPsyabvV4ZDk5Q9ctXNlC1T3euRfFnEfEh33cKyfinqyLZS4E /+vHGqMtcAGmObckwsfvD53X064895+SuXvE8VuTkpD448vw/bvH54PzZ2xE jc1baOiH3RW/7pPBZpkPOKL4wVHILlTbxStn6lxF5BL56neLYHeqY0vkcDqq tLWMdds+7I5hLuybQHktD3c3qjETm+qRl6QLmmcssK6NLT9h4DwGfvd15d0U 21P6BuxrqsDru9QxIeKaiv2r82thMnVj+4a7ZD13WdSYUDZXrNo/K/UWceQ3 pn0Hn78gXcZPDZ+TM3zdQpUtXN0F8cy9KGJoqzkpHOis3Ax9y1GZk8I3vxrc coxH/qLpzi0ZSteGy+up5SjKr+/Bkd46OZ6+fOV6/DWCGHqN6xbLWLoDjU/i ykWp+PUynRw7h/oqsPwPuyIqe6SyC9V28cqZOlcR/UnoD0Nrsdsv91avQfaN hoHTYfNaerNf5HuKQtfGmp9QlF3oOTU+uA35S1W9ddUN690xwzV99orRv5+p fhKRQ0yUya7oFM2e8M/t5XTYcMhsQsOW5eN818FyckZSt+BlC193lVhyL4bG k2utTdrcou3eV/SH6AttfmWJX57a6c0tGUrXhs7rKXIo3yllpunV/flX46a8 CMrvtOCPP8/F0VET7rtKvf7YyE5878ZSjI624gHFNo2MyGQXuu1iyydLfBHz cPHcynlqGW5Oz8PvEufh3scy3LkHwuX/8WZPlLo21vyEvnatAwfaDHirerPP 70P5LjTd7L9puSs+tXbgmZTvyH3nzV+E1AeTAuQuCjweI6lb8LKFr7tGLLkX Q+HJteZAT30ZdhrVXGtiPnnE79x45gSfztyS4XRtsLye4v2veGcqyl3Y1I9j h5rlM1zN9RoGRdc+/1CJzA366EZ1LNlaNyH95X44R5vxcIR2rSAS2TGf+9Qh xpTmh328/iCaXbbWP96g9pnJ0rXi2Di7Nsb8hFpf8vbXOp1dPjnCQulaUQ8t RrS4t911X+3uIh/YRf+ejT7X+PS/NhB8PEZSt9h1bSS5FyeWu3DM5Ud6zitP l9Algcob3jaaaO7E6c0tGUrXhsrrKfSv1jfnX6aOrfvWl+NIRGrehrxbV8jc zb+6PgX6ikJpl34rLRv/nXid20cRnshkF7+2I+OxInuRlt9MsRWbn5B/a37F ydK1XWX3SV+FyGN4zNyNw0J/xZyfUPWJivJuqe+BVbFjWirWynmut64NttZM lElbwzCs6MCTli4UF+jdY6IsRYd/u7sIxxTb7sRAh8zt5Zt3LkROzgjqFqps 4eseWe7FWHIXViuyFW3WZT2N471qbq+HAozZUOM1lvtPd25JoWuFHf+2oqd7 lXbtlptJ6Svh8nqqcy5VdjbYlE08ayNd+z3Q+Htccn8pBixmtLn8u0e62/De QOTPiUhlF6+2I4GwYUuSOqaEj1PLqXe3K5d2uLyW3uwLoWtPD6rzKPc8vV21 l2LOT6jotNKMW/zyK3ri7AufqP9cz4MD9V7rBMT2L7fmud+5Wru2+eQOXOXl W/G+f7CcnOHqFrpsoeseae7FWHIXinVHTyd5yi5y1gay8eKRO3G6c0sKtOdo MB9QqLyewt8SyIfkWRsQGqN+rbzXb+VzIgsrk1NQFeF7wWhkx7yXsxVH0DyH seYnDPf7UHjyAwb68eTk5Izlm7ZYcm4KYs1deFL6OYO/iA635ms2504MnFvS Lu2Xe1zvo+yyX9lRs+6SqPISineyfYpNbTYP4GgI+cfCXG47Eph45J38rBBL 3eObuzB8Xs65mTtR9bP9a3Ie9nabMTBgxp6azdLWjOj92JTAtiOBmY68kzOF WOoez9yFkeTlnKu5E8UalufSlrm/ZRDrZLfWT/U31sFh2xFCCCGEEEIIIYQQ QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEJmPDMghx4hhMwFpjuHHiGEzA3i lyOQEEKIh3jlCCSEEKIRWw49Qggh4Ykthx4hhJBwzIQceoQQQgghhBBCCCGE EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEDJXcTos2KnXQ6+vwQGr Y7qLQwghsxQbOtrasD13OTbuOhr0rFGbFcN26mJCCImFIcMmFATRtacH62T8 w/MvzMSHVLeEEDJhBptzgupae982Gcf7rLOXotM+xQUjhJBZRChdK+J4v280 4G3T8SktEyGEzDZC61pCCCGTQXi7thF7jQNTWiZCCJlthNK1Yyeb5bsxke9W 5GEkhBAyMULpWudoLx5ZoJPvx55roc+WEEImSqg1X4Kxkzulrt1Nu5YQQiaA FR0GA8qz7gr6LcPx3mr89HM6XJ5ZCy6vJYSQ6BHf6L5VWYnKynr0BflGd6Bp Ex4t2IVTU1w2QgghhBBCCCGEEEIIIYQQQgghhBBCCJkq7vndn7D+zQ+nuxiE EDKrOWo9ieOfnJ7uYhBCyKzmppUb8VDFZ8euHbP14uV1KzDvzPm4IiER+Q39 010kQgiZZdhRnKzD2ecm49WmNrxVuQVluz6akjsf72vEo0nXyVgLVy5KRnET dTwhZJbitGDVuTo83x79V7jO0T4UZdyFhEWJWJaYiBuTM7HHHNl1Tg++IXXs netL0d5txCtZd8l/b+/m18CEkNmEDSVpt2DBdfOljjtv/iIkJCTgwgWpMNrC /3pspAv3nKVDoaEfdrsNpxzAJ4PNuOecy1BlikxfWi3egcNseOw8xm0khMw2 HHi3qR7VFZtx6Rk6rMyvQmN9PWpqmnAsgoBejesWS7040PikMv9Pxa+X6fAP 3y3Aob4KLP/DrqhLMzbSKmOSv9g+PIG6EELIzMY52oGbz9ThT8Yo5u5OC/74 81wcHTXhvqvWYwhCV+7E924sxehoKx5YVR51OZrzF8u86Iei/iUhhMx83PZk WxRzd0XXPv9QCawnm/Hoxna5y9a6Cekv9yu6uxkPR2nXthbe5/LV0qYlhMxO JqRrYUPerSuwf9CIX12fAn1FofRDfCstG/+deB1eMESek7etZKXUs6Xtge/v tB+Svo1g8XUJIeSzwNjJiehaYKDx97jk/lIMWMxoazPJnA1Hutvw3kAEL9Yk djTl/0zq2eT8BpjNZnR3d6PHZPHJ/7Av92p5zrfvr4qqfIQQMpMYG+mQOW6i 1bUCo36tzK/729xc5OZmYWVyCqoi9AOI/LzCTyz0qPf2lavycMLrvAOVv5H7 b326JeryEULIbMHpsKHPZFLs0gEctdnjco8Rm425zgghhBBCCCGEEEIIIYQQ QgghhBBCCCGEEEIIIYQQQgghJAQizvfjqSuQlpambBmoNzG+FiFktmLDliTf WAD/JynyHDKx4Bw9hNdKCqHXF8qYBM8FiYUw3LUVt99fio/jXqJA2NFQuFrK RcRc2Fx7MOJfjtn6sD33QRl77Iwz5uMX64pg9vt82DnSixczlrmv/2xpi089 j3ZX41eJ8+Tx7y5NR7XRE7usv2kLUlJSsCIpSf4/KSkR68p73MdHbRa8a6jG H9NWIMtrv7yvIvvtWWrZxH0fLWjwk69ab63svy/aBe8eET5HWyi52VGl3DtZ ljlFKXsSlt66Ht1esnlPqdud89X+eFNqNrqs3vmgHRgaMOOtys1IVY71Bvgk O5TcIjkuZaS0zR9TlyG7yiO7cG0qfiPsB9Eeya62+UVm+TT1XTKzsCH3eh2u y6zCgGUAvd2N+IOiey/8UraMvT012LHhiuC6dqTjWXzhojyE0v6jNiuG7ZMf rWBf/mI5prY1dWK3fq0cmxt3RRKr0YHqDB2+cEU6djS1YV9TmczV843bSt31 cI72yhxr4py/GIz4W+UGzDtnKQwWVa9YO16S97slsxTtxja88tQS/OD+cvfv 9+ReLXNhvlBSghJlKy4sxBstnnyYrYV3up+fP8lr9yqbHS8t9dx3T42aE+Pu gk73GU0bfiB1pKj3/qZiGYPth9lqPOBIcrSFlpva55ZkFKDMVfbCokp86NJZ 9r7X5PlZ+haYzUZsTNHhaz8scOsrIbeHFqj1OuvspWj3C+kWTm7hjmsyKk7x l134Nj091Chl+Wh+qaxXiWJLvFzeErLvkrmC2u+9x6K99yU5TrQ+/KmlA4+n XCv7ndi/tqjFE4PFacEO5TmvjemrElNR3KDZMA7UrFuC9CLPGBY2asKV6ejy GR82ZAfQtcNd27Dk8gRc67JvRB6yQLnITg/WSV0g8il8OInqVoxpMZYeb/Do 1j1ZF+OfbiyKcOw4fGLV7Fd0o3hmaPHDDlT8GueclwpTwN/akK/owwWPNAS9 utC1dxT0BD2uXce/fQWfWi0+ttb+LTd7xTazyvb4Xa1Hb9s6Nkm9ptmeoXK0 hZebev2tgSuOodYncMEX17vl5Ojb6nNvDRHzeOHZCX66NpzcwstVIJ5Tom2e XXMtbnvaW3ah23SoNUc+/5jXg4xHHYs3uvqT02FF1VPX4PMXpMPs8ORO/Nfk POwzmfB2/Rb53H6oXNWnIn6s0L8Vbf0YHDBhR/5KLF6l2Qg2aa/e5DXOrR05 0l7yHx+BdO2nli7U1NTj1c3LZb/fUd+E+gC5yOx929w2TuckhvgS8RbFWO5U 7OVOZb6qbzmq6P9NUg9EbvMr811lvrBPkZuIGZmc54nJuDPjEkUHtuCIuVna pNuVeh12lV+Lnf6K8SO8o9hPhYUleNNw0Dem7uarpSzT0lKQmpaBbfWdAeKQ Bda1/mUUNty8VbWu36vt8XCVxy9w6lC1bPdA+YX9c7SFk5uIVSx8RhcsSMaD yjz7oXUF2OPlq9fiXP5sfTk+sFpRue4aGTfYv26BdG04uUUi16HWTbI/7TCf wrv533ePDW95BWtTa4f62/SMDKSkpOGZgip3m5K5jvqc94/fWrBLtWmE7SV0 WJsyr3XY7Uovs+ONNB2+84A6LjVdu0UZ5+NjGY4f56IvCv1gjEDXaox0hfMh OPC+0YC3TZOb+1aO5XMTsX+wTY59kTPy/S7V5m+zhv+9vIaiN8TY1p4Fnnp7 5C7kkZ6RJs8TzzjhfxT31uLqXrQoFasf/LH8+/r1DS69oMwZspbga0szUVpZ iRfXqfP4B4r89UJ4XTvcqz6r/uylR4UPQez7fWE5/py/xt0vAsUX9s/RFk5u mg/gV1lFqKwswcOJ6rU9eY9t0sfh3R9fMY5/bxpM14aSW7jjp4dUPf8Hl00v 7Nab8jp97xu0TYUst2LeWYvwTKEerxU/Jc/78pXrcSSo9MncQfPXlqOro0L2 DW+/3Z7cxeP0sE8sbadFvivQ9gu9samy3W3XToauFbaw0LXxeL/wdk0ZSvV6 6F2b8B++2aaOM20sC/usp74MO43HpX0m9EpUY8ch3uV0o2jNt93zBU02l6QW uW1kTQ8IOWi236pST1uI55qYn5qC+EmET8E/xnk4XTvcW6HmpMjzj4Fux9/0 m7FGsZlXZRahvasa13xuPnZbfM8KlKMtarkpfeiRz3v63c5138RF/54t/bcn BjrwYsZCqdMMfs+3gLo2jNxCHh+1u98TP6HYu4XKXEM8B/5xaTpe9Pe5BmzT 8dgV3Suu1zBwOvAJZA6hjsXbN6p9T/ipvN83CLtWs7WcDjvs0rYVXc2/c4m+ p/oQRN96Vdooqg/hDi/dLfxZgXStOO/5tsBrvsLrWgcOGOqwt9sS9IxgvN9m QFNTk8+m2cfCfyLmiM+1eMol/JrCTvMuS9BcZH4yOj34mo//RPgwxfzAcyFV 5wi/p3NUvfezBs/zx9bxrI8f3R9fn6v7V9gcRNcOm6rls/XW7PA5MAdd+sj7 nX+wHG2Rys27jKL9b8wW+t6KrPN9+4LT2aU+g1r876PpdM++cHILfdyO2tzH kLluHTIyMuT2iwT1HcVv8mrVsodpU39OD9V5jQcyt/G1e8T87pd/73l3IPx0 oq9I35nSF0ftVsXe2YI6lx1TmbEEK5V++IFV7fCWjq0+fasx65v44pWZ6LDY cLirQo6Z8e+O1TJcml6O43Yb+rrNPjaE5gMrMnykdHVxvBsnvLr8sMt2CPT+ JFbEe2fxrBFrjo73qna/5qvWCJSLzOnsk3JMK2zAYUVuI1YzSlz2mVbG4S71 ffiGmh7pmzFWrnX7CQXCThV+6j3mYUXuAyhM88wnRJ3FtaqN/fL590GHKtvL MzWfqx2HzGYMHDJinTJfX7S+CuYBMz6y+LaT8KG+o5zXq8hU5Fk7bFN/3V2T g5zydgyLa7eVSV+tR1+Hz9EWSm7Cbv3fdxfggNIn7Ep/2l2irg172Sj0n+pb +Zdb8/C+7FMOmBo3+chlxDog8298qPSneWfOlzIQdT3mWocSSm6RHPdmf77H hxCuTbXjGSUt0p920tIl11AIOfBdGQlk95jr1DFfa1bnPZaOMp+cXOI5Xtqi vmM+aCh2r4PUtuXZtW77xerSr9oahhcrCrHw/ORxOtFU96T79+N0pmLvFaYt 9LnHX7zmZGKdjbYOIdhcbqI4R/vwtNf648T1teNss2C5yExNW3zkJuqlb/Nd L9Zd86RPvXK916H61VusNWp21dvpsKA8a7nPbxenl+KIq/7ePkXvTbUd1Wdb IN+QZjsaK33LdVd2lbvekeRoCyW34+Zm/C7R97dZ5Z65z6eWVjyc4Ht8jdf6 XrGeLGDZNR9UCLlFdNwL8Rz1Hhuh29SBd+o3+8hdrJnhNzokWmw2m7IFNhwd DrtyTKxxHX/MKY/ZcCqMHnTabep5QY6P2NTjgS4zag9//Vg4abXieIg8ZsFz kTlccgueqyycfEYUuVqtgSep4rdWa3zWFgv7VVzbZpv4tUPJTchM1Ct4vW0R 9ZtghJJbJMeDE65NPccJIYQQQgghhBBCCCGEEEIIIYQQQgghhBDy2WNspEN+ s7iqVIvN50BlxjXye0wjlwdGiAMHDRU+sWM19taUYc8kx8QhhHz2EN+Ui+8v tW9+NN3rH79oNhNrnHFz3W/wz7dmY795vMA+MFbjnnMuww4zY48QMpcRulX7 plDEcBpqfmJcrLiJxwoPf/yEuRXPuXLAiO2O9CJ3fH5ZPpvIEXOL+9vgpKQk GW9Ki7EXU9kwOXHGm7JX4s0QYW+GmnOQ1xBJLgdCyGxFi+Mn9M0qfbv0H5w7 f75b18YWKzzccQfKUnS4ODUPu40mvNtaJm1q9Zt9FRG7RsTu2Ge2oL1a/UY/ Jb9KxtSKtWyCyYgz3pS7ely8P28GFV1bEFHeHELIbEXGpTs/GfqKp9w6p7Ri gzvuYWyxwsMf1xixWmAyGfFC2re9ckupuVK+9/Tb6kmKnSryc/3JZdPGWjaV 2OOMN+etxu5QurYpBy+0MP4IIXMZTwx9o7QRL767FB90veTWtbHFCg9/vN9Q LG1ZceyHSUny/1+/TdO1Il/ZNfjqDevx7oAVPXU5PnGXYy7bJNDfvAlXXBk6 vpiISymeZxVt49+dEULmBt7xlg2Fa1HUosbQ97ZrJx4rPPRxLd7n3QWemPfv FfvGlO7S/1rapm5dWeXJqTU5ZZt4nHHB0a4K3HVDZsC82Rr23m24/vpMNHI9 AiFzlkB5RLzz1MQaKzzUcZGPRPiJ11f1yJiMBw1qnFzhQ1DjoKpxVpMLdsHq ilGn6VNBrGUTTEaccfoQCCHh0HwIRj9d670OIZZY4eGOGwpXuveLNb05Ty3D 128rch9vXDfeRyDKpvkRYimbYDLijDflPcZ3Y4SQSWOiscLDHR+1B76ull+6 VuQ+cThkzOixk13S7/BL97cXsZct1jjjjVnL8fpA8OODjU9iI3UtIWSGouna NYW1OGgeQJ/JiD9vWD4uB850M9j8hMyjstM4Xp++U79Frgeu5bcMhJAZTL+h DPclzvP61iFvRn7zesTUHPD92gFDEw5YJjnhJCGEEEIIIYQQQgghhBBCCCGE EEIIIYQQQgghhBBCCCGEEEIImRE4nU6cOnUKx44dQ39/Pw4cOID33ntvVm+i jqKuos6i7kIGlFl8ZUbIXEeMGzGGent7ZcysuYKoq6izqLuQQTRQZtHLjJC5 jrBThM0yVxF1FzKIBsosepkRMtcxm804ceLEdBdj2hB1FzKIBsosepkRMtfp 6uqKy3X/X+ODeKKtflw+Rae9A5saVuBPPQfjct+JEK0M4iUzDedIL/auehD7 G3z1mXP0EFofWQPTwen3W8RbBoTMNjo7O+Ny3dbWO/F/9Tps+cA35mxd48X4 vn4e/npy5sTQjlYG8ZKZhsjHtuMiHcq+ch0+sPju3/4lHdrbpz+Ob7xlQMhs w2g0xufCTgueeVWHH5Rn4pBr18eDW6X+XT+DbFpBtDKIm8xciLwUrwtdq+jV 7XcUYtRrf8WXdXh7BujaeMuAkNlGPMfMqWNlUrc+tF/kCLNK3ZvwRpFXjkUH 2t5ZK88R28LKTLScVL0Onw634snXv+0+trq5CvHykM5EXbvDpWvFtmu7+mwS dq23rnVYO7AnfaH7vDcfL8dwDPnTooG6lpDoiPeY2de6WPoMMut/rPz/WrSM eI4deOc+qUdz3m1Bv9WI52p0uFq/DN12G4oqdVhUm48DJyzoNuXI8x5+Nz72 8EzUtUKnvmM0oe1ujy/Bx651HsJfv6Ic+2oSDrSbcLipRB7bfm8ppkLdUtcS Eh3xHjNOZx+eeFW1TbN7+72O2PCC1KdFOHzKhqMf2zA4qNrBWwYOy2PXvJqO KrMRx5TjH1nNyv/jk79rpura/Z2ncHqozq1DR0e7pL0rdK29t1jasj0HPW8f TzY9KfXy4Sl4dUZdS0h0TMWYefftnyr2aiI6vQwup6I3Vrv8A/5bxv5OfGJt xJrXdV7+hVT89dhwXMo3U3Wt5isYrFyt+hKKtkg/rtj/cccmlH15no9eHRH7 FF07SF1LyIxjKsbM/tabVV3rswDMio2Kvfujv+1y73GOWfC33nocGD6Kng8a 0TfigNNhUf6uxIPKuddVFcWlfDNd1wJ2tN3/Lbdf1tg+jOHWHPm3qd+znmO4 mXYtITOVqdS1b/sttm3e+33py91qPgjbKQtqWxZLG7bs2Pt4VC/eo+Wi9xMb Rj7pkn6IH+7cEZfyzXxdK96LNbvfl4n9ztFevPkVHcr/cx0GLTYMm+pQoxwv /49sr3eP8YO6lpDomDofwjL0jHtpY8X2XUt8/AcbetR1m8cOlyFZr/NZo2D8 OD5rcmeirhV6tbPT12dibcpx61qB3VyH2qs86xXKb1+HI9a4Fs0NdS0h0TET xszoKRuOj1hxasz/iAM2Zf/xOL0T05hpujY6HDhltWLEFl8Z+TOzZEDIzIdj 5rOua6cHyoCQ6OC3ljPvG93PApQBIdEh4pEODQ1NdzGmDVF3IYNooMyilxkh c53Dhw+jo6NjuosxbYi6CxlEA2UWvcwImevY7Xbpe2tvb59Ttpqoq6izqLuQ QTRQZtHLjJC5jsgbJXKbiJxSe/bsQV1dHd58881ZvYk6irqKOou6TyTfGGXG fGOETAQxdkZHR2UeKWGzzOZN1FHUNVZ9QZkRQgghhBBCCCGEEEIIIYQQQggh hBBCCCGEfDb4/+2u2pc= "], {{0, 183}, {347, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{347., 183.}, ImageSizeRaw->{347, 183}, PlotRange->{{0, 347}, {0, 183}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7699644022477713`*^9}, CellLabel->"Out[1]=", CellID->1715827237] }, Open ]], Cell["Run the test:", "Text", TaggingRules->{}, CellChangeTimes->{{3.769964484802546*^9, 3.7699644877703533`*^9}}, CellID->380084974], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestReport", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.759750901877681*^9, 3.759750905026411*^9}}, CellLabel->"In[60]:=", CellID->41459648], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestReportObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Title: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test Report: testFile1.wlt\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Success rate: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"100", "\"%\""}, "RowDefault"], "SummaryItem"]}], RowBox[{ TagBox["\"Tests run: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Title: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test Report: testFile1.wlt\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Success rate: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"100", "\"%\""}, "RowDefault"], "SummaryItem"]}], RowBox[{ TagBox["\"Tests run: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Succeeded: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Failed: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox[ "\"Failed with wrong results: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox[ "\"Failed with messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Failed with errors: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestReportObject[<| "Title" -> "Test Report: testFile1.wlt", "TimeElapsed" -> Quantity[0.04, "Seconds"], "TestsSucceededCount" -> 1, "TestsFailedCount" -> 0, "TestsFailedWrongResultsCount" -> 0, "TestsFailedWithMessagesCount" -> 0, "TestsFailedWithErrorsCount" -> 0, "Aborted" -> False, "TestResults" -> <| 1 -> TestResultObject[<| "TestClass" -> None, "TestIndex" -> 1, "TestID" -> "testFile1_20190221-ZMLUG7", "Outcome" -> "Success", "Input" -> HoldForm[$CellContext`f[ Pattern[$CellContext`x0, Blank[]]] := Module[{$CellContext`x = $CellContext`x0}, While[$CellContext`x > 0, $CellContext`x = Log[$CellContext`x]]; $CellContext`x]; $CellContext`f[2.]], "ExpectedOutput" -> HoldForm[-0.36651292058166435`], "ActualOutput" -> HoldForm[-0.36651292058166435`], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000121`2.233300368148442, "Seconds"], "CPUTimeUsed" -> Quantity[0.00011899999999798183`, "Seconds"], "MemoryUsed" -> Quantity[648, "Bytes"]|>]|>, "TestsSucceededIndices" -> {1}, "TestsFailedIndices" -> {}, "TestsFailedWrongResultsIndices" -> {}, "TestsFailedWithMessagesIndices" -> {}, "TestsFailedWithErrorsIndices" -> {}|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.769964492883614*^9}, CellLabel->"Out[60]=", CellID->1604514307] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Options", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->776923543], Cell["\<\ Use the option \"ConfirmResults\" to write the test to file without verifying \ the results:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.769964602158736*^9, 3.769964617718256*^9}, { 3.769964842655243*^9, 3.769964843030422*^9}, {3.8551476419056177`*^9, 3.855147644321124*^9}}, CellID->560091386], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["WriteUnitTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["WriteUnitTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WriteUnitTest"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WriteUnitTest"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["WriteUnitTest"], BoxID -> "WriteUnitTest", Selectable->False], "[", RowBox[{"\"\\"", ",", RowBox[{"2", "+", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.769964535132985*^9, 3.769964594159359*^9}, 3.77307353507022*^9}, CellLabel->"In[1]:=", CellID->1998679913], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Adding test: \"\>", "\[InvisibleSpace]", "\<\"testFile1_20190725-74FPSW\"\>"}], SequenceForm["Adding test: ", "testFile1_20190725-74FPSW"], Editable->False]], "Print", TaggingRules->{}, CellChangeTimes->{3.7730735642211347`*^9}, CellLabel->"During evaluation of In[1]:=", CellID->347926887], Cell[BoxData["\<\"testFile1.wlt\"\>"], "Print", TaggingRules->{}, CellChangeTimes->{3.7730735649642086`*^9}, CellLabel->"During evaluation of In[1]:=", CellID->414936143] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["WriteUnitTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["WriteUnitTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WriteUnitTest"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WriteUnitTest"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["WriteUnitTest"], BoxID -> "WriteUnitTest", Selectable->False], "[", RowBox[{"\"\\"", ",", RowBox[{"3", "+", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.769964535132985*^9, 3.769964594159359*^9}, { 3.77307353507022*^9, 3.7730735366653795`*^9}}, CellLabel->"In[2]:=", CellID->100755062], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Adding test: \"\>", "\[InvisibleSpace]", "\<\"testFile1_20190725-VGOROR\"\>"}], SequenceForm["Adding test: ", "testFile1_20190725-VGOROR"], Editable->False]], "Print", TaggingRules->{}, CellChangeTimes->{3.773073565163229*^9}, CellLabel->"During evaluation of In[2]:=", CellID->138898538], Cell[BoxData["\<\"testFile1.wlt\"\>"], "Print", TaggingRules->{}, CellChangeTimes->{3.773073565817294*^9}, CellLabel->"During evaluation of In[2]:=", CellID->83143515] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["WriteUnitTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["WriteUnitTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WriteUnitTest"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WriteUnitTest"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["WriteUnitTest"], BoxID -> "WriteUnitTest", Selectable->False], "[", RowBox[{"\"\\"", ",", RowBox[{"1", "/", "0"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.769964535132985*^9, 3.769964594159359*^9}, { 3.77307353507022*^9, 3.7730735366653795`*^9}}, CellLabel->"In[3]:=", CellID->600800543], Cell[BoxData[ TemplateBox[{ "Power", "infy", "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \ encountered.\"", 2, 3, 38, 23389975265310350823, "Local"}, "MessageTemplate"]], "Message", "MSG", TaggingRules->{}, CellChangeTimes->{{3.773073553825095*^9, 3.773073565934306*^9}}, CellLabel->"During evaluation of In[3]:=", CellID->177126065], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Adding test: \"\>", "\[InvisibleSpace]", "\<\"testFile1_20190725-OJ7IWG\"\>"}], SequenceForm["Adding test: ", "testFile1_20190725-OJ7IWG"], Editable->False]], "Print", TaggingRules->{}, CellChangeTimes->{3.7730735659953117`*^9}, CellLabel->"During evaluation of In[3]:=", CellID->873646671], Cell[BoxData["\<\"testFile1.wlt\"\>"], "Print", TaggingRules->{}, CellChangeTimes->{3.773073566894402*^9}, CellLabel->"During evaluation of In[3]:=", CellID->450494896] }, Open ]] }, Open ]], Cell["Each test was appended to the file:", "Text", TaggingRules->{}, CellChangeTimes->{{3.76996464410122*^9, 3.769964654853134*^9}}, CellID->41949837], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestReport", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->814101170], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestReportObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Title: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test Report: testFile1.wlt\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Success rate: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"100", "\"%\""}, "RowDefault"], "SummaryItem"]}], RowBox[{ TagBox["\"Tests run: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Title: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test Report: testFile1.wlt\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Success rate: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"100", "\"%\""}, "RowDefault"], "SummaryItem"]}], RowBox[{ TagBox["\"Tests run: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Succeeded: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Failed: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox[ "\"Failed with wrong results: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox[ "\"Failed with messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Failed with errors: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestReportObject[<| "Title" -> "Test Report: testFile1.wlt", "TimeElapsed" -> Quantity[0.8200000000000001, "Seconds"], "TestsSucceededCount" -> 4, "TestsFailedCount" -> 0, "TestsFailedWrongResultsCount" -> 0, "TestsFailedWithMessagesCount" -> 0, "TestsFailedWithErrorsCount" -> 0, "Aborted" -> False, "TestResults" -> <| 1 -> TestResultObject[<| "TestClass" -> None, "TestIndex" -> 1, "TestID" -> "testFile1_20190515-0RF33W", "Outcome" -> "Success", "Input" -> HoldForm[$CellContext`f[ Pattern[$CellContext`x0, Blank[]]] := Module[{$CellContext`x = $CellContext`x0}, While[$CellContext`x > 0, $CellContext`x = Log[$CellContext`x]]; $CellContext`x]; $CellContext`f[2.]], "ExpectedOutput" -> HoldForm[-0.36651292058166435`], "ActualOutput" -> HoldForm[-0.36651292058166435`], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[368, "Bytes"]|>], 2 -> TestResultObject[<| "TestClass" -> None, "TestIndex" -> 2, "TestID" -> "testFile1_20190725-74FPSW", "Outcome" -> "Success", "Input" -> HoldForm[2 + 2], "ExpectedOutput" -> HoldForm[4], "ActualOutput" -> HoldForm[4], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[96, "Bytes"]|>], 3 -> TestResultObject[<| "TestClass" -> None, "TestIndex" -> 3, "TestID" -> "testFile1_20190725-VGOROR", "Outcome" -> "Success", "Input" -> HoldForm[3 + 3], "ExpectedOutput" -> HoldForm[6], "ActualOutput" -> HoldForm[6], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[96, "Bytes"]|>], 4 -> TestResultObject[<| "TestClass" -> None, "TestIndex" -> 4, "TestID" -> "testFile1_20190725-OJ7IWG", "Outcome" -> "Success", "Input" -> HoldForm[1/0], "ExpectedOutput" -> HoldForm[ DirectedInfinity[]], "ActualOutput" -> HoldForm[ DirectedInfinity[]], "ExpectedMessages" -> { HoldForm[ Message[ MessageName[Power, "infy"], HoldForm[0^(-1)]]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Power, "infy"], HoldForm[0^(-1)]]]}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[1568, "Bytes"]|>]|>, "TestsSucceededIndices" -> {1, 2, 3, 4}, "TestsFailedIndices" -> {}, "TestsFailedWrongResultsIndices" -> {}, "TestsFailedWithMessagesIndices" -> {}, "TestsFailedWithErrorsIndices" -> {}|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7699646384980993`*^9, {3.773073554804193*^9, 3.7730735678314953`*^9}}, CellLabel->"Out[4]=", CellID->22952125] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"WriteUnitTest | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[626, 23, 168, 7, 70, "Subsection",ExpressionUUID->"a95d2fa7-a689-4ce4-acdd-87b8944d4aa1", CellID->462042388], Cell[797, 32, 159, 3, 70, "Text",ExpressionUUID->"17f50c48-424b-485e-980c-0d3c66e113e8", CellID->13078159], Cell[CellGroupData[{ Cell[981, 39, 7722, 197, 70, "Input",ExpressionUUID->"937edd4e-8457-4e60-8bb3-c7f5cdf96316", CellID->443871870], Cell[8706, 238, 14222, 240, 70, "Output",ExpressionUUID->"277d91df-750b-453a-b050-b10c64784e01", CellID->1715827237] }, Open ]], Cell[22943, 481, 136, 3, 70, "Text",ExpressionUUID->"d1e19ca1-86af-4471-9212-8e68251ed998", CellID->380084974], Cell[CellGroupData[{ Cell[23104, 488, 211, 5, 70, "Input",ExpressionUUID->"2f0daaa8-915f-47b2-ba49-fb9362cea34f", CellID->41459648], Cell[23318, 495, 8758, 188, 70, "Output",ExpressionUUID->"27d0cba4-35af-4286-8ca0-614661c4603d", CellID->1604514307] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32125, 689, 161, 7, 70, "Subsection",ExpressionUUID->"0829f262-36f7-4906-bcb6-0830ed5621f9", CellID->776923543], Cell[32289, 698, 321, 8, 70, "Text",ExpressionUUID->"59187c73-30a0-44e5-8d1e-b0b384477eec", CellID->560091386], Cell[CellGroupData[{ Cell[32635, 710, 7549, 189, 70, "Input",ExpressionUUID->"13b8bf9a-8298-4bcc-9754-7e913983f413", CellID->1998679913], Cell[CellGroupData[{ Cell[40209, 903, 351, 9, 70, "Print",ExpressionUUID->"265cb66b-817d-4e6d-995f-8cc68d429479", CellID->347926887], Cell[40563, 914, 174, 4, 70, "Print",ExpressionUUID->"4102680e-29e9-44c2-b6a6-04ac5417bc77", CellID->414936143] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40786, 924, 7573, 189, 70, "Input",ExpressionUUID->"2c8d0ea1-32ad-4f93-9bf8-30e2b645e775", CellID->100755062], Cell[CellGroupData[{ Cell[48384, 1117, 349, 9, 70, "Print",ExpressionUUID->"aae833e9-d08d-4730-9263-3758502f783d", CellID->138898538], Cell[48736, 1128, 171, 4, 70, "Print",ExpressionUUID->"182511a0-80d0-46dd-a9b7-9fc0f138cb98", CellID->83143515] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48956, 1138, 7573, 189, 70, "Input",ExpressionUUID->"8e6b8e6f-263e-47c0-80a4-32fd6fec7d8c", CellID->600800543], Cell[56532, 1329, 371, 9, 70, "Message",ExpressionUUID->"75192f6e-52a3-49d0-8072-3fedb0a96c7b", CellID->177126065], Cell[CellGroupData[{ Cell[56928, 1342, 351, 9, 70, "Print",ExpressionUUID->"0ddf2c21-b24f-43f9-8fc8-ac13da52da0f", CellID->873646671], Cell[57282, 1353, 172, 4, 70, "Print",ExpressionUUID->"7cb6c0ed-feac-4c49-b7ab-e21f2d97ecc2", CellID->450494896] }, Open ]] }, Open ]], Cell[57481, 1361, 154, 3, 70, "Text",ExpressionUUID->"f9bff307-56df-4dfd-bb1c-6e15ad9b6e22", CellID->41949837], Cell[CellGroupData[{ Cell[57660, 1368, 145, 4, 70, "Input",ExpressionUUID->"88979284-d4c5-40eb-a7ae-0d0564aa2503", CellID->814101170], Cell[57808, 1374, 10569, 223, 70, "Output",ExpressionUUID->"7cd21c0b-5476-4148-b920-135369049784", CellID->22952125] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)